加载错误48 加载DLL错误

卢云　发表于：2015-01-04 22:31:19 　

Private Sub Combo197_AfterUpdate()
' 查找与该控件匹配的记录。
Dim Rs As Object

Set Rs = Me.Recordset.Clone
Rs.FindFirst "[ID] = '" & Me![Combo197] & "'"
If Not Rs.EOF Then Me.Bookmark = Rs.Bookmark

End Sub

Set Rs = Me.Recordset.Clone显示**请教高手

Top

竹笛发表于：2015-01-04 23:34:30

在黄颜色的代码行前面加一行：

Set RS = CreateObject("ADODB.Recordset")

试试看

Top

zhaoyoulong 发表于：2015-01-05 17:16:56

Dim RS As Recordset

set Rs=Me.RecordsetClone

'这句不对 Set Rs = Me.Recordset.Clone

Rs.FindFirst "[ID] = '" & Me![Combo197] & "'"
If Not Rs.EOF Then Me.Bookmark = Rs.Bookmark

Top

总记录：2篇页次：1/1 9 1 :

Access交流中心

加载错误48 加载DLL错误