AccessTr.neT
listboxtan seçilen kaydı gösterme - hata - Baskı Önizleme

+- 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))
(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.


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