Question

用 access vba 编写的实时查询数据库并将结果显示在子窗口的程序

Private Sub Text2_Change()
Set recdst1 = New ADODB.Recordset
recdst1.ActiveConnection = CurrentProject.Connection
recdst1.CursorType = adOpenDynamic
recdst1.Open " Select * FROM 99规范列表 where [99规范列表].规范名称 like '*" & Text2.Value & "*'", , adOpenDynamic, adLockOptimistic

Set Me.Child75.Form.Recordset = recdst1
Child75.Form.Refresh
Child75.Form.Requery

recdst1.Close
Set recdst1 = Nothing
End Sub
程序运行到 “Set Me.Child75.Form.Recordset = recdst1” 一行
提示 运行时错误 ‘7965’
您输入的对象不是有效的 Recordset 属性。
请问是什么原因

Answer 1

如下即可：

Private Sub Text2_Change()
    me.Child75.SourceObject="数据表.99规范列表"
    with me.Child75.form
        .Filter="规范名称 like '*" & Text2.Value & "*'"
        .FilterOn = True
    end with
End Sub