where error trapping doesn't work (loosely
speaking).
-Original Message-
From: MAGS-Gerencia [mailto:[EMAIL PROTECTED]]
Sent: Thursday, May 30, 2002 2:45 PM
To: Cautley, David/PDX; 'Morrier, Steve'
Cc: [EMAIL PROTECTED]
Subject: Re: MI-L Check that a table is open?
d/PDX; 'Morrier, Steve'
Cc: [EMAIL PROTECTED]
Subject: Re: MI-L Check that a table is open??
Another way.
Function IsTableOpen(Byval TName as string) as logical
onerror Goto IsTableOpen_error
IsTableOpen = TRUE
Fetch First From TName
Exit Function
IsTableOpen_error:
IsTa
t; <[EMAIL PROTECTED]>
To: "'Morrier, Steve'" <[EMAIL PROTECTED]>
Cc: <[EMAIL PROTECTED]>
Sent: Thursday, May 30, 2002 2:25
' * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* * * * * * * * * *
'
' * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* * * * * * * * * *
Function IsTableOpen(Byval TName as string) as logical
Dim l as Logical
Dim Ta