Mouse İle Açık Formu Kapatmak

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

(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

Teşekkür ederim Onur_can hocam...

Rica ederim, iyi çalışmalar dilerim...