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):Private Sub C_Upisi_Click()
Dim Db As Database
Dim Rs As Recordset
Dim Podatak As Currency
Dim SQL As String
Dim Ident As String
Dim Kom As Integer
Ident = Me.ID
Kom = Quantity()
Set Db = CurrentDb()
Podatak = Me.CK
SQL = "SELECT * FROM tblNalog WHERE ID ='" & ID & "'AND Komada =" & Kom
Set Rs = Db.OpenRecordset(SQL, dbOpenDynaset)
With Rs
If .RecordCount > 0 Then
.MoveFirst
.Edit
!Vrijednost = Podatak
.Update
.MoveNext
End If
End With
|
zxz |
19.06.2012 12:49 |
Predmet:Re: Pomoć recordest
PreuzmiIzvorni kôd (SQL):Private Sub C_Upisi_Click()
Dim Db AS DATABASE
Dim Rs AS Recordset
Dim Podatak AS Currency
Dim SQL AS String
Dim Ident AS String
Dim Kom AS INTEGER
Ident = Me.ID
Kom = Quantity()
SET Db = CurrentDb()
Podatak = Me.CK
SQL = "SELECT * FROM tblNalog WHERE ID ='" & ID & "'AND Komada =" & Kom
SET Rs = Db.OpenRecordset(SQL, dbOpenDynaset)
IF .RecordCount > 0 THEN
do while NOT Rs.eof
Rs.Edit
RS!Vrijednost = Podatak
RS.UPDATE
RS.MoveNext
loop
END IF
Rs.close
SET db=Nothing
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. |