Access 2016：在多个文本框中显示搜索结果

Question

该工作正在Access 2016中执行。创建了一个查询，然后从该查询中创建了一个表单。使文本框成为搜索记录的搜索框。搜索脚本如下。

Dim strsearch As String
Dim Task As String
'Check if a keyword entered or not
If IsNull(Me.txtSearch) Or Me.txtSearch = "" Then
   MsgBox "Please type in your search keyword.", vbOKOnly, "Keyword Needed"
   Me.txtSearch.SetFocus
Else
    strsearch = Me.txtSearch.Value
    Task = "SELECT * FROM [RSIDCircuit] WHERE ((RSID Like ""*" & strsearch & "*""))"
   Me.RecordSource = Task
End If

搜索可按预期工作，但希望在可以编辑的多个不同文本框中显示结果。希望第1列转到text4，第2列转到text5，依此类推。无法弄清楚如何使结果显示在各个文本框中。提交搜索后，其他文本框将变为空白，而所有其他文本框均未进行搜索时，将显示表的第一条记录。非常感谢您的协助。

Answer 1

使用子窗体（基于基表创建连续的子窗体，可以使用设计器，因此不必编写代码。

然后，要进行搜索，您只需将sql塞入子窗体中，如下所示：

Task = "SELECT * FROM [RSIDCircuit] WHERE ((RSID Like ""*" & strsearch & "*""))"
me.mySubForm.Form.RecordSource = Task

结果将看起来像这样：

结果可以由您编辑，或者如上所示，我可以得到结果，如果您单击眼镜图标，我将运行此代码以启动“向下钻取”详细信息表单以查看数据

docmd.OpenForm "frmDetails",,,"ID = " & me!id

因此，要显示重复的数据，请创建+使用通常称为连续形式（功能区中的多个项目形式）的形式。就像魔术一样，它允许您显示重复数据行，但是在设计表单时，您只需要放置/编辑/设计带有一行文本框的表单，该文本框会自动为您重复一遍又一遍。