设置ACCESS的信任位置 - Office中国论坛/Access中国论坛

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

复制代码