拆分数据库后访问VBA错误
Access VBA error after splitting database
我创建了一个 Access 数据库，它运行良好。成功将数据库拆分为后端和前端后，我在共享驱动器中共享了 _be 文件，在本地共享了前端文件，我尝试 运行 前端，但在执行宏时出现错误：
我什至将后端和前端放在我的本地机器上，但仍然出现错误，我尝试删除宏但仍然出现错误，因为我不是开发此应用程序的人。
Dim fdb As Database
Dim utab As Table, otab As Table
DBEngine.SystemDB = "System.mdw"
Set fdb = CurrentDb()
Set utab = fdb.OpenTable("Users")
Set otab = fdb.OpenTable("Organization")
跟踪函数后findorg()我发现了这个错误
Item not found in the collection
对于这一行
Set utab = fdb.OpenTable("Users")
我尝试将代码更改为
Set utab = fdb.Rescordsets("Users")
但我仍然遇到同样的错误。
请注意，我正在使用后端和前端，我已链接所有表。
"Users" table 未链接到您所在的数据库 运行 此代码。 Link 再次检查，检查所有 table 也应该被链接。
我能够使用 DAO 3.6 对象库 解决问题，因为我发现当前的数据库应用程序正在使用 DAO 2.5，所以我重新编译了应用程序并修复了所有错误。我还设法重命名了宏调用的函数，我发现在宏中当我将调用函数编写为 findorg() 时将不起作用，但在函数名称中我指定 "findorg"之间双引号，其中运行成功。
我创建了一个 Access 数据库，它运行良好。成功将数据库拆分为后端和前端后，我在共享驱动器中共享了 _be 文件，在本地共享了前端文件，我尝试 运行 前端，但在执行宏时出现错误：
我什至将后端和前端放在我的本地机器上，但仍然出现错误，我尝试删除宏但仍然出现错误，因为我不是开发此应用程序的人。
Dim fdb As Database
Dim utab As Table, otab As Table
DBEngine.SystemDB = "System.mdw"
Set fdb = CurrentDb()
Set utab = fdb.OpenTable("Users")
Set otab = fdb.OpenTable("Organization")
跟踪函数后findorg()我发现了这个错误
Item not found in the collection
对于这一行
Set utab = fdb.OpenTable("Users")
我尝试将代码更改为
Set utab = fdb.Rescordsets("Users")
但我仍然遇到同样的错误。
请注意，我正在使用后端和前端，我已链接所有表。
"Users" table 未链接到您所在的数据库 运行 此代码。 Link 再次检查，检查所有 table 也应该被链接。
我能够使用 DAO 3.6 对象库 解决问题，因为我发现当前的数据库应用程序正在使用 DAO 2.5，所以我重新编译了应用程序并修复了所有错误。我还设法重命名了宏调用的函数，我发现在宏中当我将调用函数编写为 findorg() 时将不起作用，但在函数名称中我指定 "findorg"之间双引号，其中运行成功。