كيف يمكن إيقاف عمل الزرين page up و page dwon في التنقل بين السجلات

[عبد الله قدور]

السلام عليكم

كيف يمكنني ايقاف عملية التنقل بين السجلات باستخدام page up  و page down  لتنقل بين السجلات

المطلوب ايقاف عمل هذين الزرين في النموذج

[jjafferr]

وعليكم السلام أخي عبدالله

 

هاي الكود من VBA Help مباشرة ، الظاهر معمول ومفصّل لك

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

    ' The Keycode value represents the key that
    ' triggered the event.
    Select Case KeyCode
   
        ' Check for the PAGE UP and PAGE DOWN keys.
        Case 33, 34

        ' Cancel the keystroke.
        KeyCode = 0
    End Select
End Sub

 

جعفر

[عبد الله قدور]

43 دقائق مضت, jjafferr said:

وعليكم السلام أخي عبدالله

 

هاي الكود من VBA Help مباشرة ، الظاهر معمول ومفصّل لك

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

    ' The Keycode value represents the key that
    ' triggered the event.
    Select Case KeyCode
   
        ' Check for the PAGE UP and PAGE DOWN keys.
        Case 33, 34

        ' Cancel the keystroke.
        KeyCode = 0
    End Select
End Sub

 

جعفر

السلام عليكم

كيف حالك اخي جعفر جزاك الله كل خير على ردك

لكن اخي هذا الكود لم يوقف عم الازرار وما زالوا يعملون

 

[jjafferr]

حياك الله أخوي عبدالله

 

في اعدادات النموذج ، آخر اعداد ، Key Preview ، اجعله نعم 

.

جعفر

[عبد الله قدور]

4 دقائق مضت, jjafferr said:

حياك الله أخوي عبدالله

 

في اعدادات النموذج ، آخر اعداد ، Key Preview ، اجعله نعم 

فعلا تستحق احلى لايك

[jjafferr]