Hola:
Puedes saber sí existe una tabla provocando un error:
Private Sub cmdEliminarTabla_Click()
On Error GoTo EliminarTabla
If existeTabla("Tabla1") Then
If MsgBox("Desea eliminar la Tabla", _
vbCritical + vbYesNo + vbDefaultButton2, _
"Eliminación") = vbYes Then
'Puedes eliminar la tabla de estas 2 formas
'DoCmd.DeleteObject acTable, "Tabla1"
CurrentDb.Execute "DROP TABLE Tabla1"
End If
End If
On Error GoTo 0
Exit Sub
EliminarTabla:
MsgBox Err.Description, vbCritical, "Error Nº: " & Err.Number
End Sub
Function existeTabla(strTabla As String) As Boolean
On Error GoTo existeTabla
If DCount("*", strTabla) > -1 Then
MsgBox "La Tabla " & strTabla & " existe"
End If
existeTabla = -1
On Error GoTo 0
Exit Function
existeTabla:
If Err.Number = 3078 Then
MsgBox "La tabla " & strTabla & " no existe"
existeTabla = 0
End If
End Function
Supongo que con DAO se puede hacer mejor, pero lo domino poco.
Un saludo