Question

我不知道为什么使用VBA在子窗体中显示SELECT语句太难了，在VB中显示DataGridView中的数据太容易了。

运行代码时，

“类型不匹配”错误出现在行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

OR

Me.DGVResultado.Form.RecordSource = pSQL

OR

Me.DGVResultado.Form.RecordSource = qdf.sql

如何在VBA访问子窗体中显示Select SQL语句的结果？

1 个答案: