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
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))
(alan adının hatalı yazılımı gibi) ya da daha ileri boyutta hatalara veya sorunlara maruz kalmamak hem de daha verimli ve kullanışlı bir uygulama geliştirmenize zemin hazırlamak adına,size fayda sağlayacaktır.
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.
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.
ç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