Kısayol Tuşuyla Liste Kutusu Üzerinden Değer Atama

1 2
15/09/2017, 16:36

mehmetb84

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.
16/09/2017, 15:06

biberli33

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, 20:04

mehmetb84

(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:08

biberli33

(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.
18/09/2017, 09:56

mehmetb84

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.
18/09/2017, 10:43

ozanakkaya

Merhaba,

İnceleyip olumlu/olumsuz bildirimde bulununuz.
1 2