Farenin sol çift tıklama olayı için ayrı olay yordamı var, ancak sağ çift tıklamayı shift veya alt butonu ile kullanmadan bu işlemi yapamazsın.

    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

shift tuşuna basılı tutarak tıklama kodu.