نوشته شده توسط
reza2371
ممنونم از پاسختون
لطف میکنید برای دو سوال دیگه هم منو راهنمایی کنید
يك نمونه كد با لوپ براي ويرايش:
Set rs1 = New ADODB.Recordset
rs1.Open "select * from subpsc where scser=" & prc, Cn, adOpenDynamic, adLockOptimistic, 1
For intcurrentrow = 0 To Me.List6.ListCount - 1
rs1!scser = prc
rs1!Dcode = Me.List6.Column(9, intcurrentrow)
rs1!price = Me.List6.Column(5, intcurrentrow)
.
.
.
rs1.Update
Next intcurrentrow
MsgBox "داده ويرايش شد" & " " & CInt(Right(rs!ser, 4)), vbApplicationModal, "ويرايش"
Set rs = Nothing
Set rs1 = Nothin