Vla le pbl j'ai une appli avec environ 250 tables attachées et je voudrais
savoir si qqun connait le moyen de suprimer toutes ces attaches en un click
plutot que une à une. (je m'entends je sélectionne les tables attachées et je
les supprime pour en réatacher d'autres.)
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Charles ERNST
Par programme Dim Tdf As TableDef For Each Tdf In Currentdb.TableDefs ' Si la table a une chaîne de connection, c'est une table attachée. If Tdf.Connect <> "" Then db.TableDefs.Delete (Tdf.Name) End If Next Tdf
et pour réattacher , si la liste des tables est dans la Table "Table" Dim T as Recordset Set T = currentdb.OpenRecordset("Tables", dbOpenSnapshot) While Not (T.EOF) Set Tdf = db.CreateTableDef(T("Table")) Tdf.Connect = ";DATABASE=" & chNomFichier Tdf.SourceTableName = T("Table") db.TableDefs.Append Tdf T.MoveNext Wend
"michel" a écrit dans le message de news:
Bjr à toutes et tous.
Vla le pbl j'ai une appli avec environ 250 tables attachées et je voudrais savoir si qqun connait le moyen de suprimer toutes ces attaches en un click plutot que une à une. (je m'entends je sélectionne les tables attachées et je les supprime pour en réatacher d'autres.)
Une idéee????
Merci michel
Par programme
Dim Tdf As TableDef
For Each Tdf In Currentdb.TableDefs
' Si la table a une chaîne de connection, c'est une table attachée.
If Tdf.Connect <> "" Then
db.TableDefs.Delete (Tdf.Name)
End If
Next Tdf
et pour réattacher , si la liste des tables est dans la Table "Table"
Dim T as Recordset
Set T = currentdb.OpenRecordset("Tables", dbOpenSnapshot)
While Not (T.EOF)
Set Tdf = db.CreateTableDef(T("Table"))
Tdf.Connect = ";DATABASE=" & chNomFichier
Tdf.SourceTableName = T("Table")
db.TableDefs.Append Tdf
T.MoveNext
Wend
"michel" <michel@discussions.microsoft.com> a écrit dans le message de news:
6FA94450-7F15-4919-9084-9214F639BD74@microsoft.com...
Bjr à toutes et tous.
Vla le pbl j'ai une appli avec environ 250 tables attachées et je voudrais
savoir si qqun connait le moyen de suprimer toutes ces attaches en un
click
plutot que une à une. (je m'entends je sélectionne les tables attachées et
je
les supprime pour en réatacher d'autres.)
Par programme Dim Tdf As TableDef For Each Tdf In Currentdb.TableDefs ' Si la table a une chaîne de connection, c'est une table attachée. If Tdf.Connect <> "" Then db.TableDefs.Delete (Tdf.Name) End If Next Tdf
et pour réattacher , si la liste des tables est dans la Table "Table" Dim T as Recordset Set T = currentdb.OpenRecordset("Tables", dbOpenSnapshot) While Not (T.EOF) Set Tdf = db.CreateTableDef(T("Table")) Tdf.Connect = ";DATABASE=" & chNomFichier Tdf.SourceTableName = T("Table") db.TableDefs.Append Tdf T.MoveNext Wend
"michel" a écrit dans le message de news:
Bjr à toutes et tous.
Vla le pbl j'ai une appli avec environ 250 tables attachées et je voudrais savoir si qqun connait le moyen de suprimer toutes ces attaches en un click plutot que une à une. (je m'entends je sélectionne les tables attachées et je les supprime pour en réatacher d'autres.)
Une idéee????
Merci michel
michel
Bonjour Charles et merci,
J'ai bien retranscrit ta prog, mais lors du lancement, il m'indique une erreur de compilation (membre ou méthode non trouvée).
Une idée?
Par programme Dim Tdf As TableDef For Each Tdf In Currentdb.TableDefs ' Si la table a une chaîne de connection, c'est une table attachée. If Tdf.Connect <> "" Then db.TableDefs.Delete (Tdf.Name) End If Next Tdf
et pour réattacher , si la liste des tables est dans la Table "Table" Dim T as Recordset Set T = currentdb.OpenRecordset("Tables", dbOpenSnapshot) While Not (T.EOF) Set Tdf = db.CreateTableDef(T("Table")) Tdf.Connect = ";DATABASE=" & chNomFichier Tdf.SourceTableName = T("Table") db.TableDefs.Append Tdf T.MoveNext Wend
"michel" a écrit dans le message de news:
Bjr à toutes et tous.
Vla le pbl j'ai une appli avec environ 250 tables attachées et je voudrais savoir si qqun connait le moyen de suprimer toutes ces attaches en un click plutot que une à une. (je m'entends je sélectionne les tables attachées et je les supprime pour en réatacher d'autres.)
Une idéee????
Merci michel
Bonjour Charles et merci,
J'ai bien retranscrit ta prog, mais lors du lancement, il m'indique une
erreur de compilation (membre ou méthode non trouvée).
Une idée?
Par programme
Dim Tdf As TableDef
For Each Tdf In Currentdb.TableDefs
' Si la table a une chaîne de connection, c'est une table attachée.
If Tdf.Connect <> "" Then
db.TableDefs.Delete (Tdf.Name)
End If
Next Tdf
et pour réattacher , si la liste des tables est dans la Table "Table"
Dim T as Recordset
Set T = currentdb.OpenRecordset("Tables", dbOpenSnapshot)
While Not (T.EOF)
Set Tdf = db.CreateTableDef(T("Table"))
Tdf.Connect = ";DATABASE=" & chNomFichier
Tdf.SourceTableName = T("Table")
db.TableDefs.Append Tdf
T.MoveNext
Wend
"michel" <michel@discussions.microsoft.com> a écrit dans le message de news:
6FA94450-7F15-4919-9084-9214F639BD74@microsoft.com...
Bjr à toutes et tous.
Vla le pbl j'ai une appli avec environ 250 tables attachées et je voudrais
savoir si qqun connait le moyen de suprimer toutes ces attaches en un
click
plutot que une à une. (je m'entends je sélectionne les tables attachées et
je
les supprime pour en réatacher d'autres.)
J'ai bien retranscrit ta prog, mais lors du lancement, il m'indique une erreur de compilation (membre ou méthode non trouvée).
Une idée?
Par programme Dim Tdf As TableDef For Each Tdf In Currentdb.TableDefs ' Si la table a une chaîne de connection, c'est une table attachée. If Tdf.Connect <> "" Then db.TableDefs.Delete (Tdf.Name) End If Next Tdf
et pour réattacher , si la liste des tables est dans la Table "Table" Dim T as Recordset Set T = currentdb.OpenRecordset("Tables", dbOpenSnapshot) While Not (T.EOF) Set Tdf = db.CreateTableDef(T("Table")) Tdf.Connect = ";DATABASE=" & chNomFichier Tdf.SourceTableName = T("Table") db.TableDefs.Append Tdf T.MoveNext Wend
"michel" a écrit dans le message de news:
Bjr à toutes et tous.
Vla le pbl j'ai une appli avec environ 250 tables attachées et je voudrais savoir si qqun connait le moyen de suprimer toutes ces attaches en un click plutot que une à une. (je m'entends je sélectionne les tables attachées et je les supprime pour en réatacher d'autres.)
