关于DoCmd.OutputTo点击取消后的问题！

xuchunyang

大家好，请看下面这段代码。

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

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

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

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

谢谢大家！

Access代码爱好者

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