请高手帮忙，谢谢！

hqlin65 · 发表于 2019-9-23 11:45

本帖最后由 hqlin65 于 2019-9-23 11:49 编辑

我有二个结构完全相同的ACCESS数据库，如AA2018.mdb, BB2019.mdb（因怕数据较多，运行慢，所以做成多个结构完全相同的ACCESS数据库），VBA代码如下：
DBPath = ThisWorkbook.Path & "\BB2019.mdb" 或
DBPath = ThisWorkbook.Path & "\AA2018.mdb"

CNN.Open "Provider=Microsoft.Jet.Oledb.4.0;data Source=" & DBPath
因为模块或窗体很多，每次都必须一个一个去修改，请教是否可以写一个模块或类模块，如
DBPath =******,
这样，以后我在这里修改一下“*****”，所有的模块或窗体上的DBPath = & "\“都能自动引用DBPath =******

roych · 发表于 2020-10-10 10:25

其实简单啊。把DBPath作为参数传入函数就可以了。

hqlin65 · 发表于 2020-10-15 12:35

roych 发表于 2020-10-10 10:25
其实简单啊。把DBPath作为参数传入函数就可以了。

谢谢您，已经解决了

		自动登录	找回密码
密码			免费注册

[求助] 请高手帮忙，谢谢！