أريد عمل زر "ابحث عن التالي" لقد كتبت هذا الكود ولم يفي بالطلب، فساعدوني رجاء
gBookMark = rs.Bookmark
If (Combo1.Text = "name") Then
rs.Find "[name] LIKE '" & Trim(gFind) & "%'", 0, adSearchForward, 0
End If
If (Combo1.Text = "company ") Then
rs.Find "[company ] LIKE '" & Trim(gFind) & "%'", 0, adSearchForward, 1
End If
If (Combo1.Text = "user ") Then
rs.Find "[user ] LIKE '" & Trim(gFind) & "%'", 0, adSearchForward
End If
'
If rs.EOF Then
rs.Bookmark = gBookMark
MsgBox ("bookmark")
Exit Sub
End If
Call ViewRecord