Ti tu nigde ne popunjavaš Listbox, već si obradio Click event na Listbox-u, a i nije mi jasno šta će ti na kraju List1.Clear kada klikneš na neki item.No, nebitno.Probaj sledeće, takle u change event TextBox-a, odradi onaj SQL koji sam napisao, doduše pogrešno, evo ispravke (umesto ovog db stavi varijablu kojom si definisao bazu):
Code:
Private Sub Text1_Change()
db.RecordSource = "SELECT * FROM rsImenik WHERE prezime LIKE '" & Text1.Text & "*'"
db.Refresh
List1.Clear
Do Until rsImenik.EOF
List1.AddItem rsImenik.Fields("prezime").Value & " " & rsImenik.Fields("ime").Value
rsImenik.MoveNext
Loop
End Sub
A tamo gde ti je List1_Click stavi
Code:
Private Sub List1_Click()
rsImenik.Find "prezime = '" & Mid(List1.Text, 1, InStr(1, List1.Text, " ")) & "'"
Ime = rsImenik!Ime
lblPrezime = rsImenik!prezime
Telefon = rsImenik!Telefon
lblAdresa = rsImenik!adresa
Mob = rsImenik!Mob
Fax = rsImenik!faks
End Sub
End Sub
Naravno, ovo može biti problem, ako imaš više ljudi sa istim prezimenom, jer će ti uvek izbacivati podatke od onog prvog.Rešenje može biti da ubaciš i polje ID, koje će biti jedinstveno za svakog u imeniku, pa da prema njemu pretražuješ.Pogledaj ovu temu
http://www.elitesecurity.org/t...a-sa-istim-Imenom-i-prezimenom
-Odracuonogakomijedrpiorazmaknicu.
-Ne rxdi mi txstxturx, kxd god hocu dx
ukucxm "x" onx ukucx "x".
-Ko kaaz e da ja neuummem da kuuca
m.
-Piše "Insert disk 3", a jedva sam i ova
dva ugurao u drajv
-Postoje samo dve osobe kojima
verujem, jedna sam ja, a druga nisi ti