vba - 运行时错误 3021 - 没有当前记录

Question

我想将查询结果链接到文本框，但出现此错误:这是我的代码:

Dim rst As DAO.Recordset
Set rst = CurrentDb.OpenRecordset("SELECT XValue, YValue,Wert FROM tb_DCM_Daten WHERE (FzgID=" & Forms!frm_fahrzeug!ID & " AND Name='" & List2.Value & "')")
Text10.Text = rst!XValue //error in this line

它应该是返回 c.a 20 记录

为什么会出现此错误，我该如何解决？

Answer 1

错误的一种可能原因是 Name是 Access 中的保留字，因此您应该使用

... & " AND [Name]='" & ...

您还可以测试 rst.EOF在尝试使用之前 rst!XValue .也就是说，要验证您的查询是否返回至少一行，您可以添加代码

If rst.EOF Then
    MsgBox "The Recordset is empty."
End If

紧接在 .OpenRecordset 之后称呼。如果 Recordset 为空，那么您需要按照@GregHNZ 在上面的评论中的描述验证您的 SQL 语句。