Access VBA筛选按钮报错2427：无法捕获目标TypeID不存在的情况

这个错误的核心原因是当你尝试筛选不存在的TypeID时，ApplyFilter找不到匹配记录就会抛出2427错误。我们可以通过两种实用方式解决这个问题，一种是提前验证目标ID是否存在，另一种是捕获错误并友好提示，下面分别给出具体实现：

方法一：提前检查目标TypeID是否存在（推荐） #

使用DCount函数先查询数据库，确认目标TypeID对应的记录存在后再执行筛选，这样能从根源避免错误触发：

加1按钮的修改代码 #

Private Sub btnTypeIDAdd_Click()
    Dim targetID As Long
    ' 先判断当前是否有选中的TypeID
    If IsNull(Me.TypeID) Then
        MsgBox "请先选择一条记录再执行操作！", vbInformation
        Exit Sub
    End If
    
    targetID = Me.TypeID + 1
    ' 替换下面的"你的数据表名称"为实际的表名
    If DCount("*", "你的数据表名称", "[TypeID] = " & targetID) > 0 Then
        DoCmd.ApplyFilter "", "[TypeID] = " & targetID
    Else
        MsgBox "TypeID为 " & targetID & " 的记录不存在，请尝试其他操作！", vbExclamation
    End If
End Sub

减1按钮的修改代码 #

只需要把+1改成-1，再加上最小值限制判断即可：

Private Sub btnTypeIDMinus_Click()
    Dim targetID As Long
    If IsNull(Me.TypeID) Then
        MsgBox "请先选择一条记录再执行操作！", vbInformation
        Exit Sub
    End If
    
    targetID = Me.TypeID - 1
    ' 避免出现无效的TypeID值（比如小于1）
    If targetID < 1 Then
        MsgBox "TypeID不能小于1！", vbExclamation
        Exit Sub
    End If
    
    If DCount("*", "你的数据表名称", "[TypeID] = " & targetID) > 0 Then
        DoCmd.ApplyFilter "", "[TypeID] = " & targetID
    Else
        MsgBox "TypeID为 " & targetID & " 的记录不存在，请尝试其他操作！", vbExclamation
    End If
End Sub

方法二：捕获错误并处理 #

如果觉得提前查询有点繁琐，也可以直接捕获2427错误，在错误发生时给出友好提示：

加1按钮的错误捕获实现 #

Private Sub btnTypeIDAdd_Click()
    Dim targetID As Long
    If IsNull(Me.TypeID) Then
        MsgBox "请先选择一条记录再执行操作！", vbInformation
        Exit Sub
    End If
    
    targetID = Me.TypeID + 1
    ' 开启错误捕获
    On Error Resume Next
    DoCmd.ApplyFilter "", "[TypeID] = " & targetID
    ' 判断是否触发了2427错误
    If Err.Number = 2427 Then
        MsgBox "TypeID为 " & targetID & " 的记录不存在！", vbExclamation
        Err.Clear ' 清除错误状态
    End If
    ' 关闭错误捕获，恢复默认错误处理
    On Error GoTo 0
End Sub

注意事项 #

• 请务必将代码中的你的数据表名称替换为你实际使用的表的名称；
• 如果你的TypeID是文本类型而非数字类型，需要给目标ID加上单引号，比如："[TypeID] = '" & targetID & "'"；
• 减1操作时的最小值限制可以根据你的业务需求调整（比如允许TypeID为0就去掉判断）。

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