مساعدة حول ايقاف سكرول الماوس

بدأه emad-k55 في 27 نوفمبر 2011 · 6 رد · 501 مشاهدة · في قواعد بيانات Microsoft Access

مشاركة: واتساب X فيسبوك تيليجرام

#127 نوفمبر 2011 في 19:47 صاحب الموضوع

طلب من اهل الخبرة

اريد ايقاف سكرول الماوس في النموذج وعدم الانتقال الى سجل اخر

#227 نوفمبر 2011 في 20:08

اخي الفاضل

السلام عليكم ورحمة الله وبركاته

تفضل هذه الكودين لإيقاف عجلة الماوس مقدمه من اخونا ( ابو مريم ) جزاه الله كل خير

الكود الأول

انسخ الجزء الأول ثم انسخ الجزء الثاني وضعهم في النموذج

Public CurrentBookmark As String
Public MouseWheelMoved As Boolean
Public N As Integer
Private Sub Form_Current()
If N = 1 And MouseWheelMoved = True Then
  DoCmd.GoToRecord , , acNewRec
  MouseWheelMoved = False
ElseIf N = 0 And MouseWheelMoved = True Then
  Me.Bookmark = CurrentBookmark
  MouseWheelMoved = False
End If
End Sub

Private Sub Form_MouseWheel(ByVal Page As Boolean, ByVal Count As Long)
Me.Refresh
If Me.NewRecord = True Then
  N = 1
  MouseWheelMoved = True
  MsgBox "cannot use mouse wheel"
Else
  N = 0
  CurrentBookmark = Me.Bookmark
  MouseWheelMoved = True
  MsgBox "تم ايقاف عجلة الماوس", vbCritical & vbOK, "Warning - alalal - ابو مريم"
End If
End Sub

------------------

الكود الثاني

انسخ الجزء الأول ثم انسخ الجزء الثاني وضعهم في النموذج

Private Mouse As Integer
Private Sub Form_Current()
   On Error Resume Next
    If Mouse = -1 Then
    Mouse = 0
    DoCmd.GoToRecord , , acPrevious
    End If
    If Mouse = 1 Then
    Mouse = 0
    DoCmd.GoToRecord , , acNext
    End If
End Sub

Private Sub Form_MouseWheel(ByVal Page As Boolean, ByVal Count As Long)
    On Error Resume Next
    If Count > 0 Then
    Mouse = -1
    ElseIf Count < 0 Then
    Mouse = 1
    End If
    MsgBox "تم ايقاف عجلة الماوس", vbCritical & vbOK, "Warning - alalal - ابو مريم"
End Sub

وهذا مثال مقدم من اخونا ايو مريم

حدثين لايقاف الماوس.rar

بالتوفيق

post-15367-087183200%201340344597.gif