السلام عليكم ورحمه الله وبركاته استاتذتي الكرام اهداني الاستاذ @ابوخليل
بارك الله فيه وزاده علما وامده بالعمر المديد والصحه والعافيه هذا الكود
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 يفتح لي نموذج اخر بحيث يصبج يعمل بكل الحالتين فتح وحذف
شاكر اليكم استاتذي الكرام