按ESC退出附件窗体时去掉“用户取消操作”弹窗的解决方法

时　间:2023-05-08 15:45:21
作　者:ligy118   ID：81743  城市：洛阳
摘　要:Access快速开发平台的附件模块，如果打开不进行操作，按esc直接退出，有时会弹“用户取消操作”弹窗。两个办法不弹窗。
正　文:

      Access快速开发平台的通用附件管理模块，如果打开不进行操作，按esc直接退出，有时会弹“用户取消操作”弹窗。如下图：

解决方法1：

用鼠标点“取消”按钮即可。

解决方法2：

弹窗代码位于SysFrmAttachments窗体的EmptyDump过程。错误代码为3059，修改此过程，屏蔽掉3059错误的弹窗。

Public Sub EmptyDump()
    On Error GoTo ErrorHandler
'
ExitHere:
    On Error Resume Next
    CurrentDb.Execute "Delete FROM TMP_Attachments Where SessionID='" & Me.SessionID & "'"
    Exit Sub
    
ErrorHandler:
    If strFlag <> "File deleted" Then
        '如果是3059报错就不提示。
        If Err <> 3059 Then
            MsgBoxEx Err.Description, vbCritical
        End If
        
    End If
    Resume ExitHere
End Sub

具体报错原因没时间查，我的思路如下：

运行Set rst = CurrentDb.OpenRecordset(strSQL) 这句代码时出现了问题。