پیمایش با غلطک ماوس در رکوردهای فرم

Occurs when the user rolls the mouse wheel in Form view, Split Form view, Datasheet view, Layout view, PivotChart view, or PivotTable view.

زمانی اتفاق می افتد که کاربر غلطک ماوس را می گرداند در حالت نمایش فرم هایی که قید کرده. 

Syntax  (  نوشتاری ) 

expression.MouseWheel (Page, Count)

برای پیمایش در رکوردها در فرم با غلطک ماوس از  پارامتر Count این رویداد و اکشن  GotoRecord استفاده کنید برای تحت فشار قراردادن کاربر برای ذخیره کردن دیتا قبل از پیمایش از  not Me.Dirty استفاده کنید.

پارامتر Count شماره لیست های که در Scroll view می بینید ( یعنی  200 رکورد در فرم کانتینیوس دارید ولی هر بار که غلطک را می گردانید آن تعداد که قابل view ی شما است را برمی گرداند فرضا شما در کنترل Scroll بعد از رولیدن یا چرخاندن 20 رکورد می بینید Count را 20 به شما می دهد و پارامتر Page هم Page Number ).

استفاده از پارامتر Count و اکشن GotoRecord

If (Count < 0) And (Me.CurrentRecord > 1) Then

DoCmd.GoToRecord , , acPrevious

End If

استفاده از پارامتر Page :  مثال زیر چنانچه به Page بعد انتقال پیدا کردید پیامی را در مسیج باکس نمایش می دهد

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

If Page = True Then MsgBox "You've moved to another page."

End If

End Sub

برای جلوگیری  از پیمایش در رکوردها در فرم توسط MouseWheel :  ( یک Dll است که با Vb6 نوشته شده و یا حتی نسخ بالاتر ، یک کلاس ماژول و یک استاندارد ماژول دارد که با WithEvents دسترسی به Event آبجکت فراهم می شود..... Hook کردن پنجره فرم و ارسال پیام ویندوزی WM_MOUSEWHEEL برای کنسل کردن پیمایش یا رولیدن.

access/forms/wheel

تمام  موارد گفته شده در داکیومنت آفیس وجود دارد و بر گرفته از آنجاست  ، غیر از Hook کردن پنجره برای ارسال پیام ها به Parent آنها که مایکروسافت آفیس این کار را هرگز توصیه نکرده و نخواهد کرد شما هم سعی در انجام اینکار بعلت Conflict ها و از بین بردن دیتابیستون نداشته باشید.

لطفا در نظر سنجی شرکت کنید