Table exists

D

Daniel

Function TableExists(strName As String) as Boolean
Dim strTemp as String
On Error Resume Next
strTemp = CurrentDb.TableDefs(strName).Name
TableExists = (Err.Number = 0)
Err.Clear
End Function

Code originally from Ken Getz

Daniel
 
Top