Access链接ODBC视图删除记录：自定义VBA函数未触发问题

要取消Access默认删除操作并仅执行自定义SQL，需修改Form_BeforeDelConfirm函数，核心是阻止默认删除流程、确保自定义删除语句执行，具体修正如下：

修正后的VBA代码 #

Private Sub Form_BeforeDelConfirm(Cancel As Integer, Response As Integer)
    ' 取消默认删除确认流程，阻止Access执行自带删除逻辑
    Cancel = True
    Response = acDataErrContinue
    
    If Not IsNull(Text104.Value) Then
        Dim deleteLabel As DAO.QueryDef
        Set deleteLabel = CurrentDb.CreateQueryDef("")
        
        ' 复用链接表的ODBC连接配置
        deleteLabel.Connect = CurrentDb.TableDefs("KontrollWerte").Connect
        deleteLabel.ReturnsRecords = False ' 非查询语句，无需返回记录
        
        ' 仅针对目标视图执行自定义删除
        If InStr(QuerySave, "KontrollWerteVIEW") <> 0 Then
            deleteLabel.SQL = "DELETE FROM KontrollWerte_Label WHERE Kontrolle_Label_ID = " & Text104.Value
            ' 执行自定义删除SQL
            deleteLabel.Execute dbFailOnError
            ' 刷新窗体，同步最新数据显示
            Me.Requery
        End If
        
        ' 释放DAO对象资源
        Set deleteLabel = Nothing
    End If
End Sub

关键修改点说明 #

• 阻断默认操作：Cancel = True关闭默认删除确认弹窗，Response = acDataErrContinue阻止Access抛出视图不可更新的默认错误。
• 执行自定义SQL：添加deleteLabel.Execute dbFailOnError语句，确保自定义删除逻辑被触发，dbFailOnError会在SQL执行失败时抛出错误，便于调试问题。
• 修复资源清理：用Set deleteLabel = Nothing替代原错误的Close语句，正确释放DAO对象资源。
• 同步界面数据：删除完成后调用Me.Requery刷新窗体，让界面显示最新的查询结果。

可选优化（防SQL注入） #

为避免直接拼接SQL带来的注入风险，建议改用参数化查询：

deleteLabel.SQL = "DELETE FROM KontrollWerte_Label WHERE Kontrolle_Label_ID = ?"
deleteLabel.Parameters(0).Value = Text104.Value
deleteLabel.Execute dbFailOnError

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