Check if table available (2000)

[jaf90]

I have a linked table in my database, pointing to a table in a database on another machine.
Is there a method of checking if the table is available (i.e. that the other machine is switched on) so that I can display a warning message if it can't be contacted.
John

[HansV]

You can do something like this:

Function IsTableAvailable(TableName As String) As Boolean
Dim cnn As ADODB.Connection
Dim rst As New ADODB.Recordset

On Error Resume Next

Set cnn = CurrentProject.Connection
rst.Open TableName, cnn
IsTableAvailable = (Err = 0)

rst.Close
Set rst = Nothing
Set cnn = Nothing
End Function

This function tries to open a recordset on the table and returns True if it succeeds, False if it fails.

[jaf90]

Many thanks - works excellently (as usual)
John