المساعدة في رسالة تنبيه

[ازهر عبد العزيز]

السلام عليكم 

في النمودجMIF احتاج اظهار رسالة تحدير في حالة الوقوف على اول سجل وايضا رسالة تحدير في حالة الوقوف على اخر سجل

MI.accdb

[husamwahab]

جرب هذا الكود

Private Sub Form_Current()

  If Me.CurrentRecord = 1 Then
    MsgBox "First Record"
  ElseIf Me.CurrentRecord = DCount("*", "M1") Then
    MsgBox "Last Record"
  End If

End Sub