MS Access 2019：无法在 VBA 中使用 SQL 查询填充表单字段

问题描述

我想根据 sql 查询的结果在我的表单中自动填充一个字段。我只是不确定正确的语法来让它正确读取查询。这是我得到的，但它没有返回查询的值，它实际上只是返回查询本身的文本。

Private Sub PurchBatchNo_Enter()

Dim MostRecentPurchBatch As String
MostRecentPurchBatch = "SELECT Max(PurchaseBatchNo) FROM purchases"
Me.PurchBatchNo.Value = MostRecentPurchBatch

End Sub

我确定这个问题与引号有关，但没有它们也不起作用，我不知道如何正确书写。

感谢像我这样的初学者来到这里！

解决方法

您的代码所做的就是将变量设置为字符串，然后尝试使用该字符串设置字段的值。

但是为什么要使用已在记录中使用的值填充字段？您很可能需要加 1。

要使用 SQL 语句，必须打开一个记录集对象，然后引用记录集的字段。

Private Sub PurchBatchNo_Enter()
Dim MostRecentPurchBatch As DAO.Recordset
If IsNull(Me.PurchBatchNo) Then
    Set MostRecentPurchBatch = CurrentDb.OpenRecordset("SELECT Max(PurchaseBatchNo) AS MaxBatch FROM purchases")
    Me.PurchBatchNo = MostRecentPurchBatch!MaxBatch + 1
End If
End Sub

但是，从表中提取单个值是域聚合函数的优点。

Private Sub PurchBatchNo_Enter()
If IsNull(Me.PurchBatchNo) Then Me.PurchBatchNo = DMax("PurchaseBatchNo","purchases") + 1
End Sub

不要使用 VBA 程序，只需考虑使用 DMax() 表达式设置绑定到 PurchBatchNo 字段的文本框的 DefaultValue 属性。一旦通过输入到另一个文本框启动记录，PurchBatchNo 就会填充。

如果用户无法编辑此值，请将文本框设置为 Locked Yes 和 TabStop No，并在使用 VBA 时为 VBA 代码使用不同的事件。