Private Sub BrDokumenta_BeforeUpdate(Cancel As Integer)
Dim Unos As String
Dim stLinkCriteria As String
Dim rsc As DAO.Recordset
Set rsc = Me.RecordsetClone
Unos = Me.BrDokumenta.Value
stLinkCriteria = "[BrDokumenta]=" & "'" & Unos & "'"
If DCount("BrDokumenta", "tblTransakcije", stLinkCriteria) > 0 Then
Me.Undo
MsgBox "Upozorenje dokument broj " & Unos & " ve
 je ranije upisan." & vbCr & vbInformation
End If
If IsNull(Me![IDdokumenta]) Then
        MsgBox "Niste upisali broj dokumenta", , "Greška!"
        DoCmd.GoToControl "IDDokumenta"
 End If
End Sub