点击下载此附件

public ce as Boolean
'load 与Activate()事件
ce=true

'关闭按钮() 事件
ce=false
docmd.close


'unload ()事件
if ce then
cancel=true
else
cancel=false
End if