Prikazi cijelu temu 06.05.2012 19:36
Amelasar Van mreze
Clan
Registrovan od:07.04.2011
Lokacija:SARAJEVO


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):
  1. Function UradiRN()
  2.  
  3. Dim strSQL As String
  4. Dim rst As DAO.Recordset
  5.  
  6. strSQL = "SELECT * FROM QPrometMPzaRadniNalog"
  7. Set rst = CurrentDb.OpenRecordset(strSQL)
  8.  
  9. rst.MoveFirst
  10. Do Until rst.EOF
  11. RadniNalog (rst!DatumK)
  12.  
  13. rst.Edit
  14. rst!Knjizen = -1 ' Knjizi sa yes
  15. rst.Update
  16.  
  17. rst.MoveNext
  18. Loop
  19. rst.Close
  20. End Function
Pozdrav, Amela
Ovaj post je ureden 1 puta. Posljednja izmjena 06.05.2012 19:37 od strane Amelasar.