Eliminare tutte le tabelle tranne una

[emmeastudio2016]

Potresti fare un ciclo su tutte le tabelle escludendo le tabelle di sistema (nome che inizia con MSys) e la tua "Tabella1"

Tutte le tabelle le trovi nella "collezione" TableDefs

Private Sub EliminaTabelle()
Dim DBx As DAO.Database
Set DBx = DBEngine(0)(0)

Dim tbx As DAO.TableDef

For Each tbx In DBx.TableDefs
    On Error Resume Next
        If Left(tbx.Name, 4) <> "MSys" And tbx.Name <> "tabella1" Then
            DoCmd.DeleteObject acTable, tbx.Name
        End If
    On Error GoTo 0
Next

End Sub

NB: il "On Error Resume Next" lo ho messo perché in caso di
clik ripetuto sullo stesso pulsante andresti a un errore
in quanto tenta di eliminare una tabella inesistente
..... Il TableDefs si aggiorna alla prossima apertura del DB

Facci sapere

.

Che dire... Per adesso grazie! Lunedì provo e vi faccio sapere...