Imam evidenciju clanova u access2k. Jedna od sekcija na formi clanova je i pretraga clanova sa 3 txt boxa i komandnim dugmetom trazi kao i sa list boxom koji daje rezultate pretrage nakon klik dogadjaja na dugme trazi.
Kod ispod komandnog dugmeta trazi je:
Private Sub cmdTrazi_Click()
Me.txtPrezime = Me.txtPrezime & "*"
Me.txtIme = Me.txtIme & "*"
Me.txtTelefon = "*" & Me.txtTelefon & "*"
Me.lstLista.Requery
Me.txtPrezime = ""
Me.txtIme = ""
Me.txtTelefon = ""
' postavljam dzoker znak nakon unosa u text boxove i sa Me.lstLista.Requery_
pokrenem upit iz row sourcea od list boxa Lista. Nakon toga ocistim text boxove
za sledece kriterijume'
End Sub
Row Source od liste je:
SELECT Clanovi.ID, Clanovi.Prezime, Clanovi.Ime, Clanovi.Telefon
FROM Clanovi
WHERE (((IIf(IsNull([Clanovi].[Prezime]),"",[Clanovi].[Prezime])) Like [Forms]![Clanovi]![txtPrezime]) AND ((IIf(IsNull([Clanovi].[Ime]),"",[Clanovi].[Ime])) Like [Forms]![Clanovi]![txtIme]) AND ((IIf(IsNull([Clanovi].[Telefon]),"",[Clanovi].[Telefon])) Like [Forms]![Clanovi]![txtTelefon]))
ORDER BY Clanovi.Prezime;
Ovo sve dobro funkcionise (ukljucujuci i pretragu) sve dok ne pritisnem drugo komandno dugme na formi Nazad koje treba samo da zatvori formu Clanova i da se fokusira na formu Glavna.
Njegov kod je:
Private Sub cmdNazad_Click()
DoCmd.Close
Forms![Glavna].SetFocus
End Sub
Tada dobijam redom 3 zahtjeva Enter Parameter Value:
Forms!Clanovi!txtPrezime
Forms!Clanovi!txtIme
Forms!Clanovi!txtTelefon
Tek kada sa OK ili Cancel prodjem ove zahtjeve, dodjem do forme Glavna. Access mi ne proslijedjuje ove zahtjeve ako prije toga nisam kliknuo na cmdTrazi. Kako da izbjegnem ove zahtjeve? Ovo sve je prije radilo, a da nevolja bude veca radi i dan danas na drugoj masini na kojoj je access97 sa potpuno istim kodom i sa istim objektima.
Ako neko ima korisnu sugestiju bio bih mu zahvalan jer nisam uspio da uhvatim ovu gresku ni sa Form_Error.
Unaprijed hvala.