ms-access - 使用 Access VBA 更改窗体的记录源

Question

我正在创建一个搜索表单，但无法在子表单中看到搜索结果。查询运行良好，我已将子表单记录源设置为查询。我没有收到任何错误。当我单击搜索按钮时，查询运行并在子表单底部的记录选择器中显示行数，但我看不到这些行。

这是我为按钮的 OnClick 事件编写的代码:

Private Sub cmdSearch_Click()

Dim tableName As String
Dim colName As String
Dim keyword As String
Dim strSQL As String

tableName = Me.cmbTableNames.Value
colName = Me.cmbColumnNames.Value
keyword = Me.txtKeyword.Value
strSQL = "Select * from [" & [tableName] & "] where [" & [colName] & "] like '*" &  [keyword] & "*';"
Debug.Print strSQL
Me.searchResultsForm.Visible = True

Forms![F_SearchForm]![searchResultsForm].Form.RecordSource = "Select * from [" &   [tableName] & "] where [" & [colName] & "] like '*" & [keyword] & "*';"
Forms![F_SearchForm]![searchResultsForm].Form.Requery
End Sub

谁能告诉我我做错了什么。

谢谢

这是在调试打印的即时窗口中显示的内容

Select * from [dbo_Internal Contacts] where [First Name] like '*Amy*';

我的表单在表单 View 中看起来像这样:

我在我的子表单中添加了一些文本框(大约 35 个)。现在，如果我运行查询，我的表单如下所示:

如何使用 vba 将子表单上的这些文本框链接到记录源中的列？

请帮忙

Answer 1

我想通了。这是我做的

我将查询修改为

Select * into tmpSearchResults from [" & [tableName] & "] where [" & [colName] & "] like '*" & [keyword] & "*';

然后我将 tmpSearchResults 作为记录源提供给了我的子表单。

每次更新表名称组合框时，我都会删除 tmpSearchResults 表。

它就像我想要的那样工作。