سااااعدوني

السلام عليكم

بعد التحية ،،، تفضل /

كود البحث :

'
   rs.Find = "[اسم الحقل] =" & Trim(Text1.Text) & ""
If rs.RecordCount = 0 Then
    MsgBox "لا يتم الحصول على الرقم المطلوب"
Else
    MsgBox "تم الحصول على الرقم : " & rs![اسم الحقل], vbInformation + vbMsgBoxRight + vbMsgBoxRtlReading
End If
'

كود السجل التالي

'
  If Not rs.EOF Then rs.MoveNext
  If rs.EOF And rs.RecordCount > 0 Then
    Beep
    rs.MoveLast
  End If
'

كود السجل السابق :

'
  If Not rs.BOF Then rs.MovePrevious
  If rs.BOF And rs.RecordCount > 0 Then
    Beep

    rs.MoveFirst
  End If

وتقبل تحياتي .

Visitor_OM

مشكور يالغالي على تقديم المساعده

لكن كود البحث لم يعمل في البرنامج

العفو اخي العزيز ولكن ممكن توضحلي ايش بيعطيك من رسائل او غير ذلك في حالة تطبيق كود البحث .

صباح الخير

Visitor_OM شاكر لك اهتمامك يالغالي

والخطا اللي يعطيني اياه يطلع لي مسج:

argument not optional

والخطا في كلمة find

مرحبا أخي العزيز

جرب تحذف علامة اليساوي من بعد find مباشرة .

rs.Find "[اسم الحقل] =" & Trim(Text1.Text) & ""

وإذا ما نجح راح ارفق لك مثال حول استخدم Find ,،، بإذن الله