Hocalarım eklediğim programda Gelir ve Gider Formlarındaki listelerde veri satırına çift tıklayarak yukarıdaki metin kutularına ve açılan kutuya almak istiyorum. Bu konuda yardımlarınıza ihtiyacım var. Yardımlarınız için şimdiden teşekkürler.
Listeden metin kutularına veri almak
sayın kenan827,
bahsettiğiniz talebinize yönelik olarak;
aşağıda bağlantısı yazılı konuyu inceleyip denemelerde bulunabilirsiniz.
Form Üzerinden Veri Arama
denemeleriniz akabinde olası hata veya soruna maruz kalırsanız,konunuzda hem bu hataların tam açıklamasını hem de olduğu andaki ekran görüntülerini dahil ediniz.katılımcılar tarafından uygun görülebilecek paylaşımları edinmeniz muhtemeldir.
NOT
örnek uygulamada yer alan listenin ÇİFT TIKLANDIĞINDA olay yordamındaki kodlar içerisinde bulunan kriter satırlarında eğer kullanılacak olan kriter alanı SAYI ise aynı yöntemle işlemi gerçekleştirebilirsiniz.
fakat eğer ilgili kriter alanı Metin (String) olacaksa;tek tırnak kullanımlarına dikkat etmeniz yerinde olacaktır.
ÖRNEK
bilginize...iyi çalışmalar,saygılar.
bahsettiğiniz talebinize yönelik olarak;
aşağıda bağlantısı yazılı konuyu inceleyip denemelerde bulunabilirsiniz.
Form Üzerinden Veri Arama
denemeleriniz akabinde olası hata veya soruna maruz kalırsanız,konunuzda hem bu hataların tam açıklamasını hem de olduğu andaki ekran görüntülerini dahil ediniz.katılımcılar tarafından uygun görülebilecek paylaşımları edinmeniz muhtemeldir.
NOT
örnek uygulamada yer alan listenin ÇİFT TIKLANDIĞINDA olay yordamındaki kodlar içerisinde bulunan kriter satırlarında eğer kullanılacak olan kriter alanı SAYI ise aynı yöntemle işlemi gerçekleştirebilirsiniz.
fakat eğer ilgili kriter alanı Metin (String) olacaksa;tek tırnak kullanımlarına dikkat etmeniz yerinde olacaktır.
ÖRNEK
Kod:
"[SNUM] = '" & Str(Nz(Me![Liste1], 0)) & "'"
sayın kenan827,
bir önceki mesajda örnek olarak verilen bağlantıdaki örnek uygulamadan yola çıkmak sureti ile;
GELİR formundaki listenin ÇİFT TIKLANDIĞINDA olay yordamı içerisine
GİDER formundaki listenin ÇİFT TIKLANDIĞINDA olay yordamı içerisine de
kodlarını ekleyiniz.bilginize...iyi çalışmalar,saygılar.
bir önceki mesajda örnek olarak verilen bağlantıdaki örnek uygulamadan yola çıkmak sureti ile;
GELİR formundaki listenin ÇİFT TIKLANDIĞINDA olay yordamı içerisine
Kod:
Private Sub Liste_DblClick(Cancel As Integer)
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[S_No]=" & Str(Nz(Me![Liste], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub
Kod:
Private Sub Listee_DblClick(Cancel As Integer)
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[S_No]=" & Str(Nz(Me![Listee], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub
Çok, çok teşekkürler hocam ellerinize sağlık. Tam istediğim gibi olmuş. Hocam konuyu taşıyabilirsiniz saygılar.
Konuyu Okuyanlar: 1 Ziyaretçi