Je suis en access 97 (bientôt 10 ans !)et cherche à transférer toutes les
tables d'une base vers une autre base à partir d'une base externe par du
code VBA.
Si des tables existent dans la base destination elles devraient être
supprimées...
J'ai un formulaire avec :
- un contrôle possédant le chemin de la base origine (CheminBaseOrig)
- un contrôle possédant le chemin de la base origine (CheminBaseDest)
- un bouton pour activer l'évènement
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
PatriceVFE
C toujours moi qui continue avec ma question...
J'ai trouvé un exemple sur le site de Jessy Sempere ( http://access.jessy.free.fr/ Rubrique : Cmd Externes Exporter un objet externe), mais cela ne fonctionne pas :
Public Function ExportObjectExterne(strDbSrc$, strDbDest$, intType%, strObject$) '** intType : 0 pour table, 1 pour requête, 2 pour formulaire '** 3 pour état, 4 pour macro et 5 pour module
Dim acApp As Object
Set acApp = CreateObject("Access.Application") With acApp .OpenCurrentDatabase strDbSrc .DoCmd.TransferDatabase acExport, , strDbDest, _ intType, strObject, strObject .CloseCurrentDatabase End With
acApp.Quit: Set acApp = Nothing
End Function
Erreur d'exécution 2507 : Vous avez utilisé la méthode TransferDatabase, mais vous avez utilisé une expression dans l'argument 'type base de données' qui ne correspond pas à un type de base de données correct pour importer, exporter ou attacher.
Merci à ceux ou celles qui veulent bien me faire progresser.
Patrice
"NewsVFE" a écrit dans le message de news:456c0ae2$
Bonjour,
Je suis en access 97 (bientôt 10 ans !)et cherche à transférer toutes les tables d'une base vers une autre base à partir d'une base externe par du code VBA. Si des tables existent dans la base destination elles devraient être supprimées...
J'ai un formulaire avec : - un contrôle possédant le chemin de la base origine (CheminBaseOrig) - un contrôle possédant le chemin de la base origine (CheminBaseDest) - un bouton pour activer l'évènement
Quelqu'un aurait-il un module SVP ?
Merci de votre aide,
Patrice
C toujours moi qui continue avec ma question...
J'ai trouvé un exemple sur le site de Jessy Sempere (
http://access.jessy.free.fr/ Rubrique : Cmd Externes Exporter un objet
externe), mais cela ne fonctionne pas :
Public Function ExportObjectExterne(strDbSrc$, strDbDest$, intType%,
strObject$)
'** intType : 0 pour table, 1 pour requête, 2 pour formulaire
'** 3 pour état, 4 pour macro et 5 pour module
Dim acApp As Object
Set acApp = CreateObject("Access.Application")
With acApp
.OpenCurrentDatabase strDbSrc
.DoCmd.TransferDatabase acExport, , strDbDest, _
intType, strObject, strObject
.CloseCurrentDatabase
End With
acApp.Quit: Set acApp = Nothing
End Function
Erreur d'exécution 2507 :
Vous avez utilisé la méthode TransferDatabase, mais vous avez utilisé une
expression dans l'argument 'type base de données' qui ne correspond pas à un
type de base de données correct pour importer, exporter ou attacher.
Merci à ceux ou celles qui veulent bien me faire progresser.
Patrice
"NewsVFE" <BZHpatrice.morel@sncf.fr> a écrit dans le message de
news:456c0ae2$1@news.sncf.fr...
Bonjour,
Je suis en access 97 (bientôt 10 ans !)et cherche à transférer toutes les
tables d'une base vers une autre base à partir d'une base externe par du
code VBA.
Si des tables existent dans la base destination elles devraient être
supprimées...
J'ai un formulaire avec :
- un contrôle possédant le chemin de la base origine (CheminBaseOrig)
- un contrôle possédant le chemin de la base origine (CheminBaseDest)
- un bouton pour activer l'évènement
J'ai trouvé un exemple sur le site de Jessy Sempere ( http://access.jessy.free.fr/ Rubrique : Cmd Externes Exporter un objet externe), mais cela ne fonctionne pas :
Public Function ExportObjectExterne(strDbSrc$, strDbDest$, intType%, strObject$) '** intType : 0 pour table, 1 pour requête, 2 pour formulaire '** 3 pour état, 4 pour macro et 5 pour module
Dim acApp As Object
Set acApp = CreateObject("Access.Application") With acApp .OpenCurrentDatabase strDbSrc .DoCmd.TransferDatabase acExport, , strDbDest, _ intType, strObject, strObject .CloseCurrentDatabase End With
acApp.Quit: Set acApp = Nothing
End Function
Erreur d'exécution 2507 : Vous avez utilisé la méthode TransferDatabase, mais vous avez utilisé une expression dans l'argument 'type base de données' qui ne correspond pas à un type de base de données correct pour importer, exporter ou attacher.
Merci à ceux ou celles qui veulent bien me faire progresser.
Patrice
"NewsVFE" a écrit dans le message de news:456c0ae2$
Bonjour,
Je suis en access 97 (bientôt 10 ans !)et cherche à transférer toutes les tables d'une base vers une autre base à partir d'une base externe par du code VBA. Si des tables existent dans la base destination elles devraient être supprimées...
J'ai un formulaire avec : - un contrôle possédant le chemin de la base origine (CheminBaseOrig) - un contrôle possédant le chemin de la base origine (CheminBaseDest) - un bouton pour activer l'évènement
J'ai trouvé un exemple sur le site de Jessy Sempere ( http://access.jessy.free.fr/ Rubrique : Cmd Externes Exporter un objet externe), mais cela ne fonctionne pas :
Public Function ExportObjectExterne(strDbSrc$, strDbDest$, intType%, strObject$) '** intType : 0 pour table, 1 pour requête, 2 pour formulaire '** 3 pour état, 4 pour macro et 5 pour module
Dim acApp As Object
Set acApp = CreateObject("Access.Application") With acApp .OpenCurrentDatabase strDbSrc .DoCmd.TransferDatabase acExport, , strDbDest, _ intType, strObject, strObject .CloseCurrentDatabase End With
acApp.Quit: Set acApp = Nothing
End Function
Erreur d'exécution 2507 : Vous avez utilisé la méthode TransferDatabase, mais vous avez utilisé une expression dans l'argument 'type base de données' qui ne correspond pas à un type de base de données correct pour importer, exporter ou attacher.
Merci à ceux ou celles qui veulent bien me faire progresser.
Patrice
"NewsVFE" a écrit dans le message de news:456c0ae2$
Bonjour,
Je suis en access 97 (bientôt 10 ans !)et cherche à transférer toutes les tables d'une base vers une autre base à partir d'une base externe par du code VBA. Si des tables existent dans la base destination elles devraient être supprimées...
J'ai un formulaire avec : - un contrôle possédant le chemin de la base origine (CheminBaseOrig) - un contrôle possédant le chemin de la base origine (CheminBaseDest) - un bouton pour activer l'évènement
Quelqu'un aurait-il un module SVP ?
Merci de votre aide,
Patrice
-- A+ Eric http://www.mpfa.info/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
J'ai trouvé un exemple sur le site de Jessy Sempere (
http://access.jessy.free.fr/ Rubrique : Cmd Externes Exporter un objet
externe), mais cela ne fonctionne pas :
Public Function ExportObjectExterne(strDbSrc$, strDbDest$, intType%,
strObject$)
'** intType : 0 pour table, 1 pour requête, 2 pour formulaire
'** 3 pour état, 4 pour macro et 5 pour module
Dim acApp As Object
Set acApp = CreateObject("Access.Application")
With acApp
.OpenCurrentDatabase strDbSrc
.DoCmd.TransferDatabase acExport, , strDbDest, _
intType, strObject, strObject
.CloseCurrentDatabase
End With
acApp.Quit: Set acApp = Nothing
End Function
Erreur d'exécution 2507 :
Vous avez utilisé la méthode TransferDatabase, mais vous avez utilisé une
expression dans l'argument 'type base de données' qui ne correspond pas à un
type de base de données correct pour importer, exporter ou attacher.
Merci à ceux ou celles qui veulent bien me faire progresser.
Patrice
"NewsVFE" <BZHpatrice.morel@sncf.fr> a écrit dans le message de
news:456c0ae2$1@news.sncf.fr...
Bonjour,
Je suis en access 97 (bientôt 10 ans !)et cherche à transférer toutes les
tables d'une base vers une autre base à partir d'une base externe par du
code VBA.
Si des tables existent dans la base destination elles devraient être
supprimées...
J'ai un formulaire avec :
- un contrôle possédant le chemin de la base origine (CheminBaseOrig)
- un contrôle possédant le chemin de la base origine (CheminBaseDest)
- un bouton pour activer l'évènement
Quelqu'un aurait-il un module SVP ?
Merci de votre aide,
Patrice
--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
J'ai trouvé un exemple sur le site de Jessy Sempere ( http://access.jessy.free.fr/ Rubrique : Cmd Externes Exporter un objet externe), mais cela ne fonctionne pas :
Public Function ExportObjectExterne(strDbSrc$, strDbDest$, intType%, strObject$) '** intType : 0 pour table, 1 pour requête, 2 pour formulaire '** 3 pour état, 4 pour macro et 5 pour module
Dim acApp As Object
Set acApp = CreateObject("Access.Application") With acApp .OpenCurrentDatabase strDbSrc .DoCmd.TransferDatabase acExport, , strDbDest, _ intType, strObject, strObject .CloseCurrentDatabase End With
acApp.Quit: Set acApp = Nothing
End Function
Erreur d'exécution 2507 : Vous avez utilisé la méthode TransferDatabase, mais vous avez utilisé une expression dans l'argument 'type base de données' qui ne correspond pas à un type de base de données correct pour importer, exporter ou attacher.
Merci à ceux ou celles qui veulent bien me faire progresser.
Patrice
"NewsVFE" a écrit dans le message de news:456c0ae2$
Bonjour,
Je suis en access 97 (bientôt 10 ans !)et cherche à transférer toutes les tables d'une base vers une autre base à partir d'une base externe par du code VBA. Si des tables existent dans la base destination elles devraient être supprimées...
J'ai un formulaire avec : - un contrôle possédant le chemin de la base origine (CheminBaseOrig) - un contrôle possédant le chemin de la base origine (CheminBaseDest) - un bouton pour activer l'évènement
Quelqu'un aurait-il un module SVP ?
Merci de votre aide,
Patrice
-- A+ Eric http://www.mpfa.info/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
