Merhaba arkadaşlar,
Ekte göreceğiniz veritabanımdaki faturaesle formunda f4 tuşuna bastığım anda, listeeskle isimli listekutusunda seçili olan verinin tofatura_bag alanına sıfır değerinin atanmasını istiyorum. Bu işlemin söz konusu kaydın fatura adının ve sipariş numarasının ve metrajının yazılı olduğu (örnek olarak) "12124 faturalı 45566 sipariş nolu 125mt kaydın bag alanına 0 atamaktasınız emin misiniz? " sorusunun onaylanması halinde gerçekleşmesini istiyorum.
Yardımlarını için şimdiden teşekkürler.
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
(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.
(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.
Teşekkürler, bende zaten bu örnek mevcut. Fakat orda yeni form açıyor sizin yazdığınız kodda olduğu gibi. Ben ise doğrudan kayıt alanına değer atamak istiyorum.
Merhaba,
İnceleyip olumlu/olumsuz bildirimde bulununuz.