Amelasar | 07.04.2011 19:33 |
---|---|
Predmet:Provjera podatka u tabeli Pozdrav svima. Imam jedan veliki problem. Na koji nacin mogu provjeriti da li se odredjeni podatak nalazi u tablici? Ako se podatak nalazi da me pusti dalje a ako ne da napise poruku. Lijep pozdrav, AMELA. |
zxz | 07.04.2011 20:05 |
---|---|
Predmet:Re: Provjera podatka u tabeli Ova procedura provjerava dali u nekoj tabeli postoji odredjeni podatak i ako ima vraca true a ako nema false. Proceduru kopirati u neki modul. PreuzmiIzvorni kôd (Visual Basic): U tvojoj proceduri napises:
dim a as boolean a=NadjiVrijednost(ImeTabele As String, ImePolja As String, Vrijednost As Variant) As Boolean if a=true then nesto da uradi else da uradi nesto drugo endif |
Amelasar | 07.04.2011 20:14 |
---|---|
Predmet:Re: Provjera podatka u tabeli Hvala ti puno. Citat: a=NadjiVrijednost(ImeTabele As String, ImePolja As String, Vrijednost As Variant) As Boolean Na toj liniji javlja mi gresku? Poz |
zxz | 07.04.2011 20:15 |
---|---|
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 |
zxz | 07.04.2011 20:17 |
---|---|
Predmet:Re: Provjera podatka u tabeli a=NadjiVrijednost(ImeTabele As String, ImePolja As String, Vrijednost As Variant) As Boolean Jesi li ime tabele i ime polja stavile u znake navoda a i vrijednost ako je strin. Najbolje compaktiraj obrisi ono sto ne treba pa zakaci na forum. |
Amelasar | 07.04.2011 20:30 |
---|---|
Predmet:Re: Provjera podatka u tabeli Riješila sam sa procedurom: Citat: dim SQL as string Hvala. LP, Amela. |