Copier une table d'1 bd à une autre bd en vb
Résolu/Fermé
abdelhard
Messages postés
17
Date d'inscription
mardi 23 février 2010
Statut
Membre
Dernière intervention
24 mars 2012
-
23 févr. 2010 à 14:17
dareeef Messages postés 4 Date d'inscription lundi 1 octobre 2007 Statut Membre Dernière intervention 22 septembre 2013 - 22 sept. 2013 à 17:03
dareeef Messages postés 4 Date d'inscription lundi 1 octobre 2007 Statut Membre Dernière intervention 22 septembre 2013 - 22 sept. 2013 à 17:03
A voir également:
- Copier une table d'1 bd à une autre bd en vb
- Table ascii - Guide
- Copier une vidéo youtube - Guide
- Comment faire une table des matières sur word - Guide
- Télécharger bd pdf gratuit sans inscription - Forum PDF
- Dans la table des matières de ce document, le chapitre 6 et ses 2 sections n'apparaissent pas. trouvez l'erreur dans la structure du document et corrigez-la. mettez à jour la table des matières. quel est le mot formé par les lettres en majuscules de la table des matières après sa mise à jour ? - Forum Word
4 réponses
Private Sub()
Dim bddAccess As Application
Set bddAccess = CreateObject("Access.Application")
bddAccess.OpenCurrentDatabase "C:\Bases\bd1.mdb"
bddAccess.DoCmd.CopyObject "C:\Bases\bd2.mdb", "Table_Destination", acTable, "Table_Source"
End Sub
PS: Il faut ajouter Microsoft Access 1x.0 Object Library dans tes références.
Dim bddAccess As Application
Set bddAccess = CreateObject("Access.Application")
bddAccess.OpenCurrentDatabase "C:\Bases\bd1.mdb"
bddAccess.DoCmd.CopyObject "C:\Bases\bd2.mdb", "Table_Destination", acTable, "Table_Source"
End Sub
PS: Il faut ajouter Microsoft Access 1x.0 Object Library dans tes références.
dareeef
Messages postés
4
Date d'inscription
lundi 1 octobre 2007
Statut
Membre
Dernière intervention
22 septembre 2013
22 sept. 2013 à 17:03
22 sept. 2013 à 17:03
merci
abdelhard
Messages postés
17
Date d'inscription
mardi 23 février 2010
Statut
Membre
Dernière intervention
24 mars 2012
23 févr. 2010 à 17:49
23 févr. 2010 à 17:49
il me donne un erreur tupe incompatible lorsque il arrive a cette ligne
Set bddAccess = CreateObject("Access.Application")
jai ajouter le reference 12.0 object library
Set bddAccess = CreateObject("Access.Application")
jai ajouter le reference 12.0 object library
