Discussion :

[jneron]

Bonjour,

J'ai deux bases, l'une A.dbf et l'autre B.dbf

La base A est ma base principale, la base B est une base qui va me permettre de faire des copies de la base A (pour sauvegarder, pour distribuer la base A aux postes...), mettre à jour la base A lorsqu'il y aura des modifs...

Ma base A teste au démarrage si elle doit être mise à jour. Si c'est le cas, elle passe la main à la base B qui se charge de la maj.

Je souhaiterais donc avoir une procédure dans la base A qui :
- ferme A
- ouvre B et donc le formulaire de démarrage
et si possible dans cet ordre pour éviter que la copie de A débute avant la fermeture de A. (B va copier le fichier A.dbf à un autre endroit du serveur et donc A doit être fermée)

Pour l'instant, je suis obligé de quitter A à la main, puis d'ouvrir manuellement B

Merci pour votre aide

Jean

[fgiambelluco]

Bonjour
Tu peux essayer ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
    Dim x
    x = Shell("msaccess.exe ""Chemin\B.mdb""", vbMaximizedFocus)
    DoCmd.Quit

[jneron]

Merci, cela fonctionne.
Par contre, je ne sais pas bien dans quel ordre Access exécute les instructions. Mais le fichier A parait libéré et B peut le copier.

[fgiambelluco]

Re
A priori, il fait d'abord ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 x = Shell("msaccess.exe ""Chemin\B.mdb""", vbMaximizedFocus)

, puis ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DoCmd.Quit

Mais le temps qu'il exécute le Shell il a déjà fermé l'application (il n'attend pas que le Shell se soit exécuter complétement, il lance l'instruction est il continue les instructions suivantes)