وعليكم السلام ورحمة الله
أهلا بالإخوة الكرام.. بخطوتان يتم ذلك بمشيئة الله..
• نضع هذا الكود في النموذج والمبين أنه يوضع في حدث عند مفتاح لأسفل:
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyF And Shift = acCtrlMask Then 'Catch Ctrl+F
KeyCode = 0 'Suppress keypress
End If
End Sub
• ونختار من قائمة حدث - في آخرها - مفتاح المعاينة ونبدله لـ نعم