Access VBA：存储过程中处理Null返回值问题求助

你的核心问题不是字段值为Null，而是当查询没有匹配到任何记录时，记录集（rs7c）是空的，此时直接访问rs7c.Fields(0).Value会触发错误。你之前用IsNull()、Nz()都没解决，因为这些都是处理字段值的，没法应对空记录集的情况。

修复步骤 #

• 先判断记录集是否为空：用rs7c.EOF检查是否没有返回任何记录，避免直接访问不存在的字段导致报错。
• 简化查询逻辑：不需要返回多余字段，只统计符合条件的记录数即可，提升效率。
• 修正DCount参数错误：原代码中直接用txt_SubmNo会被当成字符串常量，需要拼接成正确的控件引用。

修正后的代码 #

Private Sub btn_SaveIssue6a_Click()
    Dim txt_BondNo As String
    Dim prompt07a1 As Integer
    Dim prompt7c12 As Integer
    Dim txt_SubmNo As String
    Dim DB As Database
    Dim rs7c As Recordset

    ' 获取表单上的提交编号和保函编号
    txt_SubmNo = Me.txt_SubmNo
    txt_BondNo = Me.txt_BondNo

    ' 查询该提交下已发行的投标保函数量
    Set DB = CurrentDb
    Set rs7c = DB.OpenRecordset("SELECT Count(*) AS IssuedCount " & _
                                "FROM 7_BONDS " & _
                                "WHERE [6_BondIssued]='Issued' " & _
                                "AND [5_SubmNo]='" & txt_SubmNo & "' " & _
                                "AND [5_BondType]='Bid Bond';")

    ' 逻辑判断：无已发行保函则执行主流程，否则提示重复
    If rs7c.EOF = False And rs7c!IssuedCount = 0 Then
        ' 确认是否发行保函
        prompt07a1 = MsgBox("这将在系统中发行保函。确定要发行保函编号 " & txt_BondNo & " 吗？", vbQuestion + vbYesNo + vbDefaultButton2, "发行保函")
        
        If prompt07a1 = vbYes Then
            ' 修正DCount的参数拼接问题
            If DCount("[5_SubmNo]", "7_BONDS", "[5_SubmNo] = '" & txt_SubmNo & "'") = 0 Then
                DoCmd.OpenQuery "7a_BidBondSaveISSUED"
                DoCmd.OpenQuery "7c_app_BondAmt"
            Else
                DoCmd.OpenQuery "7b_upd_BidBondISSUEDupdate"
                DoCmd.OpenQuery "7c_app_BondAmt"
            End If
        Else
            ' 关闭当前表单（原代码中"MsgBox"为笔误，改为当前表单名称）
            DoCmd.Close acForm, Me.Name, acSaveNo
        End If
    Else
        ' 提示已存在重复保函
        prompt7c12 = MsgBox("该提交编号下已存在已发行的投标保函。", vbOKOnly, "重复提示") = vbOK
    End If

    ' 释放资源
    Set rs7c = Nothing
    Set DB = Nothing
End Sub

关键说明 #

• 空记录集判断：用rs7c.EOF确认是否有查询结果，避免空记录集访问字段的错误。
• 查询简化：去掉不必要的GROUP BY，直接用WHERE筛选后统计总数，逻辑更清晰。
• 参数拼接修正：DCount的条件中必须把控件值拼接成字符串，才能正确匹配数据库中的记录。

内容的提问来源于stack exchange，提问作者BrianM