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