کد vba درخصوص جمع تجمعی ردیف به ردیف با توجه به کدهای مشابه

[saeed2142]

دوستان

باسلاموتبریک عید فطر .
من می خوام درکد فوق ستون مربوط فقط جمع تجمعی کد های مشابه را بدست بیاره که متاسفانه هرچی سعی میکنم حلقه بدون توجه به کد از ابتدا تا انتها را جمع می بنده لطفا راهنمایی ام کنید
Private Sub Command71_Click()
Dim db As Database
Dim rst As Recordset
Set db = CurrentDb
'ÏÑÕæÑÊ Çíä˜å ÈÇwhereäÓÈÊ Èå ÓÊ rstÇÓÊÝÇÏå ˜äã ÈÇ ÍáÞå for ÝÞØ Ñæí ˜Ï ãÑÈæØ Èå јæÑÏ ÌÇÑí ãÍÇÓÈå ãí ˜äå
'Set rst = db.OpenRecordset("select * from Factor WHERE Factor.IVHCustCode=" & Me.IVHCustCode)
'ÓÊ ÈÏæä ÇÓÊÝÇÏå ÇÒ where
Set rst = db.OpenRecordset("select * from Factor ")
Dim i As Double
Dim X As Integer
Dim VarBalance As Double
If rst.RecordCount > 0 Then rst.MoveFirst
rst.MoveLast
X = rst.RecordCount
rst.MoveFirst
'ÍáÞå Èå ÇäÊåÇ Ñ˜æÑÏãíÑå
Do Until rst.EOF
'ÍáÞå ÓÚí ÏÇÑå ˜Ï åÇí ãÔÇÈå ÑÇ ÌãÚ ˜äå
For i = rst.Fields("IVHCustCode") To rst.Fields("IVHCustCode")
'ãÍÇÓÈå ÌãÚ ÑÏíÝí ÊÌãÚí
VarBalance = VarBalance + rst.Fields("StaleInvoice")
rst.Edit
rst.Fields("debris").Value = VarBalance
Next i
rst.MoveNext
Loop
Form.Refresh
Form_FactorList.Requery
MsgBox "ÊÚÏÇÏ" & " " & X & " ÑßæÑÏ" & "ãÍÇÓÈå ÑÏíÏ", _
vbInformation + vbMsgBoxRight, "ãÍÇÓÈå"
rst.Close
Set rst = Nothing
Set db = Nothing
End Sub

[saeed2142]

دوستان

باسلاموتبریک عید فطر .
من می خوام درکد فوق ستون مربوط فقط جمع تجمعی کد های مشابه را بدست بیاره که متاسفانه هرچی سعی میکنم حلقه بدون توجه به کد از ابتدا تا انتها را جمع می بنده لطفا راهنمایی ام کنید
Private Sub Command71_Click()
Dim db As Database
Dim rst As Recordset
Set db = CurrentDb
'ÏÑÕæÑÊ Çíä˜å ÈÇwhereäÓÈÊ Èå ÓÊ rstÇÓÊÝÇÏå ˜äã ÈÇ ÍáÞå for ÝÞØ Ñæí ˜Ï ãÑÈæØ Èå јæÑÏ ÌÇÑí ãÍÇÓÈå ãí ˜äå
'Set rst = db.OpenRecordset("select * from Factor WHERE Factor.IVHCustCode=" & Me.IVHCustCode)
'ÓÊ ÈÏæä ÇÓÊÝÇÏå ÇÒ where
Set rst = db.OpenRecordset("select * from Factor ")
Dim i As Double
Dim X As Integer
Dim VarBalance As Double
If rst.RecordCount > 0 Then rst.MoveFirst
rst.MoveLast
X = rst.RecordCount
rst.MoveFirst
'ÍáÞå Èå ÇäÊåÇ Ñ˜æÑÏãíÑå
Do Until rst.EOF
'ÍáÞå ÓÚí ÏÇÑå ˜Ï åÇí ãÔÇÈå ÑÇ ÌãÚ ˜äå
For i = rst.Fields("IVHCustCode") To rst.Fields("IVHCustCode")
'ãÍÇÓÈå ÌãÚ ÑÏíÝí ÊÌãÚí
VarBalance = VarBalance + rst.Fields("StaleInvoice")
rst.Edit
rst.Fields("debris").Value = VarBalance
Next i
rst.MoveNext
Loop
Form.Refresh
Form_FactorList.Requery
MsgBox "ÊÚÏÇÏ" & " " & X & " ÑßæÑÏ" & "ãÍÇÓÈå ÑÏíÏ", _
vbInformation + vbMsgBoxRight, "ãÍÇÓÈå"
rst.Close
Set rst = Nothing
Set db = Nothing
End Sub
نمونه فایل پیوست هست