关于SysCmd(acSysCmdAccessDir) 的问题

好学

Private Sub Command0_Click()
Dim xtpf, cxph, fs, d, v As String
Dim str4 As String
xtpf = CurrentProject.Path'当前路径
cxph = Left(xtpf, 3)
Set fs = CreateObject("Scripting.FileSystemObject")
Set d = fs.GetDrive(fs.GetDriveName(fs.GetAbsolutePathName(cxph)))
v = Hex(d.SerialNumber)
Dim RetVal
str4 = """"
Dim strMDB As String
     Shell str4 & SysCmd(acSysCmdAccessDir) & "msaccess.exe" & str4 & " " & str4 & xtpf & "\sjch.mdb"  & "", 2
End Sub  

    以上的代码可以打开ACCESS,但在有些电脑使用就打不开了,可能是SysCmd(acSysCmdAccessDir) 找不到msaccess.exe文件,如果用绝对路径就可以.但如果OFFICE安装在别的盘用绝对路径就不行了,请问有其它方法代替SysCmd(acSysCmdAccessDir) 吗?

[ 本帖最后由 好学 于 2007-11-19 11:26 编辑 ]

好学

andymark我的这个问题没有解决,有办法吗?

好学

原帖由 t小宝 于 2007-11-24 12:40 发表
我的XP系统和OFFICE都安装在D盘,在ACCESS中使用andymark提供的获取OFFICE安装路径的函数,没有出现问题!
在VB中就没试过了...

应该是在VB获取OFFICE安装路径时出问题，所以打开是没有问题的，主要是在VB关闭是出来这个出错的提示框，现在也想不到好的办法，只能到高手们有什么好办法了

baije

VB中是不行的，我以前出想过办法，一直未解决

后来我用ACCESS来运行SHELL

t小宝

我的XP系统和OFFICE都安装在D盘,在ACCESS中使用andymark提供的获取OFFICE安装路径的函数,没有出现问题!
在VB中就没试过了...

好学

用绝对路径打开是正常的，但我们要考虑客户可能将OFFICE安装有不同的盘中，所以要考虑到这个问题。

andymark

直接用绝对路径行不行?

好学

我将C盘格式化后重新安装WINDOWS,将OFFICE安装在D盘,但还是一样这样出错.看来是程序的问题了.

andymark

格式化C 盘 重新安装WINDOW再试试

好学

andymark我昨晚试了，应该是程序的问题，在VB用：（OFFICE装在D盘时）
    Dim cc, DD As String   
    cc = OfficePath("Access.application")   
    DD = cc & Space(1) & App.Path & "\db1.mdb /Runtime"   
    Call Shell(DD, 1)
打开是没有问题的，当VB关闭是就出现这个提示：



可能是程序在找注册表是时候出问题

[ 本帖最后由 好学 于 2007-11-23 09:44 编辑 ]