設(shè)置ACCESS的信任位置

andymark

       在2007 和 2010 版本中打開數(shù)據(jù)庫文件，系統(tǒng)都會(huì)彈出安全警告提示框，對于用戶能確定安全的文件，可以新建一個(gè)文件夾集中存放在那里。然后設(shè)為信任位置，這樣打開該文件夾的數(shù)據(jù)庫就不會(huì)出現(xiàn)煩人的提示框了。
    我們可以按下面的步驟手動(dòng)添加 ：【文件】>>【選項(xiàng)】>>【信任中心】>>【信任中心設(shè)置】 然后選擇右邊的【受信任位置】
    我們也可以用代碼來實(shí)現(xiàn)上面的功能，使自已的程序更加趣味化

1. 
   
2. Dim strRegKEY As String
   
3. Dim APP_KEY As String
   
4. Dim Reg As New clsRegistry
   
5. Dim FrmState As Integer           '(1--增加，2--修改）
   
6. Dim FrmLocation As Integer        '傳遞參數(shù)
   
7. 
   
8. Private Sub Form_Load()
   
9. 
   
10.    APP_KEY = "Software\Microsoft\Office" & Format(Application.Version, "##,##0.0") & _
    
11.              "\Access\Security\Trusted Locations\Location"
    
12.    strRegKEY = "HKEY_CURRENT_USER" & APP_KEY
    
13.    
    
14.    FrmState = SysState
    
15.    FrmLocation = SysLocation
    
16.    If FrmState = 2 Then
    
17.       Call ShowBill(FrmLocation)
    
18.       Else
    
19.       Call AddBill
    
20.    End If
    
21.       
    
22. End Sub
    
23. 
    
24. Private Sub Form_Unload(Cancel As Integer)
    
25.    SysState = 0
    
26.    SysLocation = 0
    
27.    Set Reg = Nothing
    
28. End Sub
    
29. 
    
30. Private Sub CmdOK_Click()                       '確定
    
31.    Dim IntAllow As Integer
    
32.    Dim strPath As String
    
33.    If Len(Me.TxtFolderPath) = 0 Then
    
34.       Me.TxtFolderPath.SetFocus
    
35.       MsgBox "請選擇受信任文件夾"
    
36.       Exit Sub
    
37.     End If
    
38.    
    
39.     If Len(Me.TxtDescription) = 0 Then
    
40.       Me.TxtDescription.SetFocus
    
41.       MsgBox "說明不能為空"
    
42.       Exit Sub
    
43.     End If
    
44.    
    
45.    If Right(Me.TxtFolderPath, 1) <> "" Then
    
46.       strPath = Me.TxtFolderPath & ""
    
47.       Else
    
48.       strPath = Me.TxtFolderPath
    
49.    End If
    
50.    If Me.ChkAllow = True Then
    
51.       IntAllow = 1
    
52.       Else
    
53.       IntAllow = 0
    
54.    End If
    
55.    If FrmState <> 2 Then
    
56.       FrmLocation = GetUnUsedLocation
    
57.    End If
    
58.    Call SetTrustedLocation(FrmLocation, strPath, Trim(Me.TxtDescription), CStr(Now), IntAllow)
    
59.    If FrmState = 2 Or FrmState = 1 Then
    
60.      Call Forms("受信任位置").ShowBill
    
61.      DoCmd.Close acForm, Me.Name
    
62.    End If
    
63. End Sub
    

復(fù)制代碼

完整示例參考附件

Henry D. Sy

謝謝分享，收藏！

t小寶

值得學(xué)習(xí)~！

zhuyiwen

謝謝分享

xie62

謝謝分享

xie62

謝謝分享

ithink2012

很好的例子，之前一直想要的，只是苦于自己寫不來啊

pengxming

謝謝分享