Prikazi cijelu temu 19.06.2012 10:25
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Lokacija:Osijek


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
Pozdrav