Macro Conditions - Check if table name exists

[rytsyd]

what should be the syntax of a macro condition if I want to check if the table name is already existing? I need this condition so that if the table name is existing, the macro will perform other task and avoid getting an error. For example, I have Table1 already and I run the macro w/o the condition, it will result to an error. I need the condition to skip actions that will produce the error.
any idea will help. thanks in advance!

[Tanis]

Try this function. I would try to steer clear of macros. Use them only when you have to.

Function TableExists(strTableName As String) As Integer
'Returns True if table exists
Dim dbs As Database
Dim i As Integer
Set dbs = CurrentDb()
TableExists = False
dbs.TableDefs.Refresh
For i = 0 To dbs.TableDefs.Count - 1
If strTableName = dbs.TableDefs(i).Name Then
'Table Exists
TableExists = True
Exit For
End If
Next i
DoCmd.DeleteObject acTable, strTableName
 
Set dbs = Nothing
End Function
 

[NeoPa]

Tanis makes a good point.
Try this slightly shorter/more straightforward function though.

Public Function TableExists(strTable As String) As Boolean
    Dim strName As String
 
    On Error Resume Next
    'If table exists already then strName will be > ""
    strName = CurrentDb.TableDefs(strTable).Name
    TableExists = Not (strName = "")
End Function

[rytsyd]

sad to say but I really have to do it using macro =(

[rytsyd]

still needs help in macro conditions...thanks!

[MMcCarthy]

what should be the syntax of a macro condition if I want to check if the table name is already existing? I need this condition so that if the table name is existing, the macro will perform other task and avoid getting an error. For example, I have Table1 already and I run the macro w/o the condition, it will result to an error. I need the condition to skip actions that will produce the error.
any idea will help. thanks in advance!

I honestly don't know of a way to do this using a macro. One of the reasons VBA was designed is because macros are limited.

Mary

[rytsyd]

ok...thanks mary!

[MMcCarthy]

ok...thanks mary!

Wish I could have helped more. If you decide you want to try VBA let us know and we'll do what we can to help.

Mary