با این کد در زمان استفاده از Mouse Scrool یا همون Mouse Wheel در صورتیکه فوکوس به فیلدهای اول و آخر منتقل بشه پیغامی مبنی بر اولین رکورد یا آخرین رکود صادر میشه .
کدهای زیر رو در رخداد On Mouse Wheel کپی کنید :
If Count > 0 Then
If Me.CurrentRecord = Me.RecordsetClone.RecordCount + 1 Then
MsgBox "! آخرین رکورد", vbInformation + vbMsgBoxRight, "پیمایش رکوردها"
Else
DoCmd.GoToRecord , , acNext
End If
ElseIf Me.CurrentRecord - 1 = 0 Then
MsgBox "! اولین رکورد", vbInformation + vbMsgBoxRight, "پیمایش رکوردها"
Else
DoCmd.GoToRecord , , acPrevious
End If
پاسخ با نقل قول
