在一个数据库里调用另一个数据库中代码

ymq　发表于：2017-07-16 16:48:49 　

复制

老师好

请编写在一个数据库里调用另一个数据库中代码：

点击数据库“1”中窗体按钮“Command”调用数据库2按钮“SS”中的代码:

Private Sub SS_Click()

CommandS2_Click

MsgBox "处理完成", vbInformation, "提示"

End Sub

选出“表1-表5”中相同的记录放到表“相同”里。

谢谢！

点击下载此附件

Top

大海发表于：2017-07-16 20:11:15

可以实现

Top

大海发表于：2017-07-16 20:20:36

Private Sub Command1_Click()
Dim objAccess As Object
Dim Mmdb As String
Mmdb = "2.accdb"
On Error Resume Next
Set objAccess = CreateObject("access.Application")
objAccess.OpenCurrentDatabase CurrentProject.Path & "\" & Mmdb
objAccess.Visible = False
objAccess.Run "测试"
Set objAccess = Nothing
End Sub

Top

ymq 发表于：2017-07-16 21:56:22

请把代码写入实例中，但我把写到实例中不能正常运行

Top

我的ACCESS 发表于：2017-07-16 22:34:47

俺没有高版本，提供一个低版本的例子解决问题

调用另一个数据库中代码

Top

ymq 发表于：2017-07-17 00:16:50

你好，没有选出“表1-表5”中相同的记录放到表“相同”里

Top

大海发表于：2017-07-17 07:35:38