gg77 قام بنشر يناير 9, 2022 مشاركة قام بنشر يناير 9, 2022 السلام عليكم يااخواني اشتي طريقة اتنقل بين حقول النموذج في الاكسيس عن طريق مفاتيح الاسهم بين الكيبورد بدل من زر.tap رابط هذا التعليق شارك More sharing options...
ناقل قام بنشر يناير 9, 2022 مشاركة قام بنشر يناير 9, 2022 منذ ساعه, 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 1 رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر يناير 9, 2022 مشاركة قام بنشر يناير 9, 2022 وعليكم السلام 🙂 او https://www.devhut.net/use-arrow-keys-to-navigate-continuous-form-records/ جعفر 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان