#1
Private Sub cmdMultiClick_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim SelectedFunction As String
If Button = acLeftButton Then
If (Shift And acShiftMask) Then
SelectedFunction = "Shift-Left click!"
Else
SelectedFunction = "Left click!"
End If
ElseIf Button = acRightButton Then
SelectedFunction = "Right click!"
' Cancel the default right-click behavior (open context menu)
DoCmd.CancelEvent
End If
MsgBox SelectedFunction, vbInformation
End Sub(02/05/2020, 13:24)feraz yazdı: Click değil mouseup olayı var orda."Left click!" Var
If Button = acLeftButton And (Shift And acShiftMask) Then
MsgBox "Shift-Left click!"
ElseIf Button = acRightButton And (Shift And acShiftMask) Then
MsgBox "Shift-Right click!"
DoCmd.CancelEvent
ElseIf Button = acMiddleButton And (Shift And acShiftMask) Then
MsgBox "Shift - Middle click!"
End If