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...

[nman]

......Lunedì provo ......

Permettimi di perfezionare,

Quel "On Error Resume Next" non mi piace,
ma pero possiamo forzare l'aggiornamento del TableDefs

poi avevo dimenticato la chiusura degli oggetti

cosi dovrebbe funzionare meglio:

Private Sub EliminaTabelle2()

Dim DBx As DAO.Database
Set DBx = DBEngine(0)(0)
Dim tbx As DAO.TableDef

DBx.TableDefs.Refresh

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

DBx.Close
Set DBx = Nothing

'  Magari qui aggiungi un bel
'    Me.NomePulsante.Enabled = False
'  cosi ti assicuri che non venga premuto decine di volte

End Sub