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
varbalance = 0
Do Until Rs.EOF
Rs.CancelUpdate
Rs("余額") = Rs!存入 - Rs!提款 + varbalance
Rs.Update
varbalance = Rs!余額
Rs.MoveNext
Loop
Rs.Close
MsgBox "存款余額已替你補好了，不必自己計算"
DoCmd.SelectObject acTable, "銀行存款", True
DoCmd.OpenTable "銀行存款", acViewNormal, acEdit
DoCmd.GoToControl "余額"
錯誤式:
If Err.Number <> 0 Then
MsgBox "錯誤資訊:" & Err.Description & "錯誤代碼" & Err.Number
End If
Exit Sub
End Sub
運行到第6行時提示錯誤
Rs.ActiveConnection = CurrentProject.Connection------------此處提示錯誤：方法和資料成員未找到
有沒有高手可以提示一下啊，我估計是有工程里有一個參考沒有勾上，可是我不知道是哪個啊，求高手指點，謝！
uj5u.com熱心網友回復：
自己在網上找到了另外的解決方法：Dim Db As Object
Dim varbalance As Double
Dim rs As Object
Set Db = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")
rs.ActiveConnection = CurrentProject.Connection
這樣就可以運行了
uj5u.com熱心網友回復：
dim rs as adodb.recordset試試
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/62456.html
標籤：VB基礎類