Access設(shè)置信任位置
時(shí)間:2013-07-31 22:09 來源:office中國(guó) 作者:andymark 閱讀:次
在2007 和 2010 版本中打開數(shù)據(jù)庫文件,系統(tǒng)都會(huì)彈出安全警告提示框,對(duì)于用戶能確定安全的文件,可以新建一個(gè)文件夾集中存放在那里。然后設(shè)為信任位置,這樣打開該文件夾的數(shù)據(jù)庫就不會(huì)出現(xiàn)煩人的提示框了。
我們可以按下面的步驟手動(dòng)添加 :【文件】>>【選項(xiàng)】>>【信任中心】>>【信任中心設(shè)置】 然后選擇右邊的【受信任位置】
我們也可以用代碼來實(shí)現(xiàn)上面的功能,使自已的程序更加趣味化
我們可以按下面的步驟手動(dòng)添加 :【文件】>>【選項(xiàng)】>>【信任中心】>>【信任中心設(shè)置】 然后選擇右邊的【受信任位置】
我們也可以用代碼來實(shí)現(xiàn)上面的功能,使自已的程序更加趣味化
Dim strRegKEY As String
Dim APP_KEY As String
Dim Reg As New clsRegistry
Dim FrmState As Integer '(1--增加,2--修改)
Dim FrmLocation As Integer '傳遞參數(shù)
Private Sub Form_Load()
APP_KEY = "Software\Microsoft\Office\" & Format(Application.Version, "##,##0.0") & _
"\Access\Security\Trusted Locations\Location"
strRegKEY = "HKEY_CURRENT_USER\" & APP_KEY
FrmState = SysState
FrmLocation = SysLocation
If FrmState = 2 Then
Call ShowBill(FrmLocation)
Else
Call AddBill
End If
End Sub
Private Sub Form_Unload(Cancel As Integer)
SysState = 0
SysLocation = 0
Set Reg = Nothing
End Sub
Private Sub CmdOK_Click() '確定
Dim IntAllow As Integer
Dim strPath As String
If Len(Me.TxtFolderPath) = 0 Then
Me.TxtFolderPath.SetFocus
MsgBox "請(qǐng)選擇受信任文件夾"
Exit Sub
End If
If Len(Me.TxtDescription) = 0 Then
Me.TxtDescription.SetFocus
MsgBox "說明不能為空"
Exit Sub
End If
If Right(Me.TxtFolderPath, 1) <> "\" Then
strPath = Me.TxtFolderPath & "\"
Else
strPath = Me.TxtFolderPath
End If
If Me.ChkAllow = True Then
IntAllow = 1
Else
IntAllow = 0
End If
If FrmState <> 2 Then
FrmLocation = GetUnUsedLocation
End If
Call SetTrustedLocation(FrmLocation, strPath, Trim(Me.TxtDescription), CStr(Now), IntAllow)
If FrmState = 2 Or FrmState = 1 Then
Call Forms("受信任位置").ShowBill
DoCmd.Close acForm, Me.Name
End If
End Sub
(責(zé)任編輯:admin)
頂一下
(1)
100%
踩一下
(0)
0%
相關(guān)內(nèi)容
- ·兩個(gè)未公開的ACCESS方法的使用技巧
- ·如何拆分復(fù)制的Access 97數(shù)據(jù)庫
- ·兩個(gè)未公開的ACCESS方法的使用技巧
- ·用Access 2000有效地組織班級(jí)管理
- ·數(shù)據(jù)在Access與Office組件間自由流動(dòng)
- ·Access"智庫"培訓(xùn)--高效設(shè)計(jì) 敏捷開
- ·Access查詢的基本知識(shí)(二)(Office免費(fèi)
- ·Access設(shè)置宏的安全等級(jí)
- ·Access查詢的基本知識(shí)(Office免費(fèi)公開
- ·四種用代碼打開外部Access(MDB)的方法
- ·access操作或事件已被禁用模式阻止的解
- ·簡(jiǎn)述vba字符串,函數(shù),表達(dá)式等基礎(chǔ)術(shù)
- ·Access VBA 開發(fā)公開課講座
- ·Access設(shè)置信任位置
- ·Access應(yīng)用程序應(yīng)注意的幾個(gè)問題
- ·簡(jiǎn)析能判斷Access版本的窗體
最新內(nèi)容
- ·兩個(gè)未公開的ACCESS方法的使用技巧
- ·如何拆分復(fù)制的Access 97數(shù)據(jù)庫
- ·兩個(gè)未公開的ACCESS方法的使用技巧
- ·用Access 2000有效地組織班級(jí)管理
- ·數(shù)據(jù)在Access與Office組件間自由流動(dòng)
- ·Access"智庫"培訓(xùn)--高效設(shè)計(jì) 敏捷開發(fā) 之
- ·Access查詢的基本知識(shí)(二)(Office免費(fèi)公開
- ·Access設(shè)置宏的安全等級(jí)
- ·Access查詢的基本知識(shí)(Office免費(fèi)公開課)
- ·四種用代碼打開外部Access(MDB)的方法
推薦內(nèi)容
熱點(diǎn)內(nèi)容
- ·兩個(gè)未公開的ACCESS方法的使用技巧
- ·定期歸檔 Access 數(shù)據(jù)庫記錄
- ·Microsoft Access經(jīng)典入門之一
- ·用代碼設(shè)置ACCESS選項(xiàng)
- ·庫房入出管理系統(tǒng)
- ·用 Access 2000 打開 Access 97 數(shù)據(jù)庫時(shí)出
- ·“自動(dòng)編號(hào)”例程。
- ·Access數(shù)據(jù)庫設(shè)置技巧
- ·在ACCESS中自動(dòng)壓縮當(dāng)前數(shù)據(jù)庫
- ·如何診斷/修復(fù)損壞的 Jet 4.0 數(shù)據(jù)庫