Predmet:Re: Provjera podatka u tabeli

---

Ako ti treba samo na jednom mjestu moze to i jednostavnije.
Ova procedura se nalazi u koristan kod na forumu i ima strukturu da se moze koristiti sa vise mjesta.
U tvom slucaju bi moglo i ovako:
dim SQL as string
dim Rs as recordset
Dim Db as database
Dim Uslov
Ako je uslov string ide:
SQL="SELECT ImepoljaUslova FROM ImeTabele WHERE ImePOljaUslova='" & ulov & "'"

ako je Broj
SQL="SELECT ImepoljaUslova FROM ImeTabele WHERE ImePOljaUslova="& ulov

ser db=Currentdb()
Set Rs=Db.Openrecordset(SQL)
if rs.Recordcount=0 tnen'znaci nema podataka
ako nema podatka
else
ako ima podatak
endif

---