请问如何用代码实码关闭当前数据库，再打开另一个数据库?

zerk

请问如何用代码实码关闭当前数据库，再打开另一个数据库?



急，昐复！

andymark

可以用OpenCurrentDatabase的方式打开另一个数据库，DoCmd.Quit 退出当前数据库

    Dim appAccess As Access.Application
    Dim strDB As String


    Const strConPathToSamples = "C:\Program " _
          & "Files\Microsoft Office\Office11\Samples\"

    strDB = strConPathToSamples & "Northwind.mdb"

    Set appAccess = _
    CreateObject("Access.Application")

    appAccess.OpenCurrentDatabase strDB
    DoCmd.Quit acQuitSaveNone

zerk

试着用上面的代码，成功了！



好象一定要另一个数据库的启动中有指定启动窗口才能实现。

xryaccess2

我用了却不行，请指教!

Dim appAccess As Access.Application
Dim strDB As String
     Const strConPathToSamples = "D:\其它不可丢失的资料\软件技术\db1.mdb"
    strDB = strConPathToSamples
    Set appAccess = _
    CreateObject("Access.Application")
    appAccess.OpenCurrentDatabase strDB
    DoCmd.Quit acQuitSaveNone