ＡＣＣＥＳＳ計算餘額

Question

請問ACCESS的高手
為何我寫了如下的Visual Basic內容
老是出現編譯錯誤：找不到方法或資料成員！

Public Sub 餘額()
Dim Db As ADODB.Connection, varBalance As Double
Dim Rs As Recordset
Set Db = New ADODB.Connection
Set Rs = New ADODB.Recordset
Rs.ActiveConnection = CurrentProject.Connection
On Error GoTo 錯誤式
Rs.Open "交易", , adOpenKeyset, adLockOptimistic, adCmdTable
varblance = 0
Do Until Rs.EOF
Rs.CancelUpdate
Rs("total") = Rs!o - u varBalance
Rs.Update
varBalance = Rs!total
Rs.MoveNext
Loop
Rs.Close
MsgBox "好了!"
DoCmd.SelectObject acTable, "交易", True
DoCmd.OpenTable "交易", acViewNormal, acEdit
DoCmd.GoToControl "total"
Exit Sub
錯誤式:
If rr.Number <> 0 Then
MsgBox "錯誤訊息" & Err.Description & "錯誤代碼" & Err.Number
Else
MsgBox "沒有錯誤,err代碼是:" & Err.Number
End If
Exit Sub
End Sub

Rs!o - u 為借-貸

Answer 1

Dim Db As ADODB.Connection
Dim Rs As ADODB.Recordset
Set Db = CurrentProject.Connection
Set Rs = New ADODB.Recordset
Rs.Open ＂SELECT * FROM 交易 ＂, Db, adOpenKeyset, adLockOptimistic
For Y = 1 To Rs.RecordCount
Rs.Edit
Rs(＂total＂) = Rs!o - u varBalance 、sorry !!不明白Rs!o - u varBalance ??
　varBalance = Rs(＂total＂)
　Rs.Update
Rs.MoveNext
Next
set Db=nothing
set Rs=nothing
以上作法僅供參考.

2007-03-14 08:49:32 補充：
計算餘額考慮的因素:
1)是否_按日期/或(其他條件)順序排列
2)何種狀況是累積_或扣除的區分
如果是_累積
Rs(＂餘額＂)=varBalance＋Rs(＂total＂)
varBalance=varBalance＋Rs(＂total＂)
如果是_扣除
Rs(＂餘額＂)=varBalance-Rs(＂total＂)
varBalance=varBalance-Rs(＂total＂)

2007-03-14 14:44:21 補充：
Rs!o - u 為借-貸 ＜= 請將表示法寫和你原來式子左邊一樣的表示法(＂＂）

Answer 2

●九州 娛樂 網站 http://ts777.cc
●●●運彩遊戲、真人遊戲、電子遊戲、對戰遊戲、對戰遊戲●●●

●新舊會員儲值就送500點

● 真人百家樂彩金等你拿

●線上影片直播、正妹圖、討論區免費註冊

歡迎免費體驗交流試玩!

●九州 娛樂 網站 http://ts777.cc

Answer 3

作一點建議:
買一本學貫行銷_實戰問答的書_第七章就有詳細解答.