جرب هذا الكود وأعلمنا بالنتيجة
.......
If (Count < 0) And (Me.CurrentRecord > 1) Then
DoCmd.GoToRecord , , acPrevious
ElseIf (Count > 0) And (Me.CurrentRecord <= Me.Recordset.RecordCount) Then
DoCmd.GoToRecord , , acNext
End if
أخي @emam1424 بارك الله فيك ومشاركة مع حبيبنا @أحمد الفلاحجى
دائما وابدا عند التسمية تقيد بالطرق الصحيحة للتسمية فمثلا انت كتبت اسم الجدول student Table المفروض تكتب student_Table بهذا الشكل دون مسافة عدل اسم الجدول ثم عدل في الكود بالاسم الجديد
لم نتواجد هنا سوى للاستفادة والافادة .... لا عليك اسأل ونحاول الاجابة ....
بالمناسبة هل سجلت اداة الباركود في جهازك .... اذا كانت الاجابة بلا... ابحث في المنتدى عن طرق تسجيل اداة الباركود وطبق ....
ولنا عودة ان شاء الله تعالى