troubleshooting Question

Adding a registry key using VBA.

Avatar of dsoderstrom
dsoderstrom asked on
Microsoft Access
4 Comments1 Solution5856 ViewsLast Modified:
I would like to add a trusted location key to the registry using vba.
I am using the following vba code to determine if the registry key already exists:

If RegKeyExists("HKEY_CURRENT_USER\Software\Microsoft\Office\14.0\Access\Security\Trusted Locations\BEApplication\") = False Then
        ' Code for adding registry key
    Else
        ' Key exists - do nothing
    End If

Function RegKeyExists(i_RegKey As String) As Boolean
Dim myWS As Object

  On Error GoTo ErrorHandler
  'access Windows scripting
  Set myWS = CreateObject("WScript.Shell")
  'try to read the registry key
  myWS.RegRead i_RegKey
  'key was found
  RegKeyExists = True
  Exit Function
 
ErrorHandler:
  'key was not found
  RegKeyExists = False
End Function

The above code works, returning True if the registry key exists and False if it does not.

I have created a .reg file for adding the registry key.   The contents of the .reg file are as follows:

Windows Registry Editor Version 5.00

[HKEY_CURRENT_USER\Software\Microsoft\Office\14.0\Access\Security\Trusted Locations\BEApplication]
"Path"="C:\\Access2010Applications\\"
"Description"="Access2010Applications"

I can click on this .reg file and the registry key gets added successfully.
How do I accomplish the same thing via vba.
ASKER CERTIFIED SOLUTION
Join our community to see this answer!
Unlock 1 Answer and 4 Comments.
Start Free Trial
Learn from the best

Network and collaborate with thousands of CTOs, CISOs, and IT Pros rooting for you and your success.

Andrew Hancock - VMware vExpert
See if this solution works for you by signing up for a 7 day free trial.
Unlock 1 Answer and 4 Comments.
Try for 7 days

”The time we save is the biggest benefit of E-E to our team. What could take multiple guys 2 hours or more each to find is accessed in around 15 minutes on Experts Exchange.

-Mike Kapnisakis, Warner Bros