Function to check if a table exists?

[suzie_q]

Hello There

Is there a function to check whether or not a table exists before I try and create one in VBA?

Thanks

suzie

 

[Mile-O]

Sub CheckForTable()

    Dim db As Database, tdf As TableDef, fld As Field    
    Set db = CurrentDb
    
    For Each tdf In db.TableDefs
        If tdf.Name = "tblNew" Then
            MsgBox "Table found."
            Exit Sub
        End If
    Next
        
    Set tdf = db.CreateTableDef("tblNew")
    Set fld = tdf.CreateField("New Stuff", dbText, 30)
    tdf.Fields.Append fld
    db.TableDefs.Append tdf
    MsgBox "Table created."

End Sub

This bit of code should help you check for a table, in this case called tblNew.

 

[Travis]

Not to steal thunder, but you don't have to use a loop throught the tabledefs to find this info (Not a big deal when you have less then 100 tables but...)

Sub CheckForTable()
On Error Resume Next
    Dim db As DAO.Database, tdf As DAO.TableDef, fld As DAO.Field
    Set db = CurrentDb
    
    'Set tdf = db.TableDefs
    
    If db.TableDefs("tblNew").Name <> "" Then
        If Err.Number = 0 Then
            MsgBox "Table found."
            Exit Sub
        End If
    End If
    
    Err.Clear
    
    Set tdf = db.CreateTableDef("tblNew")
    Set fld = tdf.CreateField("New Stuff", dbText, 30)
    tdf.Fields.Append fld
    db.TableDefs.Append tdf
    MsgBox "Table created."

End Sub