Office中國論壇/Access中國論壇

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

  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ù)

  8. Private Sub Form_Load()

  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

  24. Private Sub Form_Unload(Cancel As Integer)
  25.    SysState = 0
  26.    SysLocation = 0
  27.    Set Reg = Nothing
  28. End Sub

  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 "請(qǐng)選擇受信任文件夾"
  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ù)制代碼
完整示例參考附件

[attach]49467[/attach]
作者: Henry D. Sy    時(shí)間: 2012-6-23 23:07
謝謝分享，收藏！
作者: t小寶    時(shí)間: 2012-6-23 23:42
值得學(xué)習(xí)~！
作者: zhuyiwen    時(shí)間: 2012-6-24 06:43
謝謝分享
作者: xie62    時(shí)間: 2012-6-24 07:17
謝謝分享
作者: xie62    時(shí)間: 2012-6-24 09:44
謝謝分享
作者: ithink2012    時(shí)間: 2012-6-24 09:46
很好的例子，之前一直想要的，只是苦于自己寫不來啊
作者: pengxming    時(shí)間: 2014-7-7 10:49
謝謝分享



歡迎光臨 Office中國論壇/Access中國論壇 (http://m.mzhfr.cn/) Powered by Discuz! X3.3