تعديل على كود _ ازرار التنقل

[al.sheen2000]

السلام عليكم 

فضلا ارجو التعدبل على هذا الكود بحيث يتنقل بين السجلات ولا يضيف سجل جديد ( تنقل فقط)

 

كود التنقل.mdb

[ابوخليل]

[al.sheen2000]

هذا الخيار يقفل الاضافة نهائيا 

انا اريد التعديل على الكود الموجود في ازرار التنقل بحيث ينتقل بين السجلات ولا يضيف سجل جديد

[kkhalifa1960]

مشاركةً مع استاذي @ابوخليل تفضل استاذ @al.sheen2000 مرفقك بعد التعديل حسب مافهمت .ووافني بالرد.

كود التنقل-1.mdb

تم تعديل الثلاثاء at 04:28 بواسطه kkhalifa1960
ارفاق المرفق

[ابوخليل]

4 ساعات مضت, al.sheen2000 said:

هذا الخيار يقفل الاضافة نهائيا 

انا اريد التعديل على الكود الموجود في ازرار التنقل بحيث ينتقل بين السجلات ولا يضيف سجل جديد

طيب انت لديك في النموذج هذا الكود خلف زر  وظيفته التحكم بالتعديل من عدمه :

Private Sub أمر85_Click()
If MsgBox("هـــــل تريــــد تحرير السجل الحالي ؟  ", vbInformation + vbYesNo + vbMsgBoxRight + 256, "تنبيـــــه") = vbYes Then
AllowEdits = True
DoCmd.CancelEvent
Else
AllowEdits = False
End If
End Sub

لو اضفت اليه خاصية الاضافة لأصبح التحكم بيدك

Private Sub أمر85_Click()
If MsgBox("هـــــل تريــــد تحرير السجل الحالي ؟  ", vbInformation + vbYesNo + vbMsgBoxRight + 256, "تنبيـــــه") = vbYes Then
AllowEdits = True
AllowAdditions = True
DoCmd.CancelEvent
Else
AllowEdits = False
AllowAdditions = False
End If
End Sub

 

[al.sheen2000]

اشكركم جميعا تحياتي