Tim -
Make sure that your declare statement:
Declare Sub IsTableOpen(ByVal MyTable_str as string)
matches your definition statement:
Sub IsTableOpen
.
.
.
End Sub
Yours should read:
Sub IsTableOpen(ByVal MyTable_str as string)
Lindsay Giles
Senior GIS Analyst
AXYS Environmental Consulting Ltd
Suite 600-555 4th Ave. SW
Calgary, AB
T2P 3E7
e-mail: [EMAIL PROTECTED]
Main Office: 403-269-5150
Direct Line: 403-750-7671
Fax: 403-269-5245
Visit our web site at http://www.axys.net
-----Original Message-----
From: Tim Warman [SMTP:[EMAIL PROTECTED]]
Sent: Monday, March 06, 2000 3:10 PM
To: Mapinfo-L
Subject: MI sub does not match declare
[] Listers,
I keep getting the MB error "Sub procedure or Function IsTableOpen does not
match Declare", from the following bit of code kindly provided by Ahmet
Dabanli.
include "C:\Program Files\MapInfo\MapBasic\mapbasic.def"
Declare Sub WellsOpen
Declare Sub IsTableOpen(ByVal MyTable_str as string)
Declare Sub PlottingBit
Declare Sub OpenWells
Declare Sub OpenWater
'.....................................
'Define Variables.
'.....................................
Global H20Levels_str, Wells_str, FilePath_str, Aquifer_str As String
Global Year_int, Month_int as Integer
Global TableOpen_log as Logical
'.....................................
'Check to see if Wells and/or Water Levels are open.
'.....................................
Call IsTableOpen("Wells")
If TableOpen_log =0 Then Call OpenWells()
End If
Call IsTableOpen("Water_Levels")
If TableOpen_log =0 Then Call OpenWater()
End If
Sub IsTableOpen
dim k as integer
TableOpen_log = 0
For k =1 to NumTables()
If TableInfo (k,1) = myTable_str Then TableOpen_log = 1
End If
Next
End Sub
Am I missing something really obvious here?
TIA
_____________________________
Tim Warman
Geologist & GIS Specialist
Richard C. Slade & Associates
North Hollywood, CA
(818) 506-0418
----------------------------------------------------------------------
To unsubscribe from this list, send e-mail to [EMAIL PROTECTED] and put
"unsubscribe MAPINFO-L" in the message body, or contact [EMAIL PROTECTED] << File:
ATT00005.txt; charset = Windows-1252 >>
----------------------------------------------------------------------
To unsubscribe from this list, send e-mail to [EMAIL PROTECTED] and put
"unsubscribe MAPINFO-L" in the message body, or contact [EMAIL PROTECTED]
