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.
zxz