كيف أعمل مفتاح أختصار معين ؟

أخي العزيز أرجو أن يكون هذا هو ما تطلب والسلام

أخوك أحمد

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

Dim intShiftDown As Integer, intAltDown As Integer

Dim intCtrlDown As Integer

intAltDown = (Shift And acAltMask) > 0

If intAltDown And KeyCode = 72 Then ' MsgBox "You pressed the ALT key."

DoCmd.Close

End If

End Sub

ولا تنسى ان تغير الخاصية مفتاح العرض التمهيدي الى نعم

والله الموفق

الله يبارك فيك وفي أمثالك

وإن أمكن أن ترفق لي الملف فأكون لك من الشاكرين

تفضل

إغلاق نموذج بالضغط على alt+h.rar

الأخ العزيز/muslim-es

ما أقول لك إلا الله يبارك فيك ويكثر من أمثالك

أهلا وسهلا بك أخي العزيز ، بالتوفيق إن شاء الله

الأخ العزيز/muslim-es

قمت بتطبيق الكود في نموذج آخر لكن الأمر لم ينفع....

ما السبب...

وما الحل

أخي قد تكون نسيت شيئا ما ،،، هل لك أن تضع هذا النموذج كي أرى ما هو السبب ؟؟

كي أفيدك أكثر !!!!

الأخ/muslim-es

شكرا جزيلا لك لاهتمامك بي

الحمد لله وجدت الحل

على الرحب والسعة