CISA FotoGallery

Statistiche

Tot. visite contenuti : 928229
Home Articoli tecnici Tabelle Eliminare tutte le Linked Tables

Eliminare tutte le Linked Tables

RIMUOVERE TUTTE LE TABELLE COLLEGATE Sub sRemoveLinks()     Dim db As Database     Dim tdf As 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 Alessandro Baraldi