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