续-如何设计按钮打开“获取外部数据”菜单

Lee　发表于：2010-04-15 20:16:50 　

我想用VBA在Access中设计一个按钮，能打开菜单栏的“获取外部数据”菜单，以方便导入Excel等数据，注意是打开菜单，不是直接指向导入某文件。

煮江品茶回复如下：

获取外部数据有两个子项：

其一名曰导入，调用可写成DoCmd.RunCommand acCmdImport

其二名曰链接表，调用可写成DoCmd.RunCommand acCmdLinkTables。

按以上设置按钮后能顺利打开导入窗口，但有一小问题，如果取消导入，会弹出调试窗口“运行时错误2501：这个RunCommand操作被取消”，如何能取消这个调试窗口弹出？

煮江品茶发表于：2010-04-18 09:40:51

加错误处理即可。

煮江品茶发表于：2010-04-18 09:53:02

1、在模块中写一个子程序或函数：

Sub GetVal(num as long)

'功能：获取外部数据

'参数：num---num=1 导入；num=2 链接表
On Error GoTo Err_GetVal

select case num

case 1

DoCmd.RunCommand acCmdImport

case 2

DoCmd.RunCommand acCmdLinkTables

case else

exit sub

end select

Exit_GetVal:
Exit Sub

Err_GetVal:
Resume Exit_GetVal
End Sub

2、调用时：

Private Sub Command1_Click()
call GetVal(1)
End Sub

Lee 发表于：2010-04-19 23:26:04

内容对于我这外行来说有点复杂，但确实能解决上述问题，谢谢煮江品茶先生。

总记录：3篇页次：1/1 9 1 :

Access交流中心