Function UradiRN()
Dim strSQL As String
Dim rst As DAO.Recordset

strSQL = "SELECT * FROM QPrometMPzaRadniNalog ORDER BY DatumK ASC" 'DESC
Set rst = CurrentDb.OpenRecordset(strSQL)

If rst.RecordCount > 0 Then
rst.MoveFirst
Do Until rst.EOF
RadniNalog (rst!DatumK)

rst.Edit
rst!Knjizen = True
rst.Update

rst.MoveNext

Loop
MsgBox "Podaci uspjesno obradjeni!", vbInformation

rst.Close
Else
MsgBox "Nema podataka za obradu!", vbInformation
End If
End Function