Predmet:Re: problem ponovni ulaz u aplikaciju

---

Prvo da bi malo ilo urednije izbrisi iz recordsource Query Qpretraga jer ti ne treba.
Ovo si radio u nekoj vecoj verziji accessa.
Evo ti kod na on Change.
Query QPretraga ti i ne treba
Na Isresult rowsource mozes staviti i ovo:
SELECT sifra,vlasnik,adresa FROM tblVlasnici

Private Sub Ime_Change()
Dim txtSearchString As Variant
Dim strSQL As String
txtSearchString = Me.[Ime].Text
strSQL = "SELECT sifra,vlasnik,adresa FROM tblVlasnici WHERE [vlasnik] ALike '" & txtSearchString & "%'"
Me.lstResults.RowSource = strSQL
End Sub

---