AccessTr.neT

Tam Versiyon: Listeden metin kutularına veri almak
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
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.
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
Kod:
"[SNUM] = '" & Str(Nz(Me![Liste1], 0)) & "'"
bilginize...iyi çalışmalar,saygılar.
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

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

GİDER formundaki listenin ÇİFT TIKLANDIĞINDA olay yordamı içerisine de

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

kodlarını ekleyiniz.bilginize...iyi çalışmalar,saygılar.
Çok, çok teşekkürler hocam ellerinize sağlık. Tam istediğim gibi olmuş. Hocam konuyu taşıyabilirsiniz saygılar.