[AccessD] Does table exist?

it will...check out my extended information in the code...'and other
types'...

:-)

-----Original Message-----
From: accessd-admin at databaseadvisors.com
[mailto:accessd-admin at databaseadvisors.com]On Behalf Of Gustav Brock
Sent: vrijdag 21 maart 2003 12:08
To: StaRKeY
Subject: Re: [AccessD] Does table exist?


Hi StaRKeY

This won't catch attached ODBC tables.

/gustav

> How about:

> Public Function CheckTableExist (strTableName As String) As Boolean
> Dim strCriteria As String

>   strCriteria = "name = '" & strTableName & "'" & " and (type=1 or type=6
> and other types)"
>   CheckTableExist = CBool(DCount("[ID]", "MSysObjects", strCriteria))

> End Function

> I must be getting old since I am running out of alternatives:-)

Well, you try.

_______________________________________________
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com


---
Message is tested virus free
Virus Database (VPS): 19-3-2003
Tested on: 21-3-2003 18:28:00

(c) 2000-2003 ALWIL Software.
http://www.avast.com