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

老鬼

如题，代码如下：

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

复制代码

zhuyiwen

你的第一行，要放到标准模块中，并且要这样写：

1. 
   
2. Public AppAccess As Object
   

复制代码

老鬼

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

原来如此，谢了~！

老鬼

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

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

roych

事实上用shell打开是可以的，大家常常用这个利器来指定工作组打开文件。然而这一点（指定工作组）在Win7+Access2010下，可能由于安全机制的原因，往往会引发一些错误。