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
Raymond
Bonjour.
Tu peux copier toutes les tables de la base en cours ( où se trouve la fonction) vers une autre base existante par deux fonctions qui ont le même résultat:
Private Sub Commande0_Click() Dim Obj As AccessObject For Each Obj In CurrentData.AllTables If Left(Obj.Name, 4) <> "Msys" Then DoCmd.TransferDatabase acExport, "Microsoft Access", "bd4.mdb", acTable, Obj.Name, Obj.Name, False End If Next Obj MsgBox "Copie terminée" End Sub
ou
Private Sub Commande0_Click() Dim Obj As AccessObject For Each Obj In CurrentData.AllTables If Left(Obj.Name, 4) <> "Msys" Then DoCmd.CopyObject "bd4.mdb", Obj.Name, acTable, Obj.Name End If Next Obj MsgBox "Copie terminée" End Sub
la seconde fonction ( CopyObject) te demandera une confirmation avant d'écraser les tables existantes dans l'autre base. il est possible aussi de sauvegarder dans des fichiers textes par la première fonction ( voir l'aide en ligne pour les options)
-- @+ Raymond Access MVP. http://access.seneque.free.fr/ http://users.skynet.be/mpfa/charte.htm pour une meilleure efficacité de tes interventions sur MPFA.
"rvdb" a écrit dans le message de news:3f59d2d2$0$2790$
bonjour, comment d'un clic sur un bouton, pouvoir sauvegarder toutes les tables d'une base sur un endroit défini ?
Bonjour.
Tu peux copier toutes les tables de la base en cours ( où se trouve la
fonction) vers une autre base existante par deux fonctions qui ont le même
résultat:
Private Sub Commande0_Click()
Dim Obj As AccessObject
For Each Obj In CurrentData.AllTables
If Left(Obj.Name, 4) <> "Msys" Then
DoCmd.TransferDatabase acExport, "Microsoft Access", "bd4.mdb",
acTable, Obj.Name, Obj.Name, False
End If
Next Obj
MsgBox "Copie terminée"
End Sub
ou
Private Sub Commande0_Click()
Dim Obj As AccessObject
For Each Obj In CurrentData.AllTables
If Left(Obj.Name, 4) <> "Msys" Then
DoCmd.CopyObject "bd4.mdb", Obj.Name, acTable, Obj.Name
End If
Next Obj
MsgBox "Copie terminée"
End Sub
la seconde fonction ( CopyObject) te demandera une confirmation avant
d'écraser les tables existantes dans l'autre base.
il est possible aussi de sauvegarder dans des fichiers textes par la
première fonction ( voir l'aide en ligne pour les options)
--
@+
Raymond Access MVP.
http://access.seneque.free.fr/
http://users.skynet.be/mpfa/charte.htm pour une meilleure
efficacité de tes interventions sur MPFA.
"rvdb" <Rvdb.roger@free.fr> a écrit dans le message de
news:3f59d2d2$0$2790$626a54ce@news.free.fr...
bonjour, comment d'un clic sur un bouton, pouvoir sauvegarder toutes les
tables d'une base sur un endroit défini ?
Tu peux copier toutes les tables de la base en cours ( où se trouve la fonction) vers une autre base existante par deux fonctions qui ont le même résultat:
Private Sub Commande0_Click() Dim Obj As AccessObject For Each Obj In CurrentData.AllTables If Left(Obj.Name, 4) <> "Msys" Then DoCmd.TransferDatabase acExport, "Microsoft Access", "bd4.mdb", acTable, Obj.Name, Obj.Name, False End If Next Obj MsgBox "Copie terminée" End Sub
ou
Private Sub Commande0_Click() Dim Obj As AccessObject For Each Obj In CurrentData.AllTables If Left(Obj.Name, 4) <> "Msys" Then DoCmd.CopyObject "bd4.mdb", Obj.Name, acTable, Obj.Name End If Next Obj MsgBox "Copie terminée" End Sub
la seconde fonction ( CopyObject) te demandera une confirmation avant d'écraser les tables existantes dans l'autre base. il est possible aussi de sauvegarder dans des fichiers textes par la première fonction ( voir l'aide en ligne pour les options)
-- @+ Raymond Access MVP. http://access.seneque.free.fr/ http://users.skynet.be/mpfa/charte.htm pour une meilleure efficacité de tes interventions sur MPFA.
"rvdb" a écrit dans le message de news:3f59d2d2$0$2790$
bonjour, comment d'un clic sur un bouton, pouvoir sauvegarder toutes les tables d'une base sur un endroit défini ?
rvdb
Merci, mais là c'est pour 2 bases se trouvant sur le même pc, mais moi ce n'est pas le cas, c'est 2 PC <>.
"Raymond" a écrit dans le message de news:
Bonjour.
Tu peux copier toutes les tables de la base en cours ( où se trouve la fonction) vers une autre base existante par deux fonctions qui ont le même résultat:
Private Sub Commande0_Click() Dim Obj As AccessObject For Each Obj In CurrentData.AllTables If Left(Obj.Name, 4) <> "Msys" Then DoCmd.TransferDatabase acExport, "Microsoft Access", "bd4.mdb",
acTable, Obj.Name, Obj.Name, False End If Next Obj MsgBox "Copie terminée" End Sub
ou
Private Sub Commande0_Click() Dim Obj As AccessObject For Each Obj In CurrentData.AllTables If Left(Obj.Name, 4) <> "Msys" Then DoCmd.CopyObject "bd4.mdb", Obj.Name, acTable, Obj.Name End If Next Obj MsgBox "Copie terminée" End Sub
la seconde fonction ( CopyObject) te demandera une confirmation avant d'écraser les tables existantes dans l'autre base. il est possible aussi de sauvegarder dans des fichiers textes par la première fonction ( voir l'aide en ligne pour les options)
-- @+ Raymond Access MVP. http://access.seneque.free.fr/ http://users.skynet.be/mpfa/charte.htm pour une meilleure efficacité de tes interventions sur MPFA.
"rvdb" a écrit dans le message de news:3f59d2d2$0$2790$
bonjour, comment d'un clic sur un bouton, pouvoir sauvegarder toutes les tables d'une base sur un endroit défini ?
Merci, mais là c'est pour 2 bases se trouvant sur le même pc, mais moi ce
n'est pas le cas, c'est 2 PC <>.
"Raymond" <Raymond.seneque@free.fr> a écrit dans le message de news:
uvMpx2HdDHA.2368@TK2MSFTNGP09.phx.gbl...
Bonjour.
Tu peux copier toutes les tables de la base en cours ( où se trouve la
fonction) vers une autre base existante par deux fonctions qui ont le même
résultat:
Private Sub Commande0_Click()
Dim Obj As AccessObject
For Each Obj In CurrentData.AllTables
If Left(Obj.Name, 4) <> "Msys" Then
DoCmd.TransferDatabase acExport, "Microsoft Access",
"bd4.mdb",
acTable, Obj.Name, Obj.Name, False
End If
Next Obj
MsgBox "Copie terminée"
End Sub
ou
Private Sub Commande0_Click()
Dim Obj As AccessObject
For Each Obj In CurrentData.AllTables
If Left(Obj.Name, 4) <> "Msys" Then
DoCmd.CopyObject "bd4.mdb", Obj.Name, acTable, Obj.Name
End If
Next Obj
MsgBox "Copie terminée"
End Sub
la seconde fonction ( CopyObject) te demandera une confirmation avant
d'écraser les tables existantes dans l'autre base.
il est possible aussi de sauvegarder dans des fichiers textes par la
première fonction ( voir l'aide en ligne pour les options)
--
@+
Raymond Access MVP.
http://access.seneque.free.fr/
http://users.skynet.be/mpfa/charte.htm pour une meilleure
efficacité de tes interventions sur MPFA.
"rvdb" <Rvdb.roger@free.fr> a écrit dans le message de
news:3f59d2d2$0$2790$626a54ce@news.free.fr...
bonjour, comment d'un clic sur un bouton, pouvoir sauvegarder toutes les
tables d'une base sur un endroit défini ?
Merci, mais là c'est pour 2 bases se trouvant sur le même pc, mais moi ce n'est pas le cas, c'est 2 PC <>.
"Raymond" a écrit dans le message de news:
Bonjour.
Tu peux copier toutes les tables de la base en cours ( où se trouve la fonction) vers une autre base existante par deux fonctions qui ont le même résultat:
Private Sub Commande0_Click() Dim Obj As AccessObject For Each Obj In CurrentData.AllTables If Left(Obj.Name, 4) <> "Msys" Then DoCmd.TransferDatabase acExport, "Microsoft Access", "bd4.mdb",
acTable, Obj.Name, Obj.Name, False End If Next Obj MsgBox "Copie terminée" End Sub
ou
Private Sub Commande0_Click() Dim Obj As AccessObject For Each Obj In CurrentData.AllTables If Left(Obj.Name, 4) <> "Msys" Then DoCmd.CopyObject "bd4.mdb", Obj.Name, acTable, Obj.Name End If Next Obj MsgBox "Copie terminée" End Sub
la seconde fonction ( CopyObject) te demandera une confirmation avant d'écraser les tables existantes dans l'autre base. il est possible aussi de sauvegarder dans des fichiers textes par la première fonction ( voir l'aide en ligne pour les options)
-- @+ Raymond Access MVP. http://access.seneque.free.fr/ http://users.skynet.be/mpfa/charte.htm pour une meilleure efficacité de tes interventions sur MPFA.
"rvdb" a écrit dans le message de news:3f59d2d2$0$2790$
bonjour, comment d'un clic sur un bouton, pouvoir sauvegarder toutes les tables d'une base sur un endroit défini ?
Raymond
2 pc , mais à partir d'une base sur un pc. il te suffit de changer le chemin de "bd4.mdb" dans mon exemple en le remplaçant par serveurc:...bd4.mdb ou tout autre chemin de ton réseau.
-- @+ Raymond Access MVP. http://access.seneque.free.fr/ http://users.skynet.be/mpfa/charte.htm pour une meilleure efficacité de tes interventions sur MPFA.
"rvdb" a écrit dans le message de news:3f59fbde$0$27602$
Merci, mais là c'est pour 2 bases se trouvant sur le même pc, mais moi ce n'est pas le cas, c'est 2 PC <>.
2 pc , mais à partir d'une base sur un pc. il te suffit de changer le chemin
de "bd4.mdb" dans mon exemple en le remplaçant par \serveurc:...bd4.mdb
ou tout autre chemin de ton réseau.
--
@+
Raymond Access MVP.
http://access.seneque.free.fr/
http://users.skynet.be/mpfa/charte.htm pour une meilleure
efficacité de tes interventions sur MPFA.
"rvdb" <Rvdb.roger@free.fr> a écrit dans le message de
news:3f59fbde$0$27602$626a54ce@news.free.fr...
Merci, mais là c'est pour 2 bases se trouvant sur le même pc, mais moi ce
n'est pas le cas, c'est 2 PC <>.
2 pc , mais à partir d'une base sur un pc. il te suffit de changer le chemin de "bd4.mdb" dans mon exemple en le remplaçant par serveurc:...bd4.mdb ou tout autre chemin de ton réseau.
-- @+ Raymond Access MVP. http://access.seneque.free.fr/ http://users.skynet.be/mpfa/charte.htm pour une meilleure efficacité de tes interventions sur MPFA.
"rvdb" a écrit dans le message de news:3f59fbde$0$27602$
Merci, mais là c'est pour 2 bases se trouvant sur le même pc, mais moi ce n'est pas le cas, c'est 2 PC <>.
rvdb
Mais non ils ne sont pas non plus en réseau ! c'est pour trimbaler ma base et pouvoir la mettre sur le 2 ème pc qui ai lui à mon boulot.
"Raymond" a écrit dans le message de news:
2 pc , mais à partir d'une base sur un pc. il te suffit de changer le chemin
de "bd4.mdb" dans mon exemple en le remplaçant par serveurc:...bd4.mdb
ou tout autre chemin de ton réseau.
-- @+ Raymond Access MVP. http://access.seneque.free.fr/ http://users.skynet.be/mpfa/charte.htm pour une meilleure efficacité de tes interventions sur MPFA.
"rvdb" a écrit dans le message de news:3f59fbde$0$27602$
Merci, mais là c'est pour 2 bases se trouvant sur le même pc, mais moi ce
n'est pas le cas, c'est 2 PC <>.
Mais non ils ne sont pas non plus en réseau ! c'est pour trimbaler ma base
et pouvoir la mettre sur le 2 ème pc qui ai lui à mon boulot.
"Raymond" <Raymond.seneque@free.fr> a écrit dans le message de news:
eMitYvIdDHA.3088@TK2MSFTNGP09.phx.gbl...
2 pc , mais à partir d'une base sur un pc. il te suffit de changer le
chemin
de "bd4.mdb" dans mon exemple en le remplaçant par
\serveurc:...bd4.mdb
ou tout autre chemin de ton réseau.
--
@+
Raymond Access MVP.
http://access.seneque.free.fr/
http://users.skynet.be/mpfa/charte.htm pour une meilleure
efficacité de tes interventions sur MPFA.
"rvdb" <Rvdb.roger@free.fr> a écrit dans le message de
news:3f59fbde$0$27602$626a54ce@news.free.fr...
Merci, mais là c'est pour 2 bases se trouvant sur le même pc, mais moi
ce
Mais non ils ne sont pas non plus en réseau ! c'est pour trimbaler ma base et pouvoir la mettre sur le 2 ème pc qui ai lui à mon boulot.
"Raymond" a écrit dans le message de news:
2 pc , mais à partir d'une base sur un pc. il te suffit de changer le chemin
de "bd4.mdb" dans mon exemple en le remplaçant par serveurc:...bd4.mdb
ou tout autre chemin de ton réseau.
-- @+ Raymond Access MVP. http://access.seneque.free.fr/ http://users.skynet.be/mpfa/charte.htm pour une meilleure efficacité de tes interventions sur MPFA.
"rvdb" a écrit dans le message de news:3f59fbde$0$27602$
Merci, mais là c'est pour 2 bases se trouvant sur le même pc, mais moi ce
n'est pas le cas, c'est 2 PC <>.
Raymond
Si c'est pour trimbaler ta base prends une des méthodes de mon premier post et copie ta base avec les tables sur un cd ou envoie-là par mail. tu peux aussi partager ta base en dorsale et frontale et une simple copie par explorateur de la dorsale suffira.
-- @+ Raymond Access MVP. http://access.seneque.free.fr/ http://users.skynet.be/mpfa/charte.htm pour une meilleure efficacité de tes interventions sur MPFA.
"rvdb" a écrit dans le message de news:3f5a0a7d$0$20165$
Mais non ils ne sont pas non plus en réseau ! c'est pour trimbaler ma base et pouvoir la mettre sur le 2 ème pc qui ai lui à mon boulot.
Si c'est pour trimbaler ta base prends une des méthodes de mon premier post
et copie ta base avec les tables sur un cd ou envoie-là par mail.
tu peux aussi partager ta base en dorsale et frontale et une simple copie
par explorateur de la dorsale suffira.
--
@+
Raymond Access MVP.
http://access.seneque.free.fr/
http://users.skynet.be/mpfa/charte.htm pour une meilleure
efficacité de tes interventions sur MPFA.
"rvdb" <Rvdb.roger@free.fr> a écrit dans le message de
news:3f5a0a7d$0$20165$626a54ce@news.free.fr...
Mais non ils ne sont pas non plus en réseau ! c'est pour trimbaler ma base
et pouvoir la mettre sur le 2 ème pc qui ai lui à mon boulot.
Si c'est pour trimbaler ta base prends une des méthodes de mon premier post et copie ta base avec les tables sur un cd ou envoie-là par mail. tu peux aussi partager ta base en dorsale et frontale et une simple copie par explorateur de la dorsale suffira.
-- @+ Raymond Access MVP. http://access.seneque.free.fr/ http://users.skynet.be/mpfa/charte.htm pour une meilleure efficacité de tes interventions sur MPFA.
"rvdb" a écrit dans le message de news:3f5a0a7d$0$20165$
Mais non ils ne sont pas non plus en réseau ! c'est pour trimbaler ma base et pouvoir la mettre sur le 2 ème pc qui ai lui à mon boulot.
