OVH Cloud OVH Cloud

exécuter la requête action d'une autre base

3 réponses
Avatar
jpg
Bonjour,

J'aimerais =E9x=E9cuter la Requ=EAte1 de ma Base1 mais =E0 partir=20
de ma Base2. Est-ce possible ?

Merci beaucoup pour votre aide.

JPG

3 réponses

Avatar
Raymond [mvp]
Bonjour.

c'est possible par automation.

Dim acApp As Access.Application
Set acApp = New Access.Application
With acApp
.Visible = False
.OpenCurrentDatabase ("c:.....Base1.mdb")
.CurrentDb.Execute "Requête1"
.CloseCurrentDatabase
.Quit
End With
Set acApp = Nothing

j'espère ne rien avoir oublié.
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"jpg" a écrit dans le message de
news:bf5701c4383a$75c15680$
Bonjour,

J'aimerais éxécuter la Requête1 de ma Base1 mais à partir
de ma Base2. Est-ce possible ?

Merci beaucoup pour votre aide.

JPG
Avatar
jpg
Bonjour Raymond,

merci pour tes lumières (une fois de plus)

en fait je n'ai pas eu besoin de toute cette syntaxe.
J'ai fait :

Dim mabd As Database
Set mabd= OpenDatabase("u:accessteliosbase1.mdb")
bdtelios.Execute ("requete1")

est-ce grave ?

Sinon, dans mon précédent message, j'avais commplètement
oublié de demander s'il était possible d'accéder à une
requête d'une utre base mais par une macro.

Du style OuvrirRequête en action et dans nom requête un
truc du style :

base1.requete1

@ + et merci


-----Message d'origine-----
Bonjour.

c'est possible par automation.

Dim acApp As Access.Application
Set acApp = New Access.Application
With acApp
.Visible = False
.OpenCurrentDatabase ("c:.....Base1.mdb")
.CurrentDb.Execute "Requête1"
.CloseCurrentDatabase
.Quit
End With
Set acApp = Nothing

j'espère ne rien avoir oublié.
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"jpg" a écrit dans
le message de

news:bf5701c4383a$75c15680$
Bonjour,

J'aimerais éxécuter la Requête1 de ma Base1 mais à partir
de ma Base2. Est-ce possible ?

Merci beaucoup pour votre aide.

JPG


.



Avatar
Raymond [mvp]
c'est grave mais ça se soigne.
il serait préférable de passer par:

Dim mabd As dao.Database
Set mabd = OpenDatabase("u:accessteliosbase1.mdb")
mabd.Execute ("requete1")
Set mabd = Nothing

pour travailler avec une autre base il est conseillé d'utiliser le vba car
si tu as choisi ce parcours ce n'est pas pour simplement lancer une requête
mais pour lancer un ensemble d'opérations et les macros ont leurs limites.
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"jpg" a écrit dans le message de
news:c5f201c438be$a0b75e50$
Bonjour Raymond,

merci pour tes lumières (une fois de plus)

en fait je n'ai pas eu besoin de toute cette syntaxe.
J'ai fait :

Dim mabd As Database
Set mabd= OpenDatabase("u:accessteliosbase1.mdb")
bdtelios.Execute ("requete1")

est-ce grave ?

Sinon, dans mon précédent message, j'avais commplètement
oublié de demander s'il était possible d'accéder à une
requête d'une utre base mais par une macro.

Du style OuvrirRequête en action et dans nom requête un
truc du style :

base1.requete1

@ + et merci