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