Add reference in MS-Access Problem.

[kashif.special2005]

Hi,

I have created a MS-Access based tool and I am adding below mentioned references at a form load event, it is working fine at my workstation but when I am running this tool in other system it is not working properly because like at my system calendar control version 10 and on that system have version 8, Excel object library 12 and on that system have version 11.

I want that whenever I open the form it will automatically add most latest version in reference. Of below mentioned references.

VBA
Access
stdole
ADODB
OWC10
Excel
DAO
Office
MSOWCFLib
MSACAL


Sub AddRefs()
Dim loRef As Access.Reference
Dim guid1 As String
Dim guid2 As String
Dim guid3 As String
Dim guid4 As String
Dim guid5 As String
Dim guid6 As String
Dim guid7 As String
Dim guid8 As String
Dim guid9 As String
Dim guid10 As String

guid1 = "{000204EF-0000-0000-C000-000000000046}"
guid2 = "{4AFFC9A0-5F99-101B-AF4E-00AA003F0F07}"
guid3 = "{00020430-0000-0000-C000-000000000046}"
guid4 = "{00000205-0000-0010-8000-00AA006D2EA4}"
guid5 = "{0002E550-0000-0000-C000-000000000046}"
guid6 = "{00020813-0000-0000-C000-000000000046}"
guid7 = "{00025E01-0000-0000-C000-000000000046}"
guid8 = "{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}"
guid9 = "{5D0A2606-5783-11D1-B901-00AA00585640}"
guid10 = "{8E27C92E-1264-101C-8A2F-040224009C02}"

On Error Resume Next

With Access.References
.AddFromGuid guid1, 1, 0
.AddFromGuid guid2, 1, 0
.AddFromGuid guid3, 1, 0
.AddFromGuid guid4, 1, 0
.AddFromGuid guid5, 1, 0
.AddFromGuid guid6, 1, 0
.AddFromGuid guid7, 1, 0
.AddFromGuid guid8, 1, 0
.AddFromGuid guid9, 1, 0
.AddFromGuid guid10, 1, 0

End With

' Call a hidden SysCmd to automatically compile/save all modules.
Call SysCmd(504, 16483)
End Sub