Notice: Undefined offset: 2 in /home2/icentarb/public_html/icentar/classes/class.permissions.php on line 735
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 I