Discussion :

[yonnel]

Bonjour,

J'effectue des operation dans une base de donnees A. Mais a un moment, j'ai besoin d'executer une fonction dans une base de donnees B avant de revenir travailler dans la BDD A.

Ce passage d'une BDD a l'autre est manuel et prend pas mal de temps (vu que je dois le faire plusieur fois).
Mon idee est de lancer la BDD B depuis le code de la A, de lancer la fonction aussi par le code, puis de fermer cette BDD une fois la fonction executee.

Pour ouvrir la BDD B, aucun problemes.
Mais ca se complique pour lancer le code.
J ai essayer d'utiliser la fonction

Code :

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

DoCmd.RunCommand("LeNomDeMaFonction")

mais cela ne marche pas...

Autre probleme: Comment puis je detecter la fin de l'execution de cette fonction pour fermer ma BDD B?

Merci pour vos reponses!!!

[Domi2]

Bonjour,

Et bienvenue sur le forum...

A voir si cela peut répondre à ton besoin, mais une solution très simple serait de référencer ta BDD B dans la BDD A.

Dès ce moment, ta fonction de la BDD B peut-être appelée comme n'importe quelle fonction depuis la BDD A.

Domi2

[yonnel]

Re, et merci pour la reponse rapide. Je suis nouveau mais pas tant que ca! Je frequentais souvant le forum pour trouver reponse a mes question mais vu que cette fois je n ai rien trouve, j'ai passe le cap de l'inscription!

En fait le truc c'est que ma BDD B est plus un outil qu'une vraie base de donnees, avec une interface graphique et tout. Donc si je fais que lancer la fonction ca ne marchera pas directement...
Mais c'est une solution, il faut juste que je supprime toutes les commandes graphique du code.

Sinon, je suis partit sur une autre voie, pas tres carree mais se rapprochant plus de la simulation de l'action par le user:
- Je lance ma BDD B depuis la A
- Lors du lancement, j'ouvre un form qui lance la fonction (grace a la balise onload)
- A la fin de la fonction, j'ai rajoute un DoCmd.Quit

Donc jusque la tout se passe tres bien. Mais mon probleme maintenant est de redonner la main a ma BDD A pour qu'elle continue son boulot!
Apres le lancement de la BDD B, je pensais faire une boucle qui regarde frequemment si elle est toujours ouverte. Des qu'elle voit qu'elle n'est plus ouverte, elle peut passer a la suite. Mais je n'arrive justement pas a detecter la fermeture de la BDD B...

Alors si vous avez une idee!

[yonnel]

Je crois avoir trouve la solution tout seul.

Il suffit de faire une boule while qui detecte si la fenetre est visible (BBD_B.Application.Visible = True)
Des que c'est False, on peut passer a la suite...

[Domi2]

Re,

On peut faire plus que d'exécuter une fonction en utilisant une BDD comme librairie.

Regarde ici, c'est peut-être une piste à suivre.

Domi2

[=JBO=]

Bonjour,

Il est aussi possible d'exécuter une procédure publique (Sub ou Function) d'une application Access "externe" (pilotée par l'Automation) à laquelle on accède grâce à CreateObject ou GetObject.
Il faut utiliser la méthode Run de l'objet Application qui accepte aussi de transmettre des arguments et de retourner la valeur pour un appel de fonction.

Code :

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

1
2
3
4
Dim oApp As Access.Application
 
Set oApp = GetObject("C:\Ici\MonFichierDéjàOuvert.mdb")
oApp.Run "MaProcédure"

Autre probleme: Comment puis je detecter la fin de l'execution de cette fonction pour fermer ma BDD B?

Avec cette technique, il n'y a pas de problème de détection de la fin d'exécution: tout se passe dans le même flux d'exécution.

Ce passage d'une BDD a l'autre est manuel et prend pas mal de temps (vu que je dois le faire plusieur fois).

Pourquoi ne pas laisser cette base ouverte pendant toute la durée du traitement ?
_