zero1111330566 قام بنشر مارس 27 قام بنشر مارس 27 اريد مايكرو لفتح التعديل وفتح الحذف علي النموذج عندى نموذج مانع عنه التعديل والحذف بس عايز لما اضغط علي كنترول + حرف t يفعل خاصيه التعديل في النوذج ولو ضغط علي كنترول + حرف d افعل خاصيه الحذف 1
تمت الإجابة Foksh قام بنشر مارس 27 تمت الإجابة قام بنشر مارس 27 وعليكم السلام ورحمة الله تعالى وبركاته.. تقدر تستخدام حدث "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 جرب النتيجة النهائية وأخبرنا بها 😇 1
zero1111330566 قام بنشر مارس 27 الكاتب قام بنشر مارس 27 جميل وشاكر جدا بس انا عايز وانا في النموذج بمجرد ان اضغط علي كنترول + t تتفعل تلقائى التعديل واقدر اعدل في النموذج مايكرو AutoKeys 1
Foksh قام بنشر مارس 27 قام بنشر مارس 27 2 ساعات مضت, zero1111330566 said: س انا عايز وانا في النموذج بمجرد ان اضغط علي كنترول + t تتفعل تلقائى التعديل واقدر اعدل في النموذج مايكرو AutoKeys ليس عليك اختيار إجابتي كأفضل إجابة ما لم تكن تريدها بهذا الشكل ، ولكن على العموم شكراً لك وللأسف ليس لدي فكرة كالتي تريدها
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.