![Img-cray Img-cray](https://accesstr.net/images/smilies/img-cray.gif)
Gönderdiğiniz linkler yardımıyla f2 tuşu için düzenleidğim kod şu şekilde;
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If (KeyCode = vbKeyF2) Then
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "frm_listeekle"
stLinkCriteria = "[fat_otomatik]=" & Me.Listekutusu
DoCmd.OpenForm stDocName, , , stLinkCriteria
End If
End Sub
fakat çalışmadı.