+- 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
Mouse İle Açık Formu Kapatmak - hmuratg - 06/11/2024
Merhaba, arkadaşlar formu kapat tuşu haricinde mouse ile çift tık veya tek tık ile kapatılabilirmi? Tşk.
RE: Mouse İle Açık Formu Kapatmak - C*e*l*o*y*c*e - 06/11/2024
(06/11/2024, 15:46)hmuratg yazdı: Merhaba, arkadaşlar formu kapat tuşu haricinde mouse ile çift tık veya tek tık ile kapatılabilirmi? Tşk.
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
' Sol tıklama (1 = sol buton) ile formu kapat
If Button = 1 Then
DoCmd.Close
End If
End Sub
RE: Mouse İle Açık Formu Kapatmak - hmuratg - 06/11/2024
(06/11/2024, 16:16)C*e*l*o*y*c*e yazdı:(06/11/2024, 15:46)hmuratg yazdı: Merhaba, arkadaşlar formu kapat tuşu haricinde mouse ile çift tık veya tek tık ile kapatılabilirmi? Tşk.
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
' Sol tıklama (1 = sol buton) ile formu kapat
If Button = 1 Then
DoCmd.Close
End If
End Sub
Çok teşekkür ederim.
RE: Mouse İle Açık Formu Kapatmak - hmuratg - 06/11/2024
(06/11/2024, 16:16)C*e*l*o*y*c*e yazdı:(06/11/2024, 15:46)hmuratg yazdı: Merhaba, arkadaşlar formu kapat tuşu haricinde mouse ile çift tık veya tek tık ile kapatılabilirmi? Tşk.
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
' Sol tıklama (1 = sol buton) ile formu kapat
If Button = 1 Then
DoCmd.Close
End If
End Sub
Merhaba C*e*l*o*y*c*e bey, kodu denedim ama çalışmadı nerde hata yapıyor olabilirim.
RE: Mouse İle Açık Formu Kapatmak - C*e*l*o*y*c*e - 06/11/2024
Private Sub Form_DblClick(Cancel As Integer)
' Çift tıklama ile formu kapat
DoCmd.Close
End Sub
RE: Mouse İle Açık Formu Kapatmak - hmuratg - 06/11/2024
(06/11/2024, 16:38)C*e*l*o*y*c*e yazdı: Private Sub Form_DblClick(Cancel As Integer)
' Çift tıklama ile formu kapat
DoCmd.Close
End Sub
Teşekkürler oldu..