Skip to main content

AccessTr.neT


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

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

Çözüldü #1
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.
.rar Mehmetb84.rar (Dosya Boyutu: 315,05 KB | İndirme Sayısı: 4)
Cevapla
#2
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
Vatanını en çok seven, görevini en iyi yapandır!!!
Son Düzenleme: 16/09/2017, 15:07, Düzenleyen: biberli33.
Cevapla
#3
(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.
Cevapla
#4
(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.
Vatanını en çok seven, görevini en iyi yapandır!!!
Cevapla
#5
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.
Cevapla
#6
Merhaba,

İnceleyip olumlu/olumsuz bildirimde bulununuz.
.rar Mehmetb84_sld.rar (Dosya Boyutu: 49,43 KB | İndirme Sayısı: 13)
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da