كيف أجعل كبسة كيبورد "f12" مثلا تحل محل زر أمر

[أبو العقاب]

السلام عليكم ورحمة الله

كما هو واضح أعلاه

لو أن لنا زر أمر يقوم بمعاينة أو طباعة تقرير

والكود هو

Private Sub print_Click()

On Error GoTo Err_print_Click


Dim stDocName As String


stDocName = "re1"

DoCmd.OpenReport stDocName, acNormal


Exit_print_Click:

Exit Sub


Err_print_Click:

MsgBox Err.Description

Resume Exit_print_Click


End Sub

كيف أجعل كبسة الكيبورد f12 مثلا تقوم مقام ذلك الكود

وبارك الله بالجميع

تم تعديل يناير 10, 2013 بواسطه أبو العقاب

[ابوخليل]

لست بحاجة الى هذه الاكواد فعندما تفتح التقرير للمعاينة اضغط على Ctrl+P

وهذا الكود اثبته كما طلبت زيادة في الفائدة

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

Dim stDocName As String

If KeyCode = vbKeyF12 Then

stDocName = "re1"

DoCmd.OpenReport stDocName, acNormal

End If

End Sub

[أبو العقاب]

بارك الله بك أبا خليل

وحيّاك الله

وصلت الفائدة

لست بحاجة الى هذه الاكواد فعندما تفتح التقرير للمعاينة اضغط على Ctrl+P

أحيانا يتطلب الأمر أن تستخدم مفاتيح الكيبورد لتحل محل بعض الأوامر

فمثلا للخروج من البرنامج قد يحتاج المبرمج الضغط على مفتاح esc بدل الأزرار

على العموم أجدد شكري

وبوركت

تم تعديل يناير 10, 2013 بواسطه أبو العقاب