<br />
<b>Notice</b>:  Undefined offset: 2 in <b>/home2/icentarb/public_html/icentar/classes/class.permissions.php</b> on line <b>735</b><br />
Private Sub Command0_Click()
Dim strSQL2 As String
Dim rs2 As DAO.Recordset
Dim DB2 As DAO.Database
Set DB2 = CurrentDb()
Dim racun
strSQL2 = "SELECT * FROM tblMaticniList  WHERE [SifSluzba]='" & Me.SifSluzba & "'"
      Set rs2 = DB2.OpenRecordset(strSQL2, dbOpenDynaset)
      With rs2
    .MoveFirst
    racun = rs2!MatBroj
 
    racun = Right("0001", 4)
   
    Do While Not .EOF
     
    rs2.Edit
            rs2!MatBroj = racun & "/" & Me.Godina
            rs2.Update