Bahsettiğiniz yardım penceresinin çıkmasının nedeni;
(gerek bu konu için hazırlanan ve gerekse de son eklenen örnekleri incelediğinizde de görülecektir ki,bu arada örnekleri tekrar inceleyiniz lütfen.),
KeyCode=0
kod satırını kullanmadığınız içindir.
Eklediğiniz kod ifadesinin olması gereken hali şu:
Kod:
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If (KeyCode = vbKeyF1) Then
KeyCode = 0
DoCmd.OpenForm "stok_takibi"
End If
End Sub