Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access importation et supression de tables

importation et supression de tables

4 réponses
Avatar
Doudou
Bonjour,

Voila je désire connaitre la fonction qui permet d'importer des tables
depuis une autre base de données tous en modifiant le nom de la table sur sa
nouvelle destination. (en VBA )

Voila je désire modifier la liaison de la table mais je ne me souviens plus
de la commande.
Je créer une la liaison avec toutes les tables d'une autre base ... (en VBA )
Je désire supprimer toutes les tables d'un bases (VBA)

Merci beaucoup d'avance.
Signaler un problème avec ce contenu

4 réponses

Supprimer
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
Avatar
Jessy Sempere [MVP]
Bonjour

Tu peux utiliser la commande :

DoCmd.TransferDatabase...

Il te suffit de mettre le nouveau nom que tu souhaite dans l'argument
Destination

--
@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"Doudou" a écrit dans le message news:

Bonjour,

Voila je désire connaitre la fonction qui permet d'importer des tables
depuis une autre base de données tous en modifiant le nom de la table sur
sa

nouvelle destination. (en VBA )

Voila je désire modifier la liaison de la table mais je ne me souviens
plus

de la commande.
Je créer une la liaison avec toutes les tables d'une autre base ... (en
VBA )

Je désire supprimer toutes les tables d'un bases (VBA)

Merci beaucoup d'avance.


Avatar
Doudou
bonjour et merci des réponses

voici le code trouvé sur le site de Jessy
Public Function LstTableInTable(strTable As String, strField As String)

CurrentDb.execute "Delete *.* from " & strTable & ";"
For Each tdf In CurrentDb.TableDefs
CurrentDb.execute "INSERT INTO " & strTable & " ( " & strField & " ) " _
& "Select '" & tdf.Name & "';"
Next

End Function

Commanet puis je faire pour le modifier et que celui ci liste toutes les
tables d'un base de données externe .


Bonjour

Tu peux utiliser la commande :

DoCmd.TransferDatabase...

Il te suffit de mettre le nouveau nom que tu souhaite dans l'argument
Destination

--
@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"Doudou" a écrit dans le message news:

Bonjour,

Voila je désire connaitre la fonction qui permet d'importer des tables
depuis une autre base de données tous en modifiant le nom de la table sur
sa

nouvelle destination. (en VBA )

Voila je désire modifier la liaison de la table mais je ne me souviens
plus

de la commande.
Je créer une la liaison avec toutes les tables d'une autre base ... (en
VBA )

Je désire supprimer toutes les tables d'un bases (VBA)

Merci beaucoup d'avance.







Avatar
Jessy Sempere [MVP]
Bonjour

Il suffit d'utiliser OpenDatabase au lieu de currentDb pour spécifier de
quelle base de donnée tu veux la liste des tables...

Genre :

Public Function LstTableInTable(strDb as String, strTable As String,
strField As String)

dim db as database
set db = opendatabase ("c:...tabase.mdb")
currentdb.execute "Delete *.* from " & strTable & ";"
For Each tdf In Db.TableDefs
CurrentDb.execute "INSERT INTO " & strTable & " ( " & strField & " ) " _
& "Select '" & tdf.Name & "';"
Next
set db = nothing
End Function



--
@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"Doudou" a écrit dans le message news:

bonjour et merci des réponses

voici le code trouvé sur le site de Jessy
Public Function LstTableInTable(strTable As String, strField As String)

CurrentDb.execute "Delete *.* from " & strTable & ";"
For Each tdf In CurrentDb.TableDefs
CurrentDb.execute "INSERT INTO " & strTable & " ( " & strField & " ) "
_

& "Select '" & tdf.Name & "';"
Next

End Function

Commanet puis je faire pour le modifier et que celui ci liste toutes les
tables d'un base de données externe .


Bonjour

Tu peux utiliser la commande :

DoCmd.TransferDatabase...

Il te suffit de mettre le nouveau nom que tu souhaite dans l'argument
Destination

--
@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"Doudou" a écrit dans le message
news:



Bonjour,

Voila je désire connaitre la fonction qui permet d'importer des tables
depuis une autre base de données tous en modifiant le nom de la table
sur



sa
nouvelle destination. (en VBA )

Voila je désire modifier la liaison de la table mais je ne me souviens
plus

de la commande.
Je créer une la liaison avec toutes les tables d'une autre base ...
(en



VBA )
Je désire supprimer toutes les tables d'un bases (VBA)

Merci beaucoup d'avance.









Avatar
Doudou
Merci parfait



Bonjour

Il suffit d'utiliser OpenDatabase au lieu de currentDb pour spécifier de
quelle base de donnée tu veux la liste des tables...

Genre :

Public Function LstTableInTable(strDb as String, strTable As String,
strField As String)

dim db as database
set db = opendatabase ("c:...tabase.mdb")
currentdb.execute "Delete *.* from " & strTable & ";"
For Each tdf In Db.TableDefs
CurrentDb.execute "INSERT INTO " & strTable & " ( " & strField & " ) " _
& "Select '" & tdf.Name & "';"
Next
set db = nothing
End Function



--
@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"Doudou" a écrit dans le message news:

bonjour et merci des réponses

voici le code trouvé sur le site de Jessy
Public Function LstTableInTable(strTable As String, strField As String)

CurrentDb.execute "Delete *.* from " & strTable & ";"
For Each tdf In CurrentDb.TableDefs
CurrentDb.execute "INSERT INTO " & strTable & " ( " & strField & " ) "
_

& "Select '" & tdf.Name & "';"
Next

End Function

Commanet puis je faire pour le modifier et que celui ci liste toutes les
tables d'un base de données externe .


Bonjour

Tu peux utiliser la commande :

DoCmd.TransferDatabase...

Il te suffit de mettre le nouveau nom que tu souhaite dans l'argument
Destination

--
@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"Doudou" a écrit dans le message
news:



Bonjour,

Voila je désire connaitre la fonction qui permet d'importer des tables
depuis une autre base de données tous en modifiant le nom de la table
sur



sa
nouvelle destination. (en VBA )

Voila je désire modifier la liaison de la table mais je ne me souviens
plus

de la commande.
Je créer une la liaison avec toutes les tables d'une autre base ...
(en



VBA )
Je désire supprimer toutes les tables d'un bases (VBA)

Merci beaucoup d'avance.