Access 表单 (VBA) 上的查询结果

Question

我作为一个新手正在做一个 Access 项目，我遇到了一些问题（必须在 VBA 中完成所有操作）。简而言之，我必须在表单上显示查询结果。我的文本框很少，我需要显示一些信息。我知道我必须将 RecordSource 更改为表单，并且我必须为每个文本框设置 RecordSet。这是我的代码，但不起作用：

 Private Sub Form_open(Cancel As Integer)
    Dim strSQL As String, queryDef As DAO.queryDef
    strSQL = " *SELECT etc...* "
    CurrentDb.QueryDefs.Delete "Info"
    Set queryDef = CurrentDb.CreateQueryDef("Info", strSQL)
    Me.RecordSource = queryDef.OpenRecordset() '**error here type mismatch

如何将我的 RecordSource 更改为打开表单时创建的查询？ （已尝试使用 Me.RecordSet = strSQL，但不适用于 INNER JOIN）
万分感谢！

Answer 1

您只需将表单记录源和表单记录集混为一谈。

recordsourceMe.RecordSource是一个字符串，包含一个表/查询名称或一个sql select语句。

Me.RecordSource = strSQL

记录集是一个对象。因此，必须设置它

Set Me.RecordSet = queryDef.OpenRecordSet

避免CurrentDb的多次使用，将其存储在一个变量中。

每次使用时，都会创建一个新的数据库实例副本（通常为DbEngine(0).Workspace(0)），这会消耗不必要的资源。

关于该主题的一些有用链接：

• The CurrentDb() Function

• CurrentDB.TableDefs vs db.TableDefs ... Object Invalid or Not Set Error

• MS Access: Is there a significant overhead when using CurrentDB as opposed to DBEngine(0)(0)?

Private Sub Form_Open(Cancel As Integer)
    Dim db as DAO.Database
    Dim strSQL As String, queryDef As DAO.queryDef
    strSQL = " *SELECT etc...* "
    Set db = CurrentDb

    Set queryDef = db.CreateQueryDef(vbNullString, strSQL) ' vbNullstring is "" but typo-safe. If you create a querydef with an empty name, it is just temporary and will get lost after querydef is terminated
    Set Me.RecordSet = queryDef.OpenRecordset() 

或者只是使用记录源：

Private Sub Form_Open(Cancel As Integer)
    Dim strSQL As String
    strSQL = " *SELECT etc...* "
    Me.RecordSource = strSQL