以指定工作組文件啟動MDB文件

字號:

程序完成交給用戶后,要求每次啟動時均用指定的工作組文件,途徑大致如下幾種:
    1。用快捷方式,在其中加上啟動參數(shù)指定工作組文件;
    2。用ACCESS內(nèi)置工作組管理員指定工作組。
    3。也可以直接修改注冊表。
    4。用VB之類的東東做個外殼啟動帶參數(shù)啟動ACCESS。
    第一種方式用戶在使用中容易造成丟失。
    第二第三種其實是一樣的,但設置后用戶在本機操作所有的數(shù)據(jù)庫都要求登陸。
    敝人推薦用第四種
    其實用ACCESS本身也可以做個外殼,達到同樣效果:
    Set fs = Application.FileSearch ''查找文件
    With fs
     .LookIn = "C:\Program Files\Microsoft Office\" ''查找路徑
     .SearchSubFolders = True ''包含子文件夾
     .FileName = "msACCESS.exe" ''查找字串
     If .Execute() > 0 Then
      p = .FoundFiles(1)  ''ACCESS主程序完整路徑
      Shell p & " " & CurrentProject.Path & "\123.mdb /wrkgrp " & CurrentProject.Path & "\system.mdw", 3  ''帶參數(shù)啟動程序
     Else
      MsgBox "C:\Program Files\Microsoft Office\ 下沒找到MSACCESS的程序文件,系統(tǒng)無法運行."
     End If
    End With
    docmd.quit  ''退出外殼
    將外殼做成MDE交付用戶便萬事大吉啦。
    帶參數(shù)啟動程序語句可更改為以下代碼
    Shell SysCmd(acSysCmdAccessDir) & " msACCESS.exe" & CurrentProject.Path & "\123.mdb /wrkgrp " & CurrentProject.Path & "\system.mdw", 3
    注意,如果要將密碼和用戶名寫在mde中,請先加密,否則用寫字板就可看見密碼及用戶名