طريقة انتقال بين سجلات بالوحدة النمطية

[jamal2080]

Function FirstRcd(Frm)
On Error Resume Next

If Frm.Dirty = False Then
        On Error GoTo Err:
        DoCmd.GoToRecord , "", acFirst
        Exit Function
Err:
        If Err.Number = 2105 Then
        MsgBox "لا يمكن الذهاب إلى السجل المطلوب", vbCritical + vbMsgBoxRight, "خطأ"
        End If
Else
       MsgBox "تم تغيير محتويات النافذة يرجى الحفظ التغييرات", vbCritical

End If
End Function
Function NextRcd(Frm)
On Error Resume Next
If Frm.Dirty = False Then
        On Error GoTo Err:
        DoCmd.GoToRecord , "", acNext
        Exit Function
Err:
        If Err.Number = 2105 Then
        MsgBox "لا يمكن الذهاب إلى السجل المطلوب", vbCritical + vbMsgBoxRight, "خطأ"
        End If
Else
MsgBox "تم تغيير محتويات النافذة يرجى الحفظ التغييرات", vbCritical
End If

End Function

Function prevRcd(Frm)
On Error Resume Next
If Frm.Dirty = False Then
        On Error GoTo Err:
        DoCmd.GoToRecord , "", acPrevious
        Exit Function
Err:
        If Err.Number = 2105 Then
        MsgBox "لا يمكن الذهاب إلى السجل المطلوب", vbCritical + vbMsgBoxRight, "خطأ"
        End If
Else
       MsgBox "تم تغيير محتويات النافذة يرجى الحفظ التغييرات", vbCritical
End If

End Function

Function LastRcd(Frm)
On Error Resume Next
If Frm.Dirty = False Then
          On Error GoTo Err:
      DoCmd.GoToRecord , "", acLast
        Exit Function
Err:
        If Err.Number = 2105 Then
        MsgBox "لا يمكن الذهاب إلى السجل المطلوب", vbCritical + vbMsgBoxRight, "خطأ"
        End If
Else
       MsgBox "تم تغيير محتويات النافذة يرجى الحفظ التغييرات", vbCritical

End If
End Function

استدعاء الامر  

Call NavigationModule.NextRcd(Me)

هل يوجد خطاء فى الكود

[jjafferr]

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

 

قام الاخ موسى بكتاية اكواد فريق الانتقال (GotoRecord) كاملا هنا :