运行时错误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

它应该是返回ca 20记录

为什么我会收到此错误,如何解决？

Answer 1

出错的一个可能原因是NameAccess中的保留字,因此您应该使用

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

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

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

.OpenRecordset电话结束后立即.如果Recordset 为空,那么您需要在上面的评论中验证您的SQL语句,如@GregHNZ所述.