AccessTr.neT
Kısayol Tuşuyla Liste Kutusu Üzerinden Değer Atama - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Kısayol Tuşuyla Liste Kutusu Üzerinden Değer Atama (/konu-kisayol-tusuyla-liste-kutusu-uzerinden-deger-atama.html)

Sayfalar: 1 2


Kısayol Tuşuyla Liste Kutusu Üzerinden Değer Atama - mehmetb84 - 15/09/2017

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.


Cvp: Kısayol Tuşuyla Liste Kutusu Üzerinden Değer Atama - biberli33 - 16/09/2017

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


Cvp: Kısayol Tuşuyla Liste Kutusu Üzerinden Değer Atama - mehmetb84 - 16/09/2017

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


Cvp: Kısayol Tuşuyla Liste Kutusu Üzerinden Değer Atama - biberli33 - 16/09/2017

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


Cvp: Kısayol Tuşuyla Liste Kutusu Üzerinden Değer Atama - mehmetb84 - 18/09/2017

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.


Cvp: Kısayol Tuşuyla Liste Kutusu Üzerinden Değer Atama - ozanakkaya - 18/09/2017

Merhaba,

İnceleyip olumlu/olumsuz bildirimde bulununuz.