+- 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ığı: Fonksiyon Tuşu İle Program Kapatılırken Yedekleme Formundaki Butona Tıklanma Olayı (/konu-fonksiyon-tusu-ile-program-kapatilirken-yedekleme-formundaki-butona-tiklanma-olayi.html)
Fonksiyon Tuşu İle Program Kapatılırken Yedekleme Formundaki Butona Tıklanma Olayı - Oğuz Türkyılmaz - 29/03/2020
Merhaba AnaFormumdaki F12 Fonksiyon Tuşuna bastığımda programı kapatıyorum. Fakat program kapatılırken aynı anda yedeklemede yapılsın istiyorum. Bu amaçla fonksiyon tuşunda F_Yedekleme formunu açıp Formdaki ÇIKIŞ butonuna tıklanma olayını gerçekleştirmem gerekiyor. Yedekleme formu çıkış butonuna tıklandığında kod gereği ana programı kapatıp yedeklemeyi yapıyor. Sanırım benim sadece formun açıldıktan sonra butona tıklanma olayını sağlamam yeterli olacak. Yardımlarınız için teşekkür ederim.
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Dim ButonaBas As Integer
Select Case KeyCode
Case vbKeyF7
KeyCode = 0
DoCmd.OpenForm "F_UyeListesi"
Case vbKeyF12
KeyCode = 0
DoCmd.OpenForm "F_Yedekleme"
ButonaBas = Komut66_Click()
DoCmd.Quit
Case Else
End Select
End Sub
Cvp: Fonksiyon Tuşu İle Program Kapatılırken Yedekleme Formundaki Butona Tıklanma Olayı - ozanakkaya - 29/03/2020
anaformda, tuşa basılırken olayındaki kod
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Dim ButonaBas As Integer
Select Case KeyCode
Case vbKeyF7
KeyCode = 0
DoCmd.OpenForm "F_UyeListesi"
Case vbKeyF12
KeyCode = 0
DoCmd.OpenForm "FYedekleme", , , , , , "YedekAl"
Case Else
End Select
End SubYedekleme formunun açıldığında olayına eklenecek kod:
If Me.OpenArgs = "YedekAl" Then
Call Komut66_Click
End IfCvp: Fonksiyon Tuşu İle Program Kapatılırken Yedekleme Formundaki Butona Tıklanma Olayı - Oğuz Türkyılmaz - 29/03/2020
Ozan Bey çok teşekkür ederim.