Question

首先，我知道我的问题有点简单，但我对此很新。我有一个包含按钮（generate_btn），子表单（result_sbfrm），表（table1）的表单。目标是，我希望我的子窗体在单击按钮后显示查询结果。

以下是我的代码：

Private Sub generate_btn_Click()
    Dim qry As String
    qry = "select * from Table1;"
    Me.result_sbfrm.Form.RecordSource = qry
End Sub

它返回错误2467“您输入的表达式指的是一个已关闭或不存在的对象。”

调试在“Me.result_sbfrm.Form.RecordSource = qry”停止

Answer 1

正如错误消息告诉您的那样，您正在尝试设置已关闭的对象的记录源，以便首先将其打开。

自从我使用VBA或Access以来，已经有很长一段时间了......但

Private Sub generate_btn_Click()
    Dim qry As String
    qry = "select * from Table1;"
    DoCmd.OpenForm "result_sbfrm"
    Forms!result_sbfrm.RecordSource = qry 
End Sub

vb使用onclick按钮访问子表单

1 个答案: