如何在使用 VBA 访问的子表单中显示 Select SQL 语句的结果？

Question

我不知道为什么使用 VBA 在子表单中显示 SELECT 语句太难，而在 VB 中显示数据在 [=15] 中太容易=].

"Type Mismatch" 当我运行代码时，第 Me.DGVResultado.Form.RecordSource = qdf 行出现错误。

这是完整代码：

Private Sub btnSearch_Click()

Dim qdf As New DAO.QueryDef
Dim pSQL As String

pSQL = "SELECT * FROM Seguimiento"

Set qdf = CurrentDb.CreateQueryDef("Consultasql", pSQL)

Me.DGVResultado.SourceObject = "Seguimiento"
Me.DGVResultado.Form.RecordSource = qdf
Me.DGVResultado.Requery

End Sub

Answer 1

表单的 Recordsource 属性需要字符串，而不是 querydef。

您可以使用：

Me.DGVResultado.Form.RecordSource = qdf.name

或

Me.DGVResultado.Form.RecordSource = pSQL

或

Me.DGVResultado.Form.RecordSource = qdf.sql

如何在使用 VBA 访问的子表单中显示 Select SQL 语句的结果？

How to display the result of a Select SQL statement in a subform of access with VBA?

sql

ms-access

vba

subform