1 2 3 4 5 6 7 8 9 10 11
| MsgBox "ATTENTION LA SAUVEGARDE DES DONNEES VA DEMARRER", , "Avertissement"
InfoBackup.Visible = True
Progression.Visible = True
Progression.Min = 0
Progression.Max = 105 105 tables à exporter
DoCmd.TransferDatabase acExport, "Microsoft Access", "H:\GestionBasesDonnees\MaBase.mdb", acTable, "table1", " table1"
Progression = 1
DoCmd.TransferDatabase acExport, "Microsoft Access", "H:\GestionBasesDonnees\MaBase.mdb", acTable, " table2", " table2"
Progression = 2
DoCmd.TransferDatabase acExport, "Microsoft Access", "H:\GestionBasesDonnees\MaBase.mdb", acTable, " table3", " table3"
Progression = 3 |
Partager