[AccessD] Does table exist?

Hi StaRKeY

Ahh, didn't notice that, sorry.
It's 4 by the way.

/gustav


> 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