会员登录 - 用户注册 - 网站地图 Office中国(office-cn.net),专业Office论坛
当前位置:主页 > 技巧 > Access技巧 > 数据库系统 > 正文

Access设置信任位置

时间:2013-07-31 22:09 来源:office中国 作者:andymark 阅读:
在2007 和 2010 版本中打开数据库文件,系统都会弹出安全警告提示框,对于用户能确定安全的文件,可以新建一个文件夹集中存放在那里。然后设为信任位置,这样打开该文件夹的数据库就不会出现烦人的提示框了。
    我们可以按下面的步骤手动添加 :【文件】>>【选项】>>【信任中心】>>【信任中心设置】 然后选择右边的【受信任位置】
    我们也可以用代码实现上面的功能,使自已的程序更加趣味化
 
Dim strRegKEY As String
Dim APP_KEY As String
Dim Reg As New clsRegistry
Dim FrmState As Integer           '(1--增加,2--修改)
Dim FrmLocation As Integer        '传递参数
 
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 "请选择受信任文件夹"
      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
 

(责任编辑:admin)

顶一下
(1)
100%
踩一下
(0)
0%
发表评论
请自觉遵守互联网相关的政策法规,严禁发布色情、暴力、反动的言论。
评价: