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