مساعدة استخدام الكيبورد داخل النموذج

[محمد احمد لطفى]

السلام عليكم ورحمة الله  بركاتيمكننى بالضغط على زرار
ctrl + F1
الانتقال الى نموذج أخر 
و لكن تاتنى رسالة خطأ فى زرار كنترول 
هل من مساعدة 
و الرجاء ممكن اكواد الخاصة بزراير الكيبورد 
 

If KeyCode = vbKeyF1 and KeyCode = vbKeyctrl Then
DoCmd.Close
DoCmd.OpenForm "Mab"

End If

وجزاكم الله خيرا

[محمد احمد لطفى]

هل من مساعدة

[Shivan Rekany]

1 ساعه مضت, محمد احمد لطفى said:

هل من مساعدة

سؤالك ليس واضحة بما يكفي الرد عليه 

[محمد احمد لطفى]

ببساطة 
كود 
F1 = 

KeyCode = vbKeyF1

ماهو كود زرار كنترول 
حيث جربت  

 

KeyCode = vbKey17

و

 

KeyCode = vbKeyctrl

ولم يعملا

وجزاكم الله خيراً

[Shivan Rekany]

غير خاصية النموذج 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 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

[bobe48000]

 السلام عليكم أيضا في نهاية الكود يجب كتابة ،keycode = 0 وهذا من أجل عرقلة مهام زر F1 الذي يفتح نافذة المساعده في برنامج access

[محمد احمد لطفى]

1 hour ago, bobe48000 said:

 السلام عليكم أيضا في نهاية الكود يجب كتابة ،keycode = 0 وهذا من أجل عرقلة مهام زر F1 الذي يفتح نافذة المساعده في برنامج access

F1 
شغال لوحدة تمام 
ولكن للأمان حيث لا اريد اى أحد ان يفتح نموذج خاص أريد أن اجعله بزرارين 


 

كان هناك صورة للكيبورد خاصة بـ

KeyCode 

و لكن بحثت عنها ول م أجدها 

[محمد احمد لطفى]

If KeyCode = vbKeyControl And KeyCode = vbKeyF2 Then
    MsgBox "dd"

End If

الأن كل زرار يعمل لوحده ولكن بجمعهما معا لا يعملان

 

[Shivan Rekany]

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 الى رقم واحد فقط

تحياتي

[محمد احمد لطفى]

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 الى رقم واحد فقط

تحياتي

جزاك الله خيرا 

[Shivan Rekany]

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

 

[bobe48000]

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