Private Sub BrDokumenta_Exit(Cancel As Integer)
Dim Podatak As String

Podatak = Me.BrDokumenta

If NadjiVrijednost("tblTransakcije", "BrDokumenta", Podatak) = True Then
   If NadjiVrijednost("tblTransakcije", "BrDokumenta", Me.Status) = True Then
     MsgBox "broj dokumenta ve postoji"
     Cancel = True
   End If
End If
End Sub