Prikazi cijelu temu 19.06.2012 12:49
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: Pomoć recordest
PreuzmiIzvorni kôd (SQL):
  1. Private Sub C_Upisi_Click()
  2. Dim Db AS DATABASE
  3. Dim Rs AS Recordset
  4. Dim Podatak AS Currency
  5. Dim SQL AS String
  6. Dim Ident AS String
  7. Dim Kom AS INTEGER
  8.  
  9. Ident = Me.ID
  10. Kom = Quantity()
  11. SET Db = CurrentDb()
  12. Podatak = Me.CK
  13. SQL = "SELECT * FROM tblNalog WHERE ID ='" & ID & "'AND Komada =" & Kom
  14. SET Rs = Db.OpenRecordset(SQL, dbOpenDynaset)
  15.  
  16. IF .RecordCount > 0 THEN
  17. do while NOT Rs.eof
  18. Rs.Edit
  19. RS!Vrijednost = Podatak
  20. RS.UPDATE
  21. RS.MoveNext
  22. loop
  23. END IF
  24. Rs.close
  25. SET db=Nothing
  26. END sub
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.