我最近用access2010做了一個工資發放資料庫，添加“成為當前"的事件程序時，用VB編的代碼總是編譯不成功，
顯示運行時錯誤3704 物件關閉時，不允許操作，求高手指教！！！
------------------------------------------------------------------------------------------------
Private Sub Fillbtns()
'顯示切換框中的串列
'顯示按鈕
Const connumbottons As Integer = 8
Dim rs As New ADODB.Recordset
Dim strsql As String
Dim intbtn As Integer
Me![btn1].SetFocus
For intbtn = 2 To connumbuttons
Me("btn" & intbtn).Visible = False
Me("lbl" & intbtn).Visible = False
Next intbtn
'打開表Switchboard Items
strsql = "SELECT * FROM[Switchboard Items]"
strsql = strsql & "WHERE [ItemNumber] > 0 AND [SwitchboardID]=" & Me![SwitchboardID]
strsql = strsql & "ORDER BY [ItemNumber];"
Set rs = Getrs(strsql)
If (rs.EOF) Then
Me![lbl1].Caption = "此切換面板頁上無專案"
Else
While (Not (rs.EOF))
Me("btn" & rs![ItemNumber]).Visible = True
Me("lbl" & rs![ItemNumber]).Visible = True
Me("lbl" & rs![ItemNumber]).Caption = rs![ItemText]
rs.MoveNext
Wend
End If
'關閉資料集合和資料庫
rs.Close
Set rs = Nothing
End Sub
------------------------------------------------------------------------------------------
uj5u.com熱心網友回復：
Getrs怎么寫的？其中有沒有打開連接（Connection.Open）？有沒有提前關閉了連接？
uj5u.com熱心網友回復：
這個提示說明沒有與資料庫建立連接uj5u.com熱心網友回復：
Public Function Getrs(ByVal Strquery As String) As ADODB.RecordsetDim rs As New ADODB.Recordset
Dim conn As New ADODB.Connection
On Error GoTo getrs_error
Set conn = CurrentProject.Connection
rs.Open Strquery, conn, adopenkeyset, adLockOptimistic
Set Getrs = rs
getrs_exit:
Set rs = Nothing
Set conn = Nothing
Exit Function
getrs_error:
MsgBox (Err.Description)
Resume getrs_exit
End Function
----------------------------------------
這是Getrs的代碼。。。
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/112473.html