محاسبه

[hoshy345]

با سلام خدمت سروران گرامی


من از این چهار فیل No, Credit ,Debit,Balance در یکی از تیبلهام استفاده کرده
و دوتا فرم دارم بنام Calc و Balance Sheet
حال در فرم Balance Sheet در خاصییت after update فیلدهای credit و Debit ل از این کد استفاده کردم DoCmd.OpenForm "calc", acNormal, "", "", , acHidden

و در خاصییت on open فرم Calc از این کد
DoCmd.GoToRecord acForm, "Calc", acFirst
Dim B
If Me!No > 0 Then
Me!Balance = me!Credit-Me!Debit
Do While Me!No > 0
B=Me!Balance

DoCmd.GoToRecord acActiveDataObject, , acNext
If Me!No > 0 Then
Me!Balance = (me!Credit-Me!Debit)+B
End If
Loop
End If
DoCmd.Close
این کار من را راه میندازه ولی همیشه فکر میکنم راه بهتری وجود داره اگه راههای دیگه ای هست لطفا منو راهنمایی کنید
مثلا لزومی به فرم calc نداشته باشم
ممنون