Kod:
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