kashif.special2005
Active Member
- Joined
- Oct 26, 2009
- Messages
- 443
<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o></o>
Hi,
<o> </o>
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.
<o> </o>
I want that whenever I open the form it will automatically add most latest version in reference. Of below mentioned references.
<o> </o>
<TABLE style="MARGIN: auto auto auto 5.4pt; WIDTH: 88.8pt; BORDER-COLLAPSE: collapse; mso-padding-alt: 0in 5.4pt 0in 5.4pt" class=MsoNormalTable border=0 cellSpacing=0 cellPadding=0 width=118><TBODY><TR style="HEIGHT: 12.75pt; mso-yfti-irow: 0; mso-yfti-firstrow: yes"><TD style="BORDER-BOTTOM: #d4d0c8; BORDER-LEFT: #d4d0c8; PADDING-BOTTOM: 0in; BACKGROUND-COLOR: transparent; PADDING-LEFT: 5.4pt; WIDTH: 88.8pt; PADDING-RIGHT: 5.4pt; HEIGHT: 12.75pt; BORDER-TOP: #d4d0c8; BORDER-RIGHT: #d4d0c8; PADDING-TOP: 0in" vAlign=bottom width=118 noWrap>VBA
</TD></TR><TR style="HEIGHT: 12.75pt; mso-yfti-irow: 1"><TD style="BORDER-BOTTOM: #d4d0c8; BORDER-LEFT: #d4d0c8; PADDING-BOTTOM: 0in; BACKGROUND-COLOR: transparent; PADDING-LEFT: 5.4pt; WIDTH: 88.8pt; PADDING-RIGHT: 5.4pt; HEIGHT: 12.75pt; BORDER-TOP: #d4d0c8; BORDER-RIGHT: #d4d0c8; PADDING-TOP: 0in" vAlign=bottom width=118 noWrap>Access
</TD></TR><TR style="HEIGHT: 12.75pt; mso-yfti-irow: 2"><TD style="BORDER-BOTTOM: #d4d0c8; BORDER-LEFT: #d4d0c8; PADDING-BOTTOM: 0in; BACKGROUND-COLOR: transparent; PADDING-LEFT: 5.4pt; WIDTH: 88.8pt; PADDING-RIGHT: 5.4pt; HEIGHT: 12.75pt; BORDER-TOP: #d4d0c8; BORDER-RIGHT: #d4d0c8; PADDING-TOP: 0in" vAlign=bottom width=118 noWrap>stdole
</TD></TR><TR style="HEIGHT: 12.75pt; mso-yfti-irow: 3"><TD style="BORDER-BOTTOM: #d4d0c8; BORDER-LEFT: #d4d0c8; PADDING-BOTTOM: 0in; BACKGROUND-COLOR: transparent; PADDING-LEFT: 5.4pt; WIDTH: 88.8pt; PADDING-RIGHT: 5.4pt; HEIGHT: 12.75pt; BORDER-TOP: #d4d0c8; BORDER-RIGHT: #d4d0c8; PADDING-TOP: 0in" vAlign=bottom width=118 noWrap>ADODB
</TD></TR><TR style="HEIGHT: 12.75pt; mso-yfti-irow: 4"><TD style="BORDER-BOTTOM: #d4d0c8; BORDER-LEFT: #d4d0c8; PADDING-BOTTOM: 0in; BACKGROUND-COLOR: transparent; PADDING-LEFT: 5.4pt; WIDTH: 88.8pt; PADDING-RIGHT: 5.4pt; HEIGHT: 12.75pt; BORDER-TOP: #d4d0c8; BORDER-RIGHT: #d4d0c8; PADDING-TOP: 0in" vAlign=bottom width=118 noWrap>OWC10
</TD></TR><TR style="HEIGHT: 12.75pt; mso-yfti-irow: 5"><TD style="BORDER-BOTTOM: #d4d0c8; BORDER-LEFT: #d4d0c8; PADDING-BOTTOM: 0in; BACKGROUND-COLOR: transparent; PADDING-LEFT: 5.4pt; WIDTH: 88.8pt; PADDING-RIGHT: 5.4pt; HEIGHT: 12.75pt; BORDER-TOP: #d4d0c8; BORDER-RIGHT: #d4d0c8; PADDING-TOP: 0in" vAlign=bottom width=118 noWrap>Excel
</TD></TR><TR style="HEIGHT: 12.75pt; mso-yfti-irow: 6"><TD style="BORDER-BOTTOM: #d4d0c8; BORDER-LEFT: #d4d0c8; PADDING-BOTTOM: 0in; BACKGROUND-COLOR: transparent; PADDING-LEFT: 5.4pt; WIDTH: 88.8pt; PADDING-RIGHT: 5.4pt; HEIGHT: 12.75pt; BORDER-TOP: #d4d0c8; BORDER-RIGHT: #d4d0c8; PADDING-TOP: 0in" vAlign=bottom width=118 noWrap>DAO
</TD></TR><TR style="HEIGHT: 12.75pt; mso-yfti-irow: 7"><TD style="BORDER-BOTTOM: #d4d0c8; BORDER-LEFT: #d4d0c8; PADDING-BOTTOM: 0in; BACKGROUND-COLOR: transparent; PADDING-LEFT: 5.4pt; WIDTH: 88.8pt; PADDING-RIGHT: 5.4pt; HEIGHT: 12.75pt; BORDER-TOP: #d4d0c8; BORDER-RIGHT: #d4d0c8; PADDING-TOP: 0in" vAlign=bottom width=118 noWrap>Office
</TD></TR><TR style="HEIGHT: 12.75pt; mso-yfti-irow: 8"><TD style="BORDER-BOTTOM: #d4d0c8; BORDER-LEFT: #d4d0c8; PADDING-BOTTOM: 0in; BACKGROUND-COLOR: transparent; PADDING-LEFT: 5.4pt; WIDTH: 88.8pt; PADDING-RIGHT: 5.4pt; HEIGHT: 12.75pt; BORDER-TOP: #d4d0c8; BORDER-RIGHT: #d4d0c8; PADDING-TOP: 0in" vAlign=bottom width=118 noWrap>MSOWCFLib
</TD></TR><TR style="HEIGHT: 12.75pt; mso-yfti-irow: 9; mso-yfti-lastrow: yes"><TD style="BORDER-BOTTOM: #d4d0c8; BORDER-LEFT: #d4d0c8; PADDING-BOTTOM: 0in; BACKGROUND-COLOR: transparent; PADDING-LEFT: 5.4pt; WIDTH: 88.8pt; PADDING-RIGHT: 5.4pt; HEIGHT: 12.75pt; BORDER-TOP: #d4d0c8; BORDER-RIGHT: #d4d0c8; PADDING-TOP: 0in" vAlign=bottom width=118 noWrap>MSACAL
</TD></TR></TBODY></TABLE>
<o> </o>
Sub AddRefs()<o></o>
Dim loRef As Access.Reference<o></o>
Dim guid1 As String<o></o>
Dim guid2 As String<o></o>
Dim guid3 As String<o></o>
Dim guid4 As String<o></o>
Dim guid5 As String<o></o>
Dim guid6 As String<o></o>
Dim guid7 As String<o></o>
Dim guid8 As String<o></o>
Dim guid9 As String<o></o>
Dim guid10 As String<o></o>
<o> </o>
guid1 = "{000204EF-0000-0000-C000-000000000046}"<o></o>
guid2 = "{4AFFC9A0-5F99-101B-AF4E-00AA003F0F07}"<o></o>
guid3 = "{00020430-0000-0000-C000-000000000046}"<o></o>
guid4 = "{00000205-0000-0010-8000-00AA006D2EA4}"<o></o>
guid5 = "{0002E550-0000-0000-C000-000000000046}"<o></o>
guid6 = "{00020813-0000-0000-C000-000000000046}"<o></o>
guid7 = "{00025E01-0000-0000-C000-000000000046}"<o></o>
guid8 = "{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}"<o></o>
guid9 = "{5D0A2606-5783-11D1-B901-00AA00585640}"<o></o>
guid10 = "{8E27C92E-1264-101C-8A2F-040224009C02}"<o></o>
<o> </o>
On Error Resume Next<o></o>
<o> </o>
With Access.References<o></o>
.AddFromGuid guid1, 1, 0<o></o>
.AddFromGuid guid2, 1, 0<o></o>
.AddFromGuid guid3, 1, 0<o></o>
.AddFromGuid guid4, 1, 0<o></o>
.AddFromGuid guid5, 1, 0<o></o>
.AddFromGuid guid6, 1, 0<o></o>
.AddFromGuid guid7, 1, 0<o></o>
.AddFromGuid guid8, 1, 0<o></o>
.AddFromGuid guid9, 1, 0<o></o>
.AddFromGuid guid10, 1, 0<o></o>
<o> </o>
End With<o></o>
<o> </o>
' Call a hidden SysCmd to automatically compile/save all modules.<o></o>
Call SysCmd(504, 16483)<o></o>
End Sub
Please help
Hi,
<o> </o>
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.
<o> </o>
I want that whenever I open the form it will automatically add most latest version in reference. Of below mentioned references.
<o> </o>
<TABLE style="MARGIN: auto auto auto 5.4pt; WIDTH: 88.8pt; BORDER-COLLAPSE: collapse; mso-padding-alt: 0in 5.4pt 0in 5.4pt" class=MsoNormalTable border=0 cellSpacing=0 cellPadding=0 width=118><TBODY><TR style="HEIGHT: 12.75pt; mso-yfti-irow: 0; mso-yfti-firstrow: yes"><TD style="BORDER-BOTTOM: #d4d0c8; BORDER-LEFT: #d4d0c8; PADDING-BOTTOM: 0in; BACKGROUND-COLOR: transparent; PADDING-LEFT: 5.4pt; WIDTH: 88.8pt; PADDING-RIGHT: 5.4pt; HEIGHT: 12.75pt; BORDER-TOP: #d4d0c8; BORDER-RIGHT: #d4d0c8; PADDING-TOP: 0in" vAlign=bottom width=118 noWrap>VBA
</TD></TR><TR style="HEIGHT: 12.75pt; mso-yfti-irow: 1"><TD style="BORDER-BOTTOM: #d4d0c8; BORDER-LEFT: #d4d0c8; PADDING-BOTTOM: 0in; BACKGROUND-COLOR: transparent; PADDING-LEFT: 5.4pt; WIDTH: 88.8pt; PADDING-RIGHT: 5.4pt; HEIGHT: 12.75pt; BORDER-TOP: #d4d0c8; BORDER-RIGHT: #d4d0c8; PADDING-TOP: 0in" vAlign=bottom width=118 noWrap>Access
</TD></TR><TR style="HEIGHT: 12.75pt; mso-yfti-irow: 2"><TD style="BORDER-BOTTOM: #d4d0c8; BORDER-LEFT: #d4d0c8; PADDING-BOTTOM: 0in; BACKGROUND-COLOR: transparent; PADDING-LEFT: 5.4pt; WIDTH: 88.8pt; PADDING-RIGHT: 5.4pt; HEIGHT: 12.75pt; BORDER-TOP: #d4d0c8; BORDER-RIGHT: #d4d0c8; PADDING-TOP: 0in" vAlign=bottom width=118 noWrap>stdole
</TD></TR><TR style="HEIGHT: 12.75pt; mso-yfti-irow: 3"><TD style="BORDER-BOTTOM: #d4d0c8; BORDER-LEFT: #d4d0c8; PADDING-BOTTOM: 0in; BACKGROUND-COLOR: transparent; PADDING-LEFT: 5.4pt; WIDTH: 88.8pt; PADDING-RIGHT: 5.4pt; HEIGHT: 12.75pt; BORDER-TOP: #d4d0c8; BORDER-RIGHT: #d4d0c8; PADDING-TOP: 0in" vAlign=bottom width=118 noWrap>ADODB
</TD></TR><TR style="HEIGHT: 12.75pt; mso-yfti-irow: 4"><TD style="BORDER-BOTTOM: #d4d0c8; BORDER-LEFT: #d4d0c8; PADDING-BOTTOM: 0in; BACKGROUND-COLOR: transparent; PADDING-LEFT: 5.4pt; WIDTH: 88.8pt; PADDING-RIGHT: 5.4pt; HEIGHT: 12.75pt; BORDER-TOP: #d4d0c8; BORDER-RIGHT: #d4d0c8; PADDING-TOP: 0in" vAlign=bottom width=118 noWrap>OWC10
</TD></TR><TR style="HEIGHT: 12.75pt; mso-yfti-irow: 5"><TD style="BORDER-BOTTOM: #d4d0c8; BORDER-LEFT: #d4d0c8; PADDING-BOTTOM: 0in; BACKGROUND-COLOR: transparent; PADDING-LEFT: 5.4pt; WIDTH: 88.8pt; PADDING-RIGHT: 5.4pt; HEIGHT: 12.75pt; BORDER-TOP: #d4d0c8; BORDER-RIGHT: #d4d0c8; PADDING-TOP: 0in" vAlign=bottom width=118 noWrap>Excel
</TD></TR><TR style="HEIGHT: 12.75pt; mso-yfti-irow: 6"><TD style="BORDER-BOTTOM: #d4d0c8; BORDER-LEFT: #d4d0c8; PADDING-BOTTOM: 0in; BACKGROUND-COLOR: transparent; PADDING-LEFT: 5.4pt; WIDTH: 88.8pt; PADDING-RIGHT: 5.4pt; HEIGHT: 12.75pt; BORDER-TOP: #d4d0c8; BORDER-RIGHT: #d4d0c8; PADDING-TOP: 0in" vAlign=bottom width=118 noWrap>DAO
</TD></TR><TR style="HEIGHT: 12.75pt; mso-yfti-irow: 7"><TD style="BORDER-BOTTOM: #d4d0c8; BORDER-LEFT: #d4d0c8; PADDING-BOTTOM: 0in; BACKGROUND-COLOR: transparent; PADDING-LEFT: 5.4pt; WIDTH: 88.8pt; PADDING-RIGHT: 5.4pt; HEIGHT: 12.75pt; BORDER-TOP: #d4d0c8; BORDER-RIGHT: #d4d0c8; PADDING-TOP: 0in" vAlign=bottom width=118 noWrap>Office
</TD></TR><TR style="HEIGHT: 12.75pt; mso-yfti-irow: 8"><TD style="BORDER-BOTTOM: #d4d0c8; BORDER-LEFT: #d4d0c8; PADDING-BOTTOM: 0in; BACKGROUND-COLOR: transparent; PADDING-LEFT: 5.4pt; WIDTH: 88.8pt; PADDING-RIGHT: 5.4pt; HEIGHT: 12.75pt; BORDER-TOP: #d4d0c8; BORDER-RIGHT: #d4d0c8; PADDING-TOP: 0in" vAlign=bottom width=118 noWrap>MSOWCFLib
</TD></TR><TR style="HEIGHT: 12.75pt; mso-yfti-irow: 9; mso-yfti-lastrow: yes"><TD style="BORDER-BOTTOM: #d4d0c8; BORDER-LEFT: #d4d0c8; PADDING-BOTTOM: 0in; BACKGROUND-COLOR: transparent; PADDING-LEFT: 5.4pt; WIDTH: 88.8pt; PADDING-RIGHT: 5.4pt; HEIGHT: 12.75pt; BORDER-TOP: #d4d0c8; BORDER-RIGHT: #d4d0c8; PADDING-TOP: 0in" vAlign=bottom width=118 noWrap>MSACAL
</TD></TR></TBODY></TABLE>
<o> </o>
Sub AddRefs()<o></o>
Dim loRef As Access.Reference<o></o>
Dim guid1 As String<o></o>
Dim guid2 As String<o></o>
Dim guid3 As String<o></o>
Dim guid4 As String<o></o>
Dim guid5 As String<o></o>
Dim guid6 As String<o></o>
Dim guid7 As String<o></o>
Dim guid8 As String<o></o>
Dim guid9 As String<o></o>
Dim guid10 As String<o></o>
<o> </o>
guid1 = "{000204EF-0000-0000-C000-000000000046}"<o></o>
guid2 = "{4AFFC9A0-5F99-101B-AF4E-00AA003F0F07}"<o></o>
guid3 = "{00020430-0000-0000-C000-000000000046}"<o></o>
guid4 = "{00000205-0000-0010-8000-00AA006D2EA4}"<o></o>
guid5 = "{0002E550-0000-0000-C000-000000000046}"<o></o>
guid6 = "{00020813-0000-0000-C000-000000000046}"<o></o>
guid7 = "{00025E01-0000-0000-C000-000000000046}"<o></o>
guid8 = "{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}"<o></o>
guid9 = "{5D0A2606-5783-11D1-B901-00AA00585640}"<o></o>
guid10 = "{8E27C92E-1264-101C-8A2F-040224009C02}"<o></o>
<o> </o>
On Error Resume Next<o></o>
<o> </o>
With Access.References<o></o>
.AddFromGuid guid1, 1, 0<o></o>
.AddFromGuid guid2, 1, 0<o></o>
.AddFromGuid guid3, 1, 0<o></o>
.AddFromGuid guid4, 1, 0<o></o>
.AddFromGuid guid5, 1, 0<o></o>
.AddFromGuid guid6, 1, 0<o></o>
.AddFromGuid guid7, 1, 0<o></o>
.AddFromGuid guid8, 1, 0<o></o>
.AddFromGuid guid9, 1, 0<o></o>
.AddFromGuid guid10, 1, 0<o></o>
<o> </o>
End With<o></o>
<o> </o>
' Call a hidden SysCmd to automatically compile/save all modules.<o></o>
Call SysCmd(504, 16483)<o></o>
End Sub
Please help