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

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