Skip to main content

AccessTr.neT


Listeden metin kutularına veri almak

Listeden metin kutularına veri almak

Çözüldü #1
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.
.rar Gelir-Gider. 3.2.rar (Dosya Boyutu: 58,8 KB | İndirme Sayısı: 5)
Cevapla
#2
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.

Herkes,kendisinin AR-GE'cisidir...


Konulara eklenen Uygulama içeriğine yönelik Tavsiyeler
Alt Form Denetim Değerlerine ulaşma ve Alt Form Güncelleme
Kapatırken Düzenle (Compact On Close) Seçeneğinin İşaretlenmesi Hakkında
Cevapla
#3
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.

Herkes,kendisinin AR-GE'cisidir...


Konulara eklenen Uygulama içeriğine yönelik Tavsiyeler
Alt Form Denetim Değerlerine ulaşma ve Alt Form Güncelleme
Kapatırken Düzenle (Compact On Close) Seçeneğinin İşaretlenmesi Hakkında
Cevapla
#4
Çok, çok teşekkürler hocam ellerinize sağlık. Tam istediğim gibi olmuş. Hocam konuyu taşıyabilirsiniz saygılar.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da