(16/09/2017, 15:06)biberli33 yazdı:Sayın Mehmet, aşağıdaki kodları kullanarak istediğiniz kadar tuşa istediğiniz kodları yazarak kullanabilirsiniz. Umarım faydam olmuştur. Kolay gelsin.
'Form Açıldığında Olay yordamınaPrivate Sub Form_Load()Me.KeyPreview = TrueEnd Sub
'Form Tuşa basıldığında olay yordamına
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)Select Case KeyCode
Case vbKeyF4
DoCmd.OpenForm "Form Adi"
Case vbKeyEscape
DoCmd.Close
Case Else
End Select
End Sub
teşekkürler, yalnız ben forum açılmasını istemiyorum, doğrudan seçili verinin tofatura_bag alanına sıfır değerinin atanmasını istiyorum.