Function UradiRN()

Dim strSQL As String
Dim rst As DAO.Recordset

strSQL = "SELECT * FROM QPrometMPzaRadniNalog"
Set rst = CurrentDb.OpenRecordset(strSQL)

rst.MoveFirst
Do Until rst.EOF
RadniNalog (rst!DatumK)

rst.Edit
rst!Knjizen = -1 ' Knjizi sa yes
rst.Update

rst.MoveNext
Loop
rst.Close
End Function