Mouse ile Sol, Sağ ve Orta tuşuna basınca formu kapatmak için aşağıdaki kodu kullanabilirsiniz. Orta tuş eski mouse larda bulunuyordu, günümüzde kullanılan mouse larda orta tuş artık kullanılmıyor.
Private Sub Ayrıntı_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
'Sol Tuşa Basınca Kapat
If Button = acLeftButton Then
MsgBox "Sol Tuşa Basıldığına Formu Kapat"
DoCmd.Close acForm, "FormAdı"
End If
'Sağ Tuşa Basınca Kapat
If Button = acRightButton Then
MsgBox "Sağ Basıldığına Formu Kapat"
DoCmd.Close acForm, "FormAdı"
End If
'Orta Tuşa Basınca Kapat
If Buton = acMiddleButton Then
MsgBox "Orta Tuşa Basıldığına Formu Kapat"
DoCmd.Close acForm, "FormAdı"
End If
End Sub