تعطيل قائمة بحث واستبدال في النموذج

[ابو انس 2015]

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

بعد تحياتي لكم جميعا ،

اريد كود يوضع في الحالي للنموذج يقوم بتعطيل قائمة حوار بحث واستبدال عن الضغط على زر ctrl + f

[ديو05]

وانا بعد ابي ياليت تفيدونا يالغالين

[عبدالرحمن هاشم]

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

أهلا بالإخوة الكرام.. بخطوتان يتم ذلك بمشيئة الله..

• نضع هذا الكود في النموذج والمبين أنه يوضع في حدث عند مفتاح لأسفل:

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

• ونختار من قائمة حدث - في آخرها - مفتاح المعاينة ونبدله لـ نعم

 

[ابو انس 2015]

بوركت أخي عبد الرحمن وجزاك الله خيرا على هذه المساعدة لقد تم المطلوب