Getting started with access-vba Enable/Disable Shift Key on DB Open Access Error Codes (Form.Error, DataErr)Check if Table Exists in Current DB Create Text Delimited File in Access Vba

Check if Table Exists in Current DB

Remarks:

Simply place this code as a Public Module that can be called by any other procedure. When calling the code, add in the name of the table you want to look up within the parenthesis. The Code returns a True/False value on whether or not a table already exists. This is helpful when needing to determine if a table needs to be deleted/purged or if a table already exists before performing additional code.

Example

Public Function TblExists(sTable As String) As Boolean
    
    On Error Resume Next
    Dim tdf As TableDef
  
    Set tdf = CurrentDb.TableDefs(sTable)

    If Err.Number = 0 Then
        TblExists = True
    Else
        TblExists = False
    End If
End Function

A somewhat simpler function that can be used in one line

Public Function TableExists(value as String) as Boolean

    On Error Resume Next
    TableExists = Len(CurrentDb.Tabledefs(value).Name & "") > 0

End Function

Contributors

Topic Id: 7384

Example Ids: 24480,24953

This site is not affiliated with any of the contributors.