Select Case KeyCode
Case vbKeyF7
KeyCode = 0
DoCmd.OpenForm "F_003_EmlakListesi"
End Select
Kodu aşağıdaki ile değiştirerek deneyiniz.