الانتقال بين الحقول النموذج اكسيس عن طريق مفاتيح الاسهم

[gg77]

السلام عليكم يااخواني اشتي طريقة اتنقل بين حقول النموذج في الاكسيس عن طريق مفاتيح الاسهم بين الكيبورد بدل من زر.tap

[ناقل]

منذ ساعه, gg77 said:

السلام عليكم يااخواني اشتي طريقة اتنقل بين حقول النموذج في الاكسيس عن طريق مفاتيح الاسهم بين الكيبورد بدل من زر.tap

وعليكم السلام

في النموذج ... حدث عند مفتاح للاسفل ... ضع هذه الشيفرة وجرب    ....    واعلمنا بالنتيجة ...

    On Error GoTo HandleErrors
Me.KeyPreview = True
    Select Case KeyCode
        Case vbKeyLeft
            SendKeys "^{TAB}", True
        Case vbKeyRight
            SendKeys "+{TAB}", True
        Case vbKeyDown
            SendKeys "^{PGDN}", True
        Case vbKeyUp
            SendKeys "^{PGUP}", True
      
    End Select
    Exit Sub

HandleErrors:
    Select Case Err.Number
        Case 2105
            KeyCode = 0
        Case Else
            MsgBox "Error: " & Err.Number & " " & Err.Description
    End Select

 

أو جرب هذا ايضا .....

On Error Resume Next

    Select Case KeyCode

        Case vbKeyDown

                   If KeyCode = vbKeyUp Then

    DoCmd.GoToRecord , , acPrevious
  End If
  If KeyCode = vbKeyDown Then
    DoCmd.GoToRecord , , acNext
  End If


        Case vbKeyUp
               
                If KeyCode = vbKeyUp Then
    DoCmd.GoToRecord , , acPrevious
  End If
  
  If KeyCode = vbKeyDown Then
    DoCmd.GoToRecord , , acNext
  End If
  Case vbKeyReturn
          
           KeyCode = 0
        
    End Select

 

[jjafferr]

وعليكم السلام 🙂

 

او https://www.devhut.net/use-arrow-keys-to-navigate-continuous-form-records/

 

جعفر