Access VBA：无匹配记录时弹出MsgBox避免空报表求助

原代码的核心问题是判断逻辑错误：If Not NULL Me.Filter的写法既不符合VBA语法，也没法正确检测是否存在匹配记录——只要设置了Filter，这个字符串就不会是Null，不管有没有对应数据。

推荐两种可靠的实现方式：

方法1：用DCount预先统计匹配记录数 #

先通过DCount函数统计表Abgabe_Unterlagen里符合条件的记录数量，再决定是否打开报表：

Private Sub SachBearbeiterBericht_Click()
    Dim matchCount As Long
    ' 统计匹配的记录数
    matchCount = DCount("*", "Abgabe_Unterlagen", "Sachbearbeiter_ID_F = " & Me.SachbearbeiterSuche)
    
    If matchCount > 0 Then
        ' 有匹配记录，打开报表
        DoCmd.OpenReport "R_MandantZuSachbearbeiter", acPreview, , "Sachbearbeiter_ID_F = " & Me.SachbearbeiterSuche
    Else
        ' 无匹配记录，弹出提示
        MsgBox "Der Bericht enthält keine Daten.", vbInformation + vbOKOnly, "Keine Daten"
    End If
End Sub

方法2：检查窗体过滤后的记录数 #

如果需要同步更新窗体的过滤显示，也可以直接读取窗体记录集的记录数：

Private Sub SachBearbeiterBericht_Click()
    Me.Filter = "Sachbearbeiter_ID_F = " & Me.SachbearbeiterSuche
    Me.FilterOn = True
    
    ' 检查过滤后的记录数量
    If Me.Recordset.RecordCount > 0 Then
        DoCmd.OpenReport "R_MandantZuSachbearbeiter", acPreview, , "Sachbearbeiter_ID_F = " & Me.SachbearbeiterSuche
    Else
        MsgBox "Der Bericht enthält keine Daten.", vbInformation + vbOKOnly, "Keine Daten"
    End If
End Sub

如果SachbearbeiterSuche是文本类型（而非数字ID），需要给参数加单引号，避免语法错误：

"Sachbearbeiter_ID_F = '" & Me.SachbearbeiterSuche & "'"

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