[hhmm6]

هذه اكواد السابق و التالي :

كود :

Private Sub Command1_Click()
Data1.Recordset.MoveNext
If Data1.Recordset.EOF Then Data1.Recordset.MoveFirst
End Sub

Private Sub Command2_Click()
If Data1.Recordset.BOF Then
Data1.Recordset.MoveFirst
Else
Data1.Recordset.MovePrevious
End If
End Sub

و بالنسبة للبحث استبدل Findfirst ب FindNext

الف شكر اخى على هذا الكود تمام
زر البحث اشتغل وايضا زر السابق والتالى بدون مشاكل
لم يتبقى الا الترتيب التلقائى عند حذف سجل يظل موجود رقمه فى الترتيب التلقائى
وشكرا على مجهودك بارك الله فيك