+- 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ığı: listboxtan seçilen kaydı gösterme - hata (/konu-listboxtan-secilen-kaydi-gosterme-hata.html)
listboxtan seçilen kaydı gösterme - hata - siyahbere - 21/01/2016
merhaba arkadaşlar
ekteki uygulama da listboxta kurum adları göstermek istiyorum, kurum adına tıklandığında ise o kuruma ait bilgiler gelmeli..
listbox tıkladığında olayına
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[Kurum_Adı] = " & Str(Nz(Me![Liste152], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
komutu ile yapmaya çalıştım ama hata alıyorum, yardımcı olabilir misiniz?
teşekkürler
Cvp: listboxtan seçilen kaydı gösterme - hata - atoz112 - 21/01/2016
sayın siyahbere,
talebinize yönelik çözümler üretmeden öncesinde,aşağıda bağlantısı yazılı konunun ilk başlığındaki maddeleri incelemenizi ve bu incelemeler akabinde uygulamanızı yeniden düzenlemenizi naçizane tavsiye etmek yerinde olacaktır kanısındayım.
çünkü;uygulamanız incelendiğinde,
hem aldığınız hata benzeri
Kod:
rs.FindFirst "[Kurum_Adı] = " & Str(Nz(Me![Liste152], 0))hatanızın nedeni yine bahsi yapılan konudaki hususlardan kaynaklanmaktadır.
Konulara eklenen Uygulama içeriğine yönelik Tavsiyeler
bilginize...iyi çalışmalar,saygılar.
Cvp: listboxtan seçilen kaydı gösterme - hata - atoz112 - 21/01/2016
sayın siyahbere,
bir önceki mesajda yer alan hususları tekrar etmekle birlikte,
EK'te;
bahsettiğiniz talebinize yönelik olarak hazırlanmış örnek uygulama mevcuttur.inceleyebilirsiniz.
bilginize...iyi çalışmalar,saygılar.
Cvp: listboxtan seçilen kaydı gösterme - hata - siyahbere - 21/01/2016
çok teşekkür ederim, benim için yol gösterici bir çalışma oldu.
ARaştırmalardan sonra aşağıdaki gibi bir yolla yapabilmiştim, sizin düzenlemenizle devam edeceğim, teşekkürler
With Me.frm_okul_alt.Form
.Filter = "[kurumadi]='" & Me.Liste15.Column(2) & "'"
.FilterOn = True
.Requery
End With