求助：vb中调用其他access宏的问题

ysgm1978g

如vb中调用本access表的宏则可使用如下代码:
Sub usemacro(macroname As String)
DoCmd.RunMacro (macroname)
End Sub
但如果调用别的access的宏,偶编了下面的代码为啥不行撒:
Sub usemacro(macroname As String)
Dim cnn As ADODB.Connection
Set cnn = New ADODB.Connection
cnn.Open ("provider=microsoft.jet.oledb.4.0; data source=D:\db1.mdb;")
DoCmd.RunMacro (macroname)
cnn.Close: Set cnn = Nothing
End Sub

fan0217

呵呵!你要做什么啊?

ysgm1978g

干点私货撒，老大帮帮忙啦

ysgm1978g

顶上去撒

fan0217

Sub usemacro(macroname As String)
Dim cnn As ADODB.Connection
Set cnn = New ADODB.Connection
cnn.Open ("provider=microsoft.jet.oledb.4.0; data source=D:\db1.mdb;")
DoCmd.RunMacro (macroname)
cnn.Close: Set cnn = Nothing
End Sub

不能这样用.

fan0217

在Access中执行其他Access功能的例子如下,但在VB中我不知道了.

Sub DisplayForm()

    Dim strDB as String

    ' Initialize string to database path.
    Const strConPathToSamples = "C:\Program Files\Microsoft Office\Office11\Samples\"

    strDB = strConPathToSamples & "Northwind.mdb"


    ' Create new instance of Microsoft Access.
    Set appAccess = CreateObject("Access.Application")


    ' Open database in Microsoft Access window.
    appAccess.OpenCurrentDatabase strDB


    ' Open Orders form.
    appAccess.DoCmd.OpenForm "Orders"
End Sub

andymark

还要加上这句话

    AppAccess.CloseCurrentDatabase
    Set AppAccess = Nothing

fan0217

对还要关闭数据库和释放空间.

ysgm1978g

首先谢谢两位，但偶试了代码后运行出错，如偶想在一个access的vb环境下调用d:\db1.mdb中的“宏1”，按照以上所述代码，应为

Sub aaa()
Dim strDB as String

Const strConPathToSamples = "d:\"

strDB = strConPathToSamples & "db1.mdb"




    ' Create new instance of Microsoft Access.
    Set appAccess = CreateObject("Access.Application")




    ' Open database in Microsoft Access window.
    appAccess.OpenCurrentDatabase strDB




    ' Open Orders form.
    appAccess.DoCmd.OpenForm "Orders"
End Sub

但运行时出错，显示“microsoft office access 不能打开这个数据库，因为它已丢失或已被其他用户按独占方式打开”，这是怎么回事啊？

请赐教，谢谢

ysgm1978g

有了，在 appAccess.OpenCurrentDatabase strDB后面加个ture