AccessTr.neT

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

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 Sub

Yedekleme formunun açıldığında olayına eklenecek kod:

If Me.OpenArgs = "YedekAl" Then

Call Komut66_Click

End If

Ozan Bey çok teşekkür ederim.