من راهها بالا رو امتحان کردم

روشهایی که به api ها مربوط می شه توی همه ورژن ها کار نمی کنه
ولی روشی که توی پست 12 ارائه شده عالیترین و راحت ترین روشه حتی توی office 2013 اونم 64 بیتی.
من با کمی اصلاح دوباره می ذارمش




Private Sub Form_MouseWheel(ByVal Page As Boolean, ByVal Count As Long)





If Count >= 1 Then

DoCmd.GoToRecord , , acNext

ElseIf Count <= -1 Then

DoCmd.GoToRecord , , acPrevious

End If



End Sub


در روش فوق مقدار count رو از تعداد wheel mouse که توی کنترل پنل قایل دسترس هست گرفته می شه که من اون رو به 1 و 1- تغییر دادم تا حتی اگه کسی اومد مقدار رو کم و زیاد هم کرد (برای تغییر حساسیت) بازم کد کار کنه

در ضمن با عوض کردن - و بی علامت 1 در حقیقت با بالا و پایین بردن اسکرول موس فرم به رکورد بعدی و قبلی می رود

که من بنابر نیاز خودم کد رو در پست 12 برعکس کردم

ممنون از فرستنده با درایت پست 12