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 

(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