UtterAccess.com
X   Site Message
(Message will auto close in 2 seconds)

Welcome to UtterAccess! Please ( Login   or   Register )

Custom Search
 
   Reply to this topicStart new topic
> Removing A Reference, Access 2016    
 
   
Knuckles
post Oct 16 2019, 09:26 AM
Post#1



Posts: 901
Joined: 1-February 10
From: New Jersey


Good morning UA world,

O365

I inherited a family of databases that have another .accde as a reference.
I am attempting to remove the reference and bring in the modules that were in the reference file. It worked in 5 of the 7 databases.

Stuck here:
Function zFaDGetFileInformation(ByVal File As String, ByVal GetWhat As zPubFileInformation) As String
Dim fsoObj As New FileSystemObject

It fails on Dim fsoObj As New FileSystemObject when I debug.

I cannot figure out why. Any help would be great. Thanks in advance.

Knuckles
Go to the top of the page
 
Phil_cattivocara...
post Oct 16 2019, 10:19 AM
Post#2



Posts: 368
Joined: 2-April 18



For that you need a reference to Microsoft Scripting Runtime or using latebinding
CODE
Dim fsObj As Object
Set fsObj = CreateObject("Scripting.FileSystemObject)

--------------------
Please forgive in advance my horrible English.
Go to the top of the page
 
arnelgp
post Oct 16 2019, 10:36 AM
Post#3



Posts: 1,510
Joined: 2-April 09
From: somewhere out there...


add Reference to Microsoft Scripting Runtime.

--------------------
Never stop learning, because life never stops teaching.
Go to the top of the page
 
Knuckles
post Oct 16 2019, 10:42 AM
Post#4



Posts: 901
Joined: 1-February 10
From: New Jersey



Thanks guys, that did it. cheers.gif
Go to the top of the page
 
Knuckles
post Oct 16 2019, 11:21 AM
Post#5



Posts: 901
Joined: 1-February 10
From: New Jersey



I just hit another wall though...

Dim xlApp As New Excel.Application

Am I missing another reference?
Go to the top of the page
 
PaulBrand
post Oct 16 2019, 11:34 AM
Post#6



Posts: 1,733
Joined: 4-September 02
From: Oxford UK


Yes, Microsoft Excel XX.x Object Library

--------------------
Paul
Go to the top of the page
 
arnelgp
post Oct 16 2019, 11:51 AM
Post#7



Posts: 1,510
Joined: 2-April 09
From: somewhere out there...


or

Dim xlApp As Object

Set xlApp = CreateObject("Excel.Application")

--------------------
Never stop learning, because life never stops teaching.
Go to the top of the page
 
Knuckles
post Oct 16 2019, 11:58 AM
Post#8



Posts: 901
Joined: 1-February 10
From: New Jersey



Once again, many thanks to all.

K
Go to the top of the page
 


Custom Search


RSSSearch   Top   Lo-Fi    22nd November 2019 - 08:30 AM