Dim OdBrojaPlava  As Long
Dim db As Database
Set db = CurrentDb
Dim rstPlave As DAO.Recordset
Dim strSQL As String
OdBrojaPlava = Forms!frmZaduzenje!OdPlava
strSQL = "SELECT * FROM tblPlocice WHERE [Boja]='Plava' AND [Broj]=" & OdBrojaPlava
         Set rstPlave = db.OpenRecordset(strSQL, dbOpenDynaset)
 
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