RefreshLinks

[Beatrice]

This first line of code has an error message, User-defined
type not defined.

What is this code looking for?

Function fIsRemoteTable(dbRemote As DATABASE, strTbl As
String) As Boolean
Dim tdf As TableDef
On Error Resume Next
Set tdf = dbRemote.TableDefs(strTbl)
fIsRemoteTable = (Err = 0)
Set tdf = Nothing
End Function

 

[Allen Browne]

From the code window, choose References on the Tools menu.
Check the box beside:
Microsoft DAO 3.6 Library

More information on references:
http://members.iinet.net.au/~allenbrowne/ser-38.html