用代码打开ACCESS闪一下就没了

老鬼

如题，代码如下：

1. Dim AppAccess As Object
   
2.     Set AppAccess = CreateObject("Access.Application")
   
3.     AppAccess.OpenCurrentDatabase CurrentProject.Path & "\TEST.MDB"
   
4.     AppAccess.Visible = True

复制代码

老鬼

zhuyiwen 发表于 2012-9-10 21:09
你的第一行，要放到标准模块中，并且要这样写：

原来如此，谢了~！

老鬼

zhuyiwen 发表于 2012-9-10 21:09
你的第一行，要放到标准模块中，并且要这样写：

这种打开方式，如果当前MDB关闭，被打开的MDB也会自动关闭？能不能当前关闭，被打开的依然不关？
或者用别的方式打开？用SHELL行不？