3

我将我的数据库拆分为一个包含数据表的后端和一个包含表单、查询、报告和模块的前端,并链接表。其中一张表从 Excel 表中获取数据;通常我会使用链接表,但如果打开任何查询,则无法打开 excel 表,因此我使用保存的导入将所有数据从 excel 表中提取到表中。

现在,我想在我的前端菜单上添加一个按钮,DoCmd.RunSavedImportExport "savedimportnamehere"除了保存的导入在后端之外运行,所以我必须将该命令发送到后端......我不太确定如何要做到这一点。如果有人能指出我正确的方向,我将不胜感激。

4

1 回答 1

4

您可以针对 MS Access 实例运行命令,因此:

Dim apAccess As New Access.Application
apAccess.OpenCurrentDatabase ("c:\docs\backend.mdb")
apAccess.DoCmd.RunSavedImportExport "savedimportnamehere"

您还可以针对 db 或连接的实例运行查询:

sSQL="INSERT INTO Table1 ( ADate ) " _
& "SELECT SomeDate " _
& "FROM [Excel 8.0;HDR=YES;DATABASE=Z:\Docs\Test.xls].[Sheet1$a1:a4]"
于 2012-07-25T18:52:13.120 回答