<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 cmdExport_Click()
    Dim DB As Database
    Dim rs As Recordset
    Dim txt As String
    Dim strFile As String
    strFile = CurrentProject.Path & "\" & "zaposlenici.csv"
    
    Set DB = CurrentDb
    Set rs = DB.OpenRecordset("zaposlenici")
    Open strFile For Output Shared As #1
        'txt = "ime;prezime;ocena"
        'Print #1, txt
        Do While Not rs.EOF
            If rs.Fields(3) = "NA ODREDENO" Then
                txtStatus = "0"
            Else
                txtStatus = "1"
            End If
            
            txt = Chr(34) & rs.Fields(0) & Chr(34) & "," & _
                    Chr(34) & rs.Fields(1) & " " & rs.Fields(2) & Chr(34) & "," & _