Gustav Brock
gustav at cactus.dk
Fri Mar 21 05:09:00 CST 2003
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.