منع العبور الى سجل جديد من خلال زر التالي

[محمد التميمي]

 

السلام عليكم

طيب الله اوقاتكم

في النموذج المرفق يوجد زرين امر للتالي  والسابق

 المطلوب كود لمنع العبور الى سجل جديد من خلال النقر على زر التالي اقصد التوقف الى السجل الاخير 

مع الشكر

thaaer.rar

تم تعديل أغسطس 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

تحياتي

[محمد التميمي]

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

 

تحياتي

الف شكر استاذي الكريم محمد اطال الله في عمرك المديد  بالخير ورضا الله سبحانه وتعالى

هذا هو المطلوب بالفعل شكراً جزيلاً

[محمد التميمي]

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

 

تحياتي

عفواً استاذ محمد

الاكواد في المرفق تعمل بامتياز ولاكن عند تحويلها الى قاعدة البيانات لدي يعمل فقط الكود في زر السابق ( التالي لايعمل )

تم التاكد من الموضوع عدة مرات

[محمد أبوعبدالله]

تفضل هذه طريقة اخرى

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

تحياتي

[محمد التميمي]

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

تحياتي

احسنت وبارك الله بك اخي واستاذي العزيز محمد

مشي الحال التعديل زي الفل والكد يعمل بامتياز

اتعبتك معي شكراً جزيلاً

[محمد أبوعبدالله]

بالتوفيق اخي الكريم

تحياتي

 

[عرفات 007]

جزاك الله الف خير أستاذ محمد عبدالله