مطلوب إلغاء زر Esc الشرود

رفع

السلام عليكم

لقد توصلت على الحل

في حدث on undo

نضع الكود التالي

Docmd.CancelEvent

تحياااااتي

و لكن ذلك يعنى أنك لن تستطبع التراجع

اعتقد الافضل هو تعطيل المفتاح و ليس تعطيل الحدث

ضع هذا الكود فى النموذج لتعطيل مفتاح esc

و لك ان تختار ما يناسبك

Private Sub Form_Load()
    Me.KeyPreview = True
End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyEscape Then
        KeyCode = 0 
    End If
End Sub

السلام عليكم

أستاذي أبو يوسف

الله ينور طريقك

شكراً جزيلاً

تحياااااتي