Tables

1.34 Rimuovere tutte le tabelle collegate da un database
  Alessandro Baraldi

Inserire il codice seguente in un modulo standard del database ed eseguire la Sub per rimuovere tutte le tabelle collegate da un database.
Sub sRemoveLinks()
    Dim db As DAO.Database
    Dim tdf As DAO.TableDef
    Dim intCount As Integer, intPos As Integer
    Set db=DBEngine(0)(0)
    intCount=db.TableDefs.Count-1
    For intPos=intCount to 0 Step -1
        Set tdf=db.TableDefs(intPos)
        If Len(tdf.Connect)>0 Then
            DoCmd.DeleteObject acTable, tdf.Name
        End If
    Next intPos
End Sub
Nella Sub sRemoveLinks() si fa riferimento alla libreria Microsoft DAO quindi, se si utilizza una versione di Access successiva ad Access 97, aggiungere tale libreria ai riferimenti del database.

Se pensate di avere del materiale freeware interessante e volete pubblicarlo, allora leggete qui.