kullanılan bazı öğeler nedeniyle 2003 e çeviremiyorum
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ı.