تعديل علي كود يعمل بشرطين

[النجاشي]

السلام عليكم ورحمه الله وبركاته استاتذتي الكرام اهداني الاستاذ @ابوخليل 

بارك الله فيه وزاده علما وامده بالعمر المديد والصحه والعافيه هذا الكود 

If KeyCode = 46 Then
DoCmd.CancelEvent
If MsgBox("سيتم حذف الصنف " & vbCrLf & _
    "هل تريد المتابعة ؟؟", _
    vbInformation + vbYesNo, _
    "تحذير") = vbYes Then
DoCmd.SetWarnings False
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
DoCmd.SetWarnings True
Else
Exit Sub
End If
End If

اريد التعديل عليه اذا تم الضغط على مفتاح f2 يفتح لي نموذج اخر بحيث يصبج يعمل بكل الحالتين فتح وحذف

شاكر اليكم استاتذي الكرام

 

[النجاشي]

 السلام عليكم استاذي@ابوخليل

لعدم قدرتي لتعديل الموضوع بسبب خلل بالجهاز حاولت ارفق القاعده هون بالاجابه الزر موجود بالنموذج الفرعي حاليا يفتح نموذج لادارج الاصناف بالفاتوره اريده كمان يعدل السجل بالفاتوره عن طريق نموذج الادارج شاكر اليك استاذي الكريم الله يبارك فيك حولت القاعده الي 2003 ان شاء الله تتحمل 

تحياتي اليك

 

 

‏‏التعديل بالفاتوره .rar

تم تعديل أكتوبر 9, 2017 بواسطه ابو زاهر