在Access中指定工作組從而啟動(dòng)MDB文件

2010-08-28 10:51:35來(lái)源:西部e網(wǎng)作者:

程序完成交給用戶后,要求每次啟動(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)密碼及用戶名。

關(guān)鍵詞:AccessMDB

贊助商鏈接: