设置ACCESS的信任位置

andymark

       在2007 和 2010 版本中打开数据库文件，系统都会弹出安全警告提示框，对于用户能确定安全的文件，可以新建一个文件夹集中存放在那里。然后设为信任位置，这样打开该文件夹的数据库就不会出现烦人的提示框了。
    我们可以按下面的步骤手动添加 ：【文件】>>【选项】>>【信任中心】>>【信任中心设置】 然后选择右边的【受信任位置】
    我们也可以用代码来实现上面的功能，使自已的程序更加趣味化

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        '传递参数
   
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
    

复制代码

完整示例参考附件

Henry D. Sy

谢谢分享，收藏！

t小宝

值得学习~！

zhuyiwen

谢谢分享

xie62

谢谢分享

xie62

谢谢分享

ithink2012

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

pengxming

谢谢分享