Ne vidi se zaglavlje Sub....EndSub procedure, inače bi bilo jasno da nisu preneti svi parametri koji se specificiraju u upitu. Sledeća greška je po meni što select query mogu da budu izvor podataka za Recodset ali ne mogu istovremeno imate uslove koji se referenciraju sa forme. To isto važi i za akcione Query-je. Postoje jasna pravila za referenciranje uopšte i mogu se pronaći u literaturi koja tretira VBA. Takođe kada referenciraš kontrolni objekat na određenom obrascu ili izveštaju, obrazac ili izveštaj mora da bude otvoren.Ovo zadnje nije prouzrokovalo grešku ali je dobro voditi računa o tome.

naravno da postoji sub i end sub, i kao sto sam rekao radi kada umesto putanje do combo boxa stavim neku vrednost iz tabele. e sad ja mislim da je greska u samoj putanji ali nemam ideju kao da je napisem

Dim sql As String, stritem As String
Dim db As DAO.Database
Dim rs As DAO.Recordset

sql = "SELECT text1,text2,text3,text4,text5 FROM Table1 WHERE [id]=[forms].[form1].[combo4]"

Sql Je strin koji saljemo bazi da nam vrati rezultat.
U tvom slucaju je i ovo string koji sql nezna da procita:
[id]=[forms].[form1].[combo4]"
Ispravno bi bilo ovako ukoliko pretpostavimo da je polje ID u tabeli brojcano.

Dim A as Integer
A=[forms].[form1].[combo4]

Sada uslov za ID polje Iamo U memorijskoj A te bi SQL string izgledao ovako.
sql = "SELECT text1,text2,text3,text4,text5 FROM Table1 WHERE [id]=" & A

poslije toga slijedi

Set db = CurrentDb
Set rs = db.OpenRecordset(sql)

Znaci podigli smo Rs sa datim uslovom A.
Sad ako je ID primarni kljuc to je dalje i uredu jer znaci da u ovom RS moze biti samo 1 red podataka ili 0 redova sto bi trebalo i prekontrolisati prije inace ce doci do greske pri usitavanju a to moze izgledari ovako:

if Rs.recordcount=0 then
Msgbx "Ne postoji takav podatak u bazi"
else
stritem = rs.Fields("text1").Value & ";" & rs.Fields("text2").Value & ";" & rs.Fields("text3").Value & ";" & rs.Fields("text4").Value & ";" & rs.Fields("text5").Value
endif

E sad da bi ovo upisali u list box u jednu kolonu, mada mi je ovo nelogicno da se podaci iz vise kolona skupljaju u jednu ako je jedna.
Znaci da u ColumnCount pise 1.
U rwsource Type treba odabrati value list.
i onda dolazi ovaj kod:

Me.List2.Rowsource=stritem

Opet da napomenem da ovo sve vazi ako je samo 1 red podataka i jedna kolona u rowsource.

hvala na pomoci, proradilo je samo sa uvidjenjem promenljive samo treba umesto . da se stavi !

Nemoraš da koristiš promenljivu, samo deo koji je filter sa forme odvojiš kao što je odvojena promenljiva

sql = "SELECT text1,text2,text3,text4,text5 FROM Table1 WHERE [id]=" & [forms]![form1]![combo4]

i jos jedan problem, nece u vb kodu da mi prihvati nasa slova č,ć....., dok u ostalim programima kao sto je word normalno rade
koristim office 2000 i winxp


_{[Ovu poruku je menjao pavlakus dana 07.01.2007. u 23:52 GMT+1]}

sql = "SELECT text1,text2,text3,text4,text5 FROM Table1 WHERE [id]=" & [forms]![form1]![combo4]

Mene interesuje kako da napisem sql kada imam filtriranje na osnovu dva polja jedne forme....

Ovo sa jednim poljem radi super

Pozdrav