Office中国论坛/Access中国论坛

标题: 关于DoCmd.OutputTo点击取消后的问题！ [打印本页]

作者: xuchunyang 时间: 2013-1-16 13:58
标题: 关于DoCmd.OutputTo点击取消后的问题！
大家好，请看下面这段代码。

sub test()
DoCmd.OutputTo acOutputTable, "a", acSpreadsheetTypeExcel9
DoCmd.DeleteObject acTable, "b"
end sub

我是想在输出表a后，在数据库中删除表b。

但是现在的问题是，如果我在弹出的对话框中选择了“确定”，那么可以实现我的要求删除表b；
而如果我选择了“取消”，即我没有输出表a，那么DoCmd.DeleteObject acTable, "b"就不执行了。

我想有什么方法可以实现，无论我输不输出表a，最后都可以删除表b。

谢谢大家！

作者: Access代码爱好者 时间: 2013-1-16 14:09
本帖最后由 Access代码爱好者于 2013-1-16 14:13 编辑

If MsgBox("输出表a", vbYesNo) = vbYes Then
   DoCmd.OutputTo acOutputTable, "a", acSpreadsheetTypeExcel9
   DoCmd.DeleteObject acTable, "b"
Else
   DoCmd.DeleteObject acTable, "b"
End If

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)