(07/11/2024, 09:05)onur_can yazdı: Merhaba,
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

Kodu Seç

Kodu Kopyala

Teşekkür ederim Onur_can hocam...