+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Mouse İle Açık Formu Kapatmak (/konu-mouse-ile-acik-formu-kapatmak.html)
Sayfalar:
1
2
Re: Mouse İle Açık Formu Kapatmak - onur_can - 07/11/2024
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 SubRE: Mouse İle Açık Formu Kapatmak - hmuratg - 08/11/2024
(07/11/2024, 09:05)onur_can yazdı: Merhaba,Teşekkür ederim Onur_can hocam...
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
RE: Mouse İle Açık Formu Kapatmak - onur_can - 08/11/2024
Rica ederim, iyi çalışmalar dilerim...