Notice: Undefined offset: 2 in /home2/icentarb/public_html/icentar/classes/class.permissions.php on line 735
Private Sub OIB_BeforeUpdate(Cancel As Integer) Dim Rs As DAO.Recordset Dim Podatak Dim Provjera As Boolean Podatak = Trim(Me.OIB) Provjera = ProvjeriOIB(Podatak) If Provjera = False Then MsgBox " Neispravan OIB" Me.Undo Exit Sub End If If Provjera = True Then If Format$(Podatak) <> "" Then Set Rs = Me.Form.R