محمد التميمي قام بنشر أغسطس 21, 2021 مشاركة قام بنشر أغسطس 21, 2021 (معدل) السلام عليكم طيب الله اوقاتكم في النموذج المرفق يوجد زرين امر للتالي والسابق المطلوب كود لمنع العبور الى سجل جديد من خلال النقر على زر التالي اقصد التوقف الى السجل الاخير مع الشكر thaaer.rar تم تعديل أغسطس 21, 2021 بواسطه محمد التميمي رابط هذا التعليق شارك More sharing options...
أفضل إجابة محمد أبوعبدالله قام بنشر أغسطس 21, 2021 أفضل إجابة مشاركة قام بنشر أغسطس 21, 2021 وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم Private Sub Command105_Click() On Error GoTo Err: DoCmd.GoToRecord , , acNext Err: If Err.Number = 2105 Then Exit Sub End If End Sub Private Sub Command106_Click() On Error GoTo Err: DoCmd.GoToRecord , , acPrevious Err: If Err.Number = 2105 Then Exit Sub End If End Sub thaaer.rar تحياتي 2 رابط هذا التعليق شارك More sharing options...
محمد التميمي قام بنشر أغسطس 21, 2021 الكاتب مشاركة قام بنشر أغسطس 21, 2021 8 دقائق مضت, محمد أبوعبدالله said: وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم Private Sub Command105_Click() On Error GoTo Err: DoCmd.GoToRecord , , acNext Err: If Err.Number = 2105 Then Exit Sub End If End Sub Private Sub Command106_Click() On Error GoTo Err: DoCmd.GoToRecord , , acPrevious Err: If Err.Number = 2105 Then Exit Sub End If End Sub تحياتي الف شكر استاذي الكريم محمد اطال الله في عمرك المديد بالخير ورضا الله سبحانه وتعالى هذا هو المطلوب بالفعل شكراً جزيلاً رابط هذا التعليق شارك More sharing options...
محمد التميمي قام بنشر أغسطس 21, 2021 الكاتب مشاركة قام بنشر أغسطس 21, 2021 28 دقائق مضت, محمد أبوعبدالله said: وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم Private Sub Command105_Click() On Error GoTo Err: DoCmd.GoToRecord , , acNext Err: If Err.Number = 2105 Then Exit Sub End If End Sub Private Sub Command106_Click() On Error GoTo Err: DoCmd.GoToRecord , , acPrevious Err: If Err.Number = 2105 Then Exit Sub End If End Sub تحياتي عفواً استاذ محمد الاكواد في المرفق تعمل بامتياز ولاكن عند تحويلها الى قاعدة البيانات لدي يعمل فقط الكود في زر السابق ( التالي لايعمل ) تم التاكد من الموضوع عدة مرات رابط هذا التعليق شارك More sharing options...
محمد أبوعبدالله قام بنشر أغسطس 21, 2021 مشاركة قام بنشر أغسطس 21, 2021 تفضل هذه طريقة اخرى Private Sub Command105_Click() With Recordset If Recordset.AbsolutePosition = .RecordCount - 1 Then DoCmd.GoToRecord , , acLast Else DoCmd.GoToRecord , , acNext End If End With End Sub Private Sub Command106_Click() With Recordset If .AbsolutePosition = .RecordCount - 1 Then DoCmd.GoToRecord , , acPrevious Else DoCmd.GoToRecord , , acFirst End If End With End Sub تحياتي 1 1 رابط هذا التعليق شارك More sharing options...
محمد التميمي قام بنشر أغسطس 21, 2021 الكاتب مشاركة قام بنشر أغسطس 21, 2021 14 دقائق مضت, محمد أبوعبدالله said: تفضل هذه طريقة اخرى Private Sub Command105_Click() With Recordset If Recordset.AbsolutePosition = .RecordCount - 1 Then DoCmd.GoToRecord , , acLast Else DoCmd.GoToRecord , , acNext End If End With End Sub Private Sub Command106_Click() With Recordset If .AbsolutePosition = .RecordCount - 1 Then DoCmd.GoToRecord , , acPrevious Else DoCmd.GoToRecord , , acFirst End If End With End Sub تحياتي احسنت وبارك الله بك اخي واستاذي العزيز محمد مشي الحال التعديل زي الفل والكد يعمل بامتياز اتعبتك معي شكراً جزيلاً رابط هذا التعليق شارك More sharing options...
محمد أبوعبدالله قام بنشر أغسطس 21, 2021 مشاركة قام بنشر أغسطس 21, 2021 بالتوفيق اخي الكريم تحياتي رابط هذا التعليق شارك More sharing options...
عرفات 007 قام بنشر أكتوبر 12, 2021 مشاركة قام بنشر أكتوبر 12, 2021 جزاك الله الف خير أستاذ محمد عبدالله رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.