判斷Access是運行在正常版本(Full Access)還是運行時版本(Access Runtime)

tmtony

看到有網(wǎng)友在這個問題，順便寫篇技巧

如何判斷Access數(shù)據(jù)庫是運行在正常完整版本(Full Access)還是運行時版本(Access Runtime)
作者：Tmtony  -- Offfice中國

有2種方法
1. 使用Syscmd來判斷

1.     If SysCmd(acSysCmdRuntime) = False Then
   
2.         '程序是運行在完整的 MS Access 版本下
   
3. 
   
4.     Else
   
5.         '程序是運行在 運行時 MS Access Runtime版本下
   
6. 
   
7.     End If

復(fù)制代碼

2. 使用創(chuàng)建數(shù)據(jù)庫來判斷

   由于runtime運行時版本是不能創(chuàng)建新數(shù)據(jù)庫的，根據(jù)這個特點來判斷
   還可判斷 打開窗體到隱藏的設(shè)計狀態(tài)（不過MDE也會這樣）

1. Dim accApp as Object
   
2. On Error Resume Next '出錯繼續(xù)執(zhí)行，不彈出錯誤信息，只獲取有否錯誤
   
3. Set accApp= CreateObject("Access.Application")
   
4. If Err.number<>0 then
   
5.    MsgBox "運行在Access Rumtime 運行時", vbOKonly
   
6. Else
   
7.    MsgBox "運行在完整Access版本下", vbOKonly
   
8. End if

復(fù)制代碼

roych

我一般用方法1，主要用于查看Access的版本。

tmtony

roych 發(fā)表于 2017-5-5 09:24
我一般用方法1，主要用于查看Access的版本。

是的，第一種是官方正宗的方法。不過好久沒有用runtime了，沒有真正測試過
最新的Access 2013 運行時  Access 2016 runtime運行時在這里下載
http://www.access-cn.com/download/list-269-cn.html