asked on
Dim db As Dao.Database
Dim tbd As Dao.TableDef
If blnDeletePreviousTable = True Then
Set db = CurrentDb
For Each tbd In db.TableDefs
If tbd.Name = oNewTable Then
Stop
If blnDeletePreviousTable = True Then
db.TableDefs.Delete (oNewTable)
db.TableDefs.Refresh
Exit For
Else
'Do not delete
End If
End If
Next
End If