shod90 قام بنشر فبراير 20, 2017 مشاركة قام بنشر فبراير 20, 2017 السلام عليكم اخواتي في الله عندي مشكله بسيطه و لكن مزعجة في القارير لو نتيجة التقرير اكبر من طول الشاشه فالطبيعي يبقي في scrollbar اقدر من خلاله انزل لباقي التقرير و الطبيعي ايضا اني لو استخدمت عجله الماوس للنزول انه ينزل .. و لكن هذا لا بحدث .. يجب الضغط علي ال scrollbar عشان ينزل لباقي التقرير رابط هذا التعليق شارك More sharing options...
shod90 قام بنشر فبراير 21, 2017 الكاتب مشاركة قام بنشر فبراير 21, 2017 Up رابط هذا التعليق شارك More sharing options...
Mostafa Elmahmoudy قام بنشر فبراير 22, 2017 مشاركة قام بنشر فبراير 22, 2017 انشىء هذه الوحدة النمطية بإسم 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 و بالتوفيق انشاء الله رابط هذا التعليق شارك More sharing options...
shod90 قام بنشر فبراير 23, 2017 الكاتب مشاركة قام بنشر فبراير 23, 2017 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 و بالتوفيق انشاء الله للأسف ظهرت رسالة خطأ رابط هذا التعليق شارك More sharing options...
Mostafa Elmahmoudy قام بنشر مارس 6, 2017 مشاركة قام بنشر مارس 6, 2017 (معدل) جرب كدة المرة دى كان فى مشكلة فى النسخ و اللصق انشىء هذه الوحدة النمطية بإسم 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 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.