GUID reference grabber and setter

[Jaye7]

I have a GUID/ reference grabber in excel, does someone have one for access, I get tired of having to set references on different computers, easier if a script sets them when I open my personal template.

 

[Jaye7]

I have found the scripts to do the job.

Option Compare Database

Sub ReferenceProperties()
    Dim ref As Reference

    ' Enumerate through References collection.
    For Each ref In References
        ' Check IsBroken property.
        If ref.IsBroken = False Then
            Debug.Print "Name: ", ref.Name
            Debug.Print "FullPath: ", ref.FullPath
            Debug.Print "Version: ", ref.Major & "." & ref.Minor
            MsgBox ref.guid & vbLf & ref.FullPath
        Else
            Debug.Print "GUIDs of broken references:"
            Debug.Print ref.guid
            MsgBox ref.guid
        End If
    Next ref
End Sub

Sub Addguid()
On Error Resume Next
References.AddFromGuid "{420B2830-E718-11CF-893D-00A0C9054228}", 1, 0
End Sub