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
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.