عجلة الفأرة في التقارير

[shod90]

السلام عليكم اخواتي في الله

عندي مشكله بسيطه و لكن مزعجة في القارير 

لو نتيجة التقرير اكبر من طول الشاشه فالطبيعي يبقي في scrollbar اقدر من خلاله انزل لباقي التقرير

و الطبيعي ايضا اني لو استخدمت عجله الماوس للنزول انه ينزل .. و لكن هذا لا بحدث .. يجب الضغط علي ال scrollbar عشان ينزل لباقي التقرير 

[shod90]

Up

[Mostafa Elmahmoudy]

انشىء هذه الوحدة النمطية بإسم   mod_Mouse_Wheel

 

Option Compare Database

Public Function DoMouseWheel(frm As Form, lngCount As Long) As Integer
On Error Resume Next

Dim strMsg As String
If (Val(SysCmd(acSysCmdAccessVer)) >= 12#) And (frm.CurrentView = 1) And (lngCount <> 0&) Then
RunCommand acCmdSaveRecord
RunCommand IIf(lngCount < 0&, acCmdRecordsGoToPrevious, acCmdRecordsGoToNext)
DoMouseWheel = Sgn(lngCount)
End If

DoCmd.CancelEvent
Response = False
End Function

 

 

ثم ضع هذا الكود فى التقرير على حدث on Mouse Wheel

 

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

'Call DoMouseWheel(Me, Count)
End Sub

و بالتوفيق انشاء الله

[shod90]

20 hours ago, Mostafa Elmahmoudy said:

انشىء هذه الوحدة النمطية بإسم   mod_Mouse_Wheel

 

Option Compare Database

Public Function DoMouseWheel(frm As Form, lngCount As Long) As Integer
On Error Resume Next

Dim strMsg As String
If (Val(SysCmd(acSysCmdAccessVer)) >= 12#) And (frm.CurrentView = 1) And (lngCount <> 0&) Then
RunCommand acCmdSaveRecord
RunCommand IIf(lngCount < 0&, acCmdRecordsGoToPrevious, acCmdRecordsGoToNext)
DoMouseWheel = Sgn(lngCount)
End If

DoCmd.CancelEvent
Response = False
End Function

 

 

ثم ضع هذا الكود فى التقرير على حدث on Mouse Wheel

 

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

'Call DoMouseWheel(Me, Count)
End Sub

و بالتوفيق انشاء الله

للأسف ظهرت رسالة خطأ

[Mostafa Elmahmoudy]

جرب كدة المرة دى

كان فى مشكلة فى النسخ و اللصق 

انشىء هذه الوحدة النمطية بإسم   mod_Mouse_Wheel

 

Public Function DoMouseWheel(frm As Form, lngCount As Long) As Integer
On Error Resume Next

Dim strMsg As String
If (Val(SysCmd(acSysCmdAccessVer)) >= 12#) And (frm.CurrentView = 1) And (lngCount <> 0&) Then
RunCommand acCmdSaveRecord
RunCommand IIf(lngCount < 0&, acCmdRecordsGoToPrevious, acCmdRecordsGoToNext)
DoMouseWheel = Sgn(lngCount)
End If

DoCmd.CancelEvent
Response = False
End Function

 

 

ثم ضع هذا الكود فى التقرير على حدث on Mouse Wheel

Call DoMouseWheel(Me, Count)

 

و بالتوفيق انشاء الله

 

 

تم تعديل مارس 6, 2017 بواسطه Mostafa Elmahmoudy