محمد احمد لطفى قام بنشر نوفمبر 14, 2017 مشاركة قام بنشر نوفمبر 14, 2017 السلام عليكم ورحمة الله بركاتيمكننى بالضغط على زرار ctrl + F1 الانتقال الى نموذج أخر و لكن تاتنى رسالة خطأ فى زرار كنترول هل من مساعدة و الرجاء ممكن اكواد الخاصة بزراير الكيبورد If KeyCode = vbKeyF1 and KeyCode = vbKeyctrl Then DoCmd.Close DoCmd.OpenForm "Mab" End If وجزاكم الله خيرا رابط هذا التعليق شارك More sharing options...
محمد احمد لطفى قام بنشر نوفمبر 16, 2017 الكاتب مشاركة قام بنشر نوفمبر 16, 2017 هل من مساعدة رابط هذا التعليق شارك More sharing options...
Shivan Rekany قام بنشر نوفمبر 16, 2017 مشاركة قام بنشر نوفمبر 16, 2017 1 ساعه مضت, محمد احمد لطفى said: هل من مساعدة سؤالك ليس واضحة بما يكفي الرد عليه 1 رابط هذا التعليق شارك More sharing options...
محمد احمد لطفى قام بنشر نوفمبر 16, 2017 الكاتب مشاركة قام بنشر نوفمبر 16, 2017 ببساطة كود F1 = KeyCode = vbKeyF1 ماهو كود زرار كنترول حيث جربت KeyCode = vbKey17 و KeyCode = vbKeyctrl ولم يعملا وجزاكم الله خيراً رابط هذا التعليق شارك More sharing options...
Shivan Rekany قام بنشر نوفمبر 16, 2017 مشاركة قام بنشر نوفمبر 16, 2017 غير خاصية النموذج Key Preview الى True او عند فتح النموذج استخدم هذا الكود Me.KeyPreview = True وبعدين فقط عليك هذا الكود و عند الضغط بمفتاح كنترول و ايف 1 او شيفت و ايف 1 راح يظهر لك مسج Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyF1 Then MsgBox "dd" End If End Sub 1 رابط هذا التعليق شارك More sharing options...
محمد احمد لطفى قام بنشر نوفمبر 16, 2017 الكاتب مشاركة قام بنشر نوفمبر 16, 2017 1 hour ago, Shivan Rekany said: غير خاصية النموذج Key Preview الى True او عند فتح النموذج استخدم هذا الكود Me.KeyPreview = True وبعدين فقط عليك هذا الكود و عند الضغط بمفتاح كنترول و ايف 1 او شيفت و ايف 1 راح يظهر لك مسج Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyF1 Then MsgBox "dd" End If End Sub جزاك الله خيرا ولكن هذا الكود يعمل بالضغط على F1 فقط بدون كنترول test5005.rar رابط هذا التعليق شارك More sharing options...
bobe48000 قام بنشر نوفمبر 17, 2017 مشاركة قام بنشر نوفمبر 17, 2017 السلام عليكم أيضا في نهاية الكود يجب كتابة ،keycode = 0 وهذا من أجل عرقلة مهام زر F1 الذي يفتح نافذة المساعده في برنامج access 1 1 رابط هذا التعليق شارك More sharing options...
محمد احمد لطفى قام بنشر نوفمبر 17, 2017 الكاتب مشاركة قام بنشر نوفمبر 17, 2017 1 hour ago, bobe48000 said: السلام عليكم أيضا في نهاية الكود يجب كتابة ،keycode = 0 وهذا من أجل عرقلة مهام زر F1 الذي يفتح نافذة المساعده في برنامج access F1 شغال لوحدة تمام ولكن للأمان حيث لا اريد اى أحد ان يفتح نموذج خاص أريد أن اجعله بزرارين كان هناك صورة للكيبورد خاصة بـ KeyCode و لكن بحثت عنها ول م أجدها رابط هذا التعليق شارك More sharing options...
محمد احمد لطفى قام بنشر نوفمبر 17, 2017 الكاتب مشاركة قام بنشر نوفمبر 17, 2017 If KeyCode = vbKeyControl And KeyCode = vbKeyF2 Then MsgBox "dd" End If الأن كل زرار يعمل لوحده ولكن بجمعهما معا لا يعملان رابط هذا التعليق شارك More sharing options...
Shivan Rekany قام بنشر نوفمبر 17, 2017 مشاركة قام بنشر نوفمبر 17, 2017 6 ساعات مضت, محمد احمد لطفى said: If KeyCode = vbKeyControl And KeyCode = vbKeyF2 Then MsgBox "dd" End If الأن كل زرار يعمل لوحده ولكن بجمعهما معا لا يعملان اتفضل استخدم هذا Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyF1 And Shift = 2 Then MsgBox "ff" KeyCode = 0 End If End Sub هو للمفتاح كنترول مع ايف وان واذا تريد تستخدم مفتاح شيفت مع ئيف وان غير رقم 2 الى رقم واحد فقط تحياتي 1 رابط هذا التعليق شارك More sharing options...
محمد احمد لطفى قام بنشر نوفمبر 17, 2017 الكاتب مشاركة قام بنشر نوفمبر 17, 2017 4 minutes ago, Shivan Rekany said: اتفضل استخدم هذا Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyF1 And Shift = 2 Then MsgBox "ff" KeyCode = 0 End If End Sub هو للمفتاح كنترول مع ايف وان واذا تريد تستخدم مفتاح شيفت مع ئيف وان غير رقم 2 الى رقم واحد فقط تحياتي جزاك الله خيرا رابط هذا التعليق شارك More sharing options...
أفضل إجابة Shivan Rekany قام بنشر نوفمبر 17, 2017 أفضل إجابة مشاركة قام بنشر نوفمبر 17, 2017 3 دقائق مضت, محمد احمد لطفى said: جزاك الله خيرا وجزاك الله كل خير وللمنفعة اكثر اليك طريقة اخر Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Dim intShiftDown As Integer, intAltDown As Integer Dim intCtrlDown As Integer ' Use bit masks to determine which key was pressed. intShiftDown = (Shift And acShiftMask) > 0 intAltDown = (Shift And acAltMask) > 0 intCtrlDown = (Shift And acCtrlMask) > 0 ' Display message telling user which key was pressed. If KeyCode = vbKeyF1 And intShiftDown Then MsgBox "تم الضغط على مفتاح شيفت و ايف وان": KeyCode = 0 If KeyCode = vbKeyF1 And intAltDown Then MsgBox "تم الضغط علي مفتاح الت و ايف وان": KeyCode = 0 If KeyCode = vbKeyF1 And intCtrlDown Then MsgBox "تم الضغط على مفتاح كنترول و ايف وان": KeyCode = 0 End Sub 1 رابط هذا التعليق شارك More sharing options...
bobe48000 قام بنشر نوفمبر 17, 2017 مشاركة قام بنشر نوفمبر 17, 2017 Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If ((Shift And acCtrlMask) <> 0) And (KeyCode = vbKeyF1) Then KeyCode = 0 MsgBox "vrai" End If End Sub essaye ça 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان