Hi Tony and others,
I've created such a function to test whether a table is open or not and it
goes
like this:
'--------------------------------------------------------------
'Is table szTab open ? function
'--------------------------------------------------------------
Function TableOpen(ByVal szTab As String) As Logical
Dim i As Integer
TableOpen = False
OnError GoTo NoSuchTable
'**Need to check if the table asked for is the current Selection...
If szTab = "Selection" Then
If SelectionInfo(SEL_INFO_NROWS) = 0 Then
Exit Function
End If
End If
i = TableInfo(szTab,TAB_INFO_NUM)
'*** Success, the table was open...
TableOpen = TRUE
OnError GoTo 0
Exit Function
'-------------
NoSuchTable:
'***The table isn't open, an error occured ...
End Function
This has worked so far for me !
Best regards,
Peter
***************************************************************************
*
Peter Moller [EMAIL PROTECTED]
GIS-Developer Direct: +45 6313 5008
Kampsax Voice: +45 6313 5013
Rugårdsvej 55 Faximile: +45 6313 5090
DK 5000 Odense C Web: www.mapinfo.dk
MapInfo Authorized Partner
***************************************************************************
*
----------------------------------------------------------------------
To unsubscribe from this list, send e-mail to [EMAIL PROTECTED] and put
"unsubscribe MAPINFO-L" in the message body, or contact [EMAIL PROTECTED]
