خوب اینو می دونم واسه یک کالا مشکلی نیست اگه به عکس بالا نگاه بندازی متوجه میشی بیشتر از یک کالا بشه مشکل دارم نحوه کد نویسی رو نمی دونم چطوری انجام بدم من خودم از این روش استقاده میکنم نمی دونم درسته یا غلطه کمک کنید ممنون میشم
On Error Resume Next
Dim recordcount
recordcount = Adodc3.Recordset.recordcount
For i = 1 To recordcount
curentrecordcode = Adodc3.Recordset.Fields("kod")
Adodc2.RecordSource = "SELECT * FROM T1 where kod=" & curentrecordcode & ""
Adodc2.Refresh
Adodc2.Recordset.Update
Adodc2.Recordset.Fields("Q") = (Adodc2.Recordset.Fields("Q") - Adodc3.Recordset.Fields("Q"))
Adodc2.Recordset.Update
Adodc3.Recordset.MoveNext
Next