Hi
I have been using this facility for some time, but recently get the
following message.
Error 9: Subscript out of range
Am using Windows XP Pro with Access 2002, although the feature has
worked on this PC in the past.
Code extract:
Public Function SwapDatabase(strSwapTo)
Dim strDatabaseLocation As String
strDatabaseLocation = Nz(DLookup("AppPath", "tblFirm")) & "\"
With COMAddIns("TsiSoon90.Connect").Object
.FileToOpen = strDatabaseLocation & strSwapTo
.Exclusive = False
.FileIsAdp = False
.CloseAll
End With
strSwapTo is the mdb file name.
Any ideas please? Thanks
Tom Blower