(16/09/2017, 20:04)mehmetb84 yazdı:

(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ına

Private Sub Form_Load()

Me.KeyPreview = True

End 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.

Sayın Mehmet, zaten verdiğim kod örnek amaçlı. Siz yapmak istediğiniz işleme ait kodu ilgili bölüme yazabilirsiniz. Sanırım INSERT INTO yla ekleme yapabilirsiniz ama emin değilim. Kolay gelsin.