Prikazi cijelu temu 08.02.2013 13:52
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: SQL Petlja
strSQL = "SELECT * FROM tblPlocice WHERE [Boja]='Plava' AND [Broj]=" & OdBrojaPlava
Set rstPlave = db.OpenRecordset(strSQL, dbOpenDynaset)
If rstPlave.recordcount=0 then
Msgbox "ne posroji"
else
If (rstPlave!Status = "Z") Then
MsgBox "Postoji zaduženje za plave plo
ice,nije dopušteno zaduženje!", vbExclamation, "Greška knjiženja plavih plo
ica"
rstPlave.Close
Set db = Nothing
Me.OdPlava = Null
Exit Sub
End If
end if

Mozda sad ovaj tvoj if i netreba ali nisam se upustao.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.