زر امر التالي

[حسين العربى]

السلام عليكم ورحمة الله وبركاته اخواني اعضاء ومشرفي المنتدي الكرام 

عندي فورم   بحث  به زر امر السجل التالي  بمعني عند البحث عن عميل له عدة سجلات بضغط التالي للوصول الي اخر سجل

طلبي هو اريد عند الوصول الي اخر سجل لايعطيني سجل خالي بل يقف علي اخر سجل للعميل  وشكرا 

[سعيد صواب]

حياك الله اخي حسين

يوجد خيارين 

الخيار الأول في حال ان النموذج مخصص للبحث فقط .. 

بالترتيب

من خصائص النموذج === بيانات === السماح بالإضافة - عدلها من نعم الى لا .

بذلك تستطيع البحث .. ولا تستطيع ادخال بيانات .

الخيار الآخر وهو اذا كان النموذج يستخدم للبحث والإدخال 

ضع هذا الكود في زر امر التالي .

On Error Resume Next
Me.Refresh
With Recordset
If .AbsolutePosition = .RecordCount - 1 Then
MsgBox "هذا هو الســجل الأخير", vbInformation + vbOKOnly, "تنبيه"
Else
DoCmd.GoToRecord , , acNext
End If
End With

هذا والله اعلم

بالتوفيق

[حسين العربى]

الف شكر اخي الفاضل جزاك الله خيرا  هذا هو المطلوب