程序完成交給用戶后，要求每次啟動(dòng)時(shí)均用指定的工作組文件，途徑大致如下幾種：
1、用快捷方式，在其中加上啟動(dòng)參數(shù)指定工作組文件;
2、用Access內(nèi)置工作組管理員指定工作組。
3、可以直接修改注冊(cè)表。
4、用VB之類(lèi)的東東做個(gè)外殼啟動(dòng)帶參數(shù)啟動(dòng)Access。
第一種方式用戶在使用中容易造成丟失。
第二第三種其實(shí)是一樣的，但設(shè)置后用戶在本機(jī)操作所有的數(shù)據(jù)庫(kù)都要求登陸。
其實(shí)用Access本身也可以做個(gè)外殼，達(dá)到同樣效果：
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ù)啟動(dòng)程序
Else
MsgBox "C:\Program Files\Microsoft Office\
下沒(méi)找到MSACCESS的程序文件，系統(tǒng)無(wú)法運(yùn)行."
End If
End With
docmd.quit''退出外殼 |
將外殼做成MDE交付用戶即可。帶參數(shù)啟動(dòng)程序語(yǔ)句可更改為以下代碼:
Shell SysCmd(acSysCmdAccessDir) & "
msaccess.exe" & CurrentProject.Path &
"\123.mdb /wrkgrp " & CurrentProject.Path & "\system.mdw". |
注意，如果要將密碼和用戶名寫(xiě)在mde中，請(qǐng)先加密，否則用寫(xiě)字板就可看見(jiàn)密碼及用戶名。
