pmiroslav 19.06.2012 10:25
Predmet:Pomoć recordest

Opet imama jedan mali problemčić.
napravio sam slijedeći kod za upis cijene koÅ¡tanja u tablicu u kojoj već postoje podaci.
Problem je kada u tablici imam više redova koji zadovoljavaju kriterij isti ID i isti broj komada, cijena se upiše sami u prvi red.
PreuzmiIzvorni kôd (vbnet):
  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. Ident = Me.ID
  9. Kom = Quantity()
  10. Set Db = CurrentDb()
  11. Podatak = Me.CK
  12. SQL = "SELECT * FROM tblNalog WHERE ID ='" & ID & "'AND Komada =" & Kom
  13. Set Rs = Db.OpenRecordset(SQL, dbOpenDynaset)
  14. With Rs
  15. If .RecordCount > 0 Then
  16. .MoveFirst
  17. .Edit
  18. !Vrijednost = Podatak
  19. .Update
  20. .MoveNext
  21. End If
  22. End With

zxz 19.06.2012 12:49
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

pmiroslav 19.06.2012 14:56
Predmet:Re: Pomoć recordest

Ovo mi prekine proceduru u liniji
If .RecordCount > 0 Then

sa porukom 'Invalid or unqualified reference'

zxz 19.06.2012 15:13
Predmet:Re: Pomoć recordest

Citat:
If Rs.RecordCount > 0 Then
Kucao sa na forumu pa zaboravio ispraviti.