اريد مايكرو لفتح التعديل علي النموذج

[zero1111330566]

اريد مايكرو لفتح التعديل وفتح الحذف علي النموذج 

عندى نموذج مانع عنه التعديل والحذف

بس عايز لما اضغط علي كنترول + حرف t يفعل خاصيه التعديل في النوذج

ولو ضغط علي كنترول + حرف d افعل خاصيه الحذف

 

[Foksh]

وعليكم السلام ورحمة الله تعالى وبركاته..

تقدر تستخدام حدث "On Key Down" في النموذج للتحقق مما إذا كان المستخدم قد ضغط على Ctrl + T أو Ctrl + D ثم تغيير خصائص التعديل والحذف بناءً على ذلك . بس طبعاً لازم تتأكد أن خاصية Key Preview في النموذج = Yes 😅 

وإلا فلن نستفيد من الكود التالي :-

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
 
    If KeyCode = vbKeyT And (Shift And acCtrlMask) <> 0 Then
        Me.AllowEdits = True
        MsgBox "تم تفعيل التعديل", vbInformation
    End If

    If KeyCode = vbKeyD And (Shift And acCtrlMask) <> 0 Then
        Me.AllowDeletions = True
        MsgBox "تم تفعيل الحذف", vbInformation
    End If
End Sub

جرب النتيجة النهائية وأخبرنا بها 😇 

[zero1111330566]

جميل وشاكر جدا 

بس انا عايز وانا في النموذج بمجرد ان اضغط علي كنترول + t تتفعل تلقائى التعديل واقدر اعدل في النموذج   

مايكرو AutoKeys

[Foksh]

2 ساعات مضت, zero1111330566 said:

س انا عايز وانا في النموذج بمجرد ان اضغط علي كنترول + t تتفعل تلقائى التعديل واقدر اعدل في النموذج   

مايكرو AutoKeys

ليس عليك اختيار إجابتي كأفضل إجابة ما لم تكن تريدها بهذا الشكل ، ولكن على العموم شكراً لك 

وللأسف ليس لدي فكرة كالتي تريدها