Function to Check if table exits

[iXPhound]

Hi all...beginner here so please excuse the simple questions. I have found examples on how to write a function that creates a table. Now i would like to create a function that checks if a table exits. So far I have:

Sub CheckTable(strTable as String)

Dim dbs as Database, tbl as TableDef
Set dbs = CurrentDB

LOL, can anyone help me finish...I am not finding my answer anywhere and I need some help. TIA!!!!

 

[RickSpr]

On Error Resume Next
Set tbl = dbs.TableDefs(strTable)
If Err Then
' table not found
Else
' table exists
End If
On Error GoTo 0

This is a little simplistic; it treats any error as "table not found".

You're a beginner? I'm surprised (but impressed) that you're using DAO already. I predict a bright future with Access! Rick Sprague

 

[iXPhound]

Thanks for your help again Rick!

 

[MichaelFrench]

Function DoesTableExist(pTableName)
Dim db As Database
Dim tbl As TableDef
Set db = CurrentDb()
For Each tbl In db.TableDefs
If tbl.name = pTableName Then
DoesTableExist = True
End If
Next tbl
End Function

Sub MakeCall()
Debug.Print DoesTableExist("Table1&quot
End Sub

The function DoesTableExist take the parameter of the name of the table you want to check.

It then loops all the tables and returns true if it exists.
This code can be shortened.

But how it works is obvious.