Ms access 在运行时从VB6应用程序在Access数据库中创建/附加模块

在内部访问中，我可以进入模块，创建一个新模块，并在其中放置一个函数

如何在运行时从VB6应用程序执行此操作

---

我试过创建函数。。创建过程。。但我可能还有一个方面，这实际上是一个Access 2000数据库，它可能不支持这一点。

我只能在Access 97中找到这样做的代码

在VB6中执行此操作时，需要使用自动化，然后像

DoCmd

和

Modules（）

这样的函数应该可用

例如，像这样的（未测试）应该可以让您开始

Dim oApp As Object

Set oApp = CreateObject("Access.Application")

oApp.OpenCurrentDatabase "C:\MyDatabase.mdb"

oApp.DoCmd.RunCommand acCmdNewObjectModule

...
... (Rest of code to automate Access here)
...

Set oApp = Nothing

---

谢谢我对耽搁表示歉意。编程侧轨和所有：）。效果很好。

Dim oApp As Object

Set oApp = CreateObject("Access.Application")

oApp.OpenCurrentDatabase "C:\MyDatabase.mdb"

oApp.DoCmd.RunCommand acCmdNewObjectModule

...
... (Rest of code to automate Access here)
...

Set oApp = Nothing