Predmet:Re: Radni nalog na osnovu dnevnog prometa
Uradila sam funkciju koja cita promet iz tblPrometMP i kreira radne naloge za dane za koje nisu napravljeni:
PreuzmiIzvorni kôd (Text):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
Pozdrav, Amela
Ovaj post je ureden
1
puta. Posljednja izmjena 06.05.2012 18:37 od strane Amelasar.