OVH Cloud OVH Cloud

Ouverture de Form d'une base différente

22 réponses
Avatar
Ayrton [ASC]
Bonsoir à tous,

J'ai un carnet d'adresse complet fait dans Access et qui contient tous mes
contacts ( persos et pros ).
Utilisant une autre application poir le travail, j'aimerais " appeler " mon
formulaire FrmContacts situé dans ma base carnet d'adresses depuis l'appli
dont je me sers au boulot ; en gros, j'aimerais un bout de code VBA que jze
mettrais sur évènement click() d'un bouton et qui m'ouvrirait le formulaire
Contacts qui est dans une autre base ; mes petites connaissances en vba ne
me permettent pas de faire ça tout seul ;-(

J'aimerais bien un petit coup de main s'il vous plait

Merci ;-)

--
@+
Christophe
http://cerbermail.com/?NiMhJk1y8Y
Date : Le 27/07/2005

10 réponses

1 2 3
Avatar
Ayrton [ ASC ]
Bonjour,

" Jessy Sempere [MVP] "
Ok, donc

Base principale qu'on va appeler "BaseCode"
Base avec les formulaires qu'on va appeler "BaseForm"
Et dans "BaseForm", tu as les formulaires, genre : "FormAOuvrir"

Donc dans "BaseForm", tu créé un module standard et tu y mets
le code que je t'ai donné, ensuite tu sauvegarde ce module
(sous : "modOpenForm") et tu fermes cette base de donnée.


Ok pour ça Jessy ; je faisais l'inverse ;-(
Maintenat tu vas dans la base "BaseCode"
Là tu va dans Visual Basic Editor en passant par le menu :
"Outil" - "Macro" - "Visual Basic Editor"
Voilà, c'est ici que tu vas rajouter la référence sur "BaseForm"
Pour ça, tu vas dans le menu :
"Outils" - "Références"
Là tu clicks sur "Parcourir" enfin de sélectionner le fichier :
"c:...BaseForm.mdb"
Voilà, maintenant tu peux fermer Visual basic Editor.


Fait

tu fais :
fOpenForm "FormAOuvrir"

C'est bon ????


Ben non ;-( Je suis désolé Jessy ; j'ai un message comme quoi le nom du
form n'est pas bon ou mal orthographié et donc il ne le trouve pas ;-(
Pourtant, dans ce test, le form à ouvrir s'appelle Frm1 ; donc difficile de
se tromper sur l'écriture ;-)

Je n'arrive pas à trouver où je pêche ? ?

--
Cordialement
Christophe

Avatar
Jessy Sempere [MVP]
Bon...

Tu as donc fait :
* dans la base externe :
- un formulaire : "Frm1"
- copié dans un module standard le code que je t'ai donné.

* dans la base principale :
- rajout de la référence sur ta base externe
- le code : fOpenForm "Frm1"

Et ça ne marches pas ???
Normalement, ça devrait fonctionner sans problème.
Déjà quand tu es dans le code pour saisir fopenform, si tu fais :
menu "Débogage" - "Compiler", y a-t-il une erreur ?
Si oui, c'est que ta référence n'est pas inscrite sinon,
vérifie vraiment le nom de ton formulaire...

@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"Ayrton [ ASC ]" a écrit dans le message news:
eBJn$
Bonjour,

" Jessy Sempere [MVP] "
Ok, donc

Base principale qu'on va appeler "BaseCode"
Base avec les formulaires qu'on va appeler "BaseForm"
Et dans "BaseForm", tu as les formulaires, genre : "FormAOuvrir"

Donc dans "BaseForm", tu créé un module standard et tu y mets
le code que je t'ai donné, ensuite tu sauvegarde ce module
(sous : "modOpenForm") et tu fermes cette base de donnée.


Ok pour ça Jessy ; je faisais l'inverse ;-(
Maintenat tu vas dans la base "BaseCode"
Là tu va dans Visual Basic Editor en passant par le menu :
"Outil" - "Macro" - "Visual Basic Editor"
Voilà, c'est ici que tu vas rajouter la référence sur "BaseForm"
Pour ça, tu vas dans le menu :
"Outils" - "Références"
Là tu clicks sur "Parcourir" enfin de sélectionner le fichier :
"c:...BaseForm.mdb"
Voilà, maintenant tu peux fermer Visual basic Editor.


Fait

tu fais :
fOpenForm "FormAOuvrir"

C'est bon ????


Ben non ;-( Je suis désolé Jessy ; j'ai un message comme quoi le nom du
form n'est pas bon ou mal orthographié et donc il ne le trouve pas ;-(
Pourtant, dans ce test, le form à ouvrir s'appelle Frm1 ; donc difficile
de

se tromper sur l'écriture ;-)

Je n'arrive pas à trouver où je pêche ? ?

--
Cordialement
Christophe





Avatar
Ayrton [ ASC ]
Bonjour,

" Jessy Sempere [MVP] "
Bon...

Tu as donc fait :
* dans la base externe :
- un formulaire : "Frm1"
- copié dans un module standard le code que je t'ai donné.
Oui

* dans la base principale :
- rajout de la référence sur ta base externe
- le code : fOpenForm "Frm1"
Oui


Et ça ne marches pas ???


Ben non ?

Normalement, ça devrait fonctionner sans problème.
Déjà quand tu es dans le code pour saisir fopenform, si tu fais :
menu "Débogage" - "Compiler", y a-t-il une erreur ?


Non; je compile sans problèmes

Si oui, c'est que ta référence n'est pas inscrite sinon,
vérifie vraiment le nom de ton formulaire...


ok Jessy ; en tout cas merci pour l'aide ; je vais continuer à chercher à
tête reposée ;-)
Juste pour confirmation :
1) DB1 = l'appli qui contient Frm1
2)Test = l'appli où je mets le bouton pour ouvrir Frm1

Dans DB1, je mets ton code dans un module nommé ModOpenForm
Dans Test, je rajoute la référence DB1
Ensuite, toujours dans Test, je mets sur le bouton : fOpenForm, "Frm1"

Je click et là le fameux message me dit Nom de form mal orthographié ou fait
référence à un form inexistant.
la ligne jaune dans la fenêtre VBE est:
DoCmd.OpenForm FormName, View, FilterName, WhereCondition, _
DataMode, WindowMode, OpenArgs

Peux tu juste me confirmer que j'ai bien fait ce qu'il fallait ?
Si oui, je continuerai à chercher dans le journée

Merci encore Jessy

--
Cordialement
Christophe

Avatar
Jessy Sempere [MVP]
Re,

Peux tu juste me confirmer que j'ai bien fait ce qu'il fallait ?
Si oui, je continuerai à chercher dans le journée


Ben oui, tu as fait exactement ce qu'il fallait
Par contre...
Il ne faut surtout pas que dans ta base test, tu es
le code fOpenForm()
Cette fonction ne doit être que dans la base DB1, sinon
ça ne peut pas marcher, dans le doute essais en mettant dans test,
le code :

DB1.fOpenForm "Frm1"

Alors ?

--
@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------

Avatar
Ayrton [ ASC ]
Bonjour,

" Jessy Sempere [MVP] "
Re,

Ben oui, tu as fait exactement ce qu'il fallait
Par contre...
Il ne faut surtout pas que dans ta base test, tu es
le code fOpenForm()
Cette fonction ne doit être que dans la base DB1, sinon
ça ne peut pas marcher,


Eh ben voilà ! ! Tu as trouvé ! ! ;-) Et moi c'est la seule chose que je
n'avais pas vérifié !

Alors ?


Alors c'est tout bon ! ! Ca marche ;-)
Merci 1000 fois Jessy

Bien à toi

--
Cordialement
Christophe

Avatar
Jessy Sempere [MVP]
Et ben dis donc...
Ce fut périlleux mais bon, le tout c'est d'y arriver... ;-)))

--
@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"Ayrton [ ASC ]" a écrit dans le message news:

Bonjour,

" Jessy Sempere [MVP] "
Re,

Ben oui, tu as fait exactement ce qu'il fallait
Par contre...
Il ne faut surtout pas que dans ta base test, tu es
le code fOpenForm()
Cette fonction ne doit être que dans la base DB1, sinon
ça ne peut pas marcher,


Eh ben voilà ! ! Tu as trouvé ! ! ;-) Et moi c'est la seule chose que je
n'avais pas vérifié !

Alors ?


Alors c'est tout bon ! ! Ca marche ;-)
Merci 1000 fois Jessy

Bien à toi

--
Cordialement
Christophe





Avatar
Ayrton [ ASC ]
Bonjour,

" Jessy Sempere [MVP] "
Et ben dis donc...
Ce fut périlleux mais bon, le tout c'est d'y arriver... ;-)))


C'est sûr ! ! Et c'est grâce à toi ;-)
Je viens de faire quelques enregistrements et ça fonctionne au poil !

Merci encore Jessy

--
Cordialement
Christophe

Avatar
3stone
Salut Jessy,

"Jessy Sempere [MVP]"
| Je ne suis pas sûr que la finalité que tu cherches est celle proposée
| par 3stone.


Ben... j'avais oublié ton bout de code (que j'ai pourtant déjà vu passer ;-(
et ensuite, il faut que tu intervienne sur "l'autre" base... ce qui n'est pas
le cas avec la version que j'indique.


PS:
Cela fait une plombe que tu as l'adsl "at home"...
et j'espérais te voir bouster ton site !

Private joke:
attention, on approche de la fin d'année !!!

:o))


--
A+
Pierre (3stone) Access MVP
Perso: http://users.skynet.be/accesshome/
Conseils MPFA: http://users.skynet.be/mpfa/
Email : http://www.cerbermail.com/?Xfg61Z3IQw
Avatar
Jessy Sempere [MVP]
Salut Pierre
PS:
Cela fait une plombe que tu as l'adsl "at home"...
et j'espérais te voir bouster ton site !


Et moi donc...
Le problème, c'est qu'en plus de l'ADSL,
j'ai aussi une femme... ;-))) et une fille...

Private joke:
attention, on approche de la fin d'année !!!
:o))


Et oui, on verra bien... ;-))
c'est pour ça, j'essais de trouvrer un peu de temps mais c'est pas toujours
évident... (que ce soit au boulot ou chez moi)

@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------

Avatar
3stone
Hé Jessy,

"Jessy Sempere [MVP]"
| Le problème, c'est qu'en plus de l'ADSL,
| j'ai aussi une femme... ;-))) et une fille...


une fille, je savais...

mais quoi, qu'entends-je, qu'ouïe-je, une femme... AUSSI ??????


MDR !!!


--
A+
Pierre (3stone) Access MVP
Perso: http://users.skynet.be/accesshome/
Conseils MPFA: http://users.skynet.be/mpfa/
Email : http://www.cerbermail.com/?Xfg61Z3IQw
1 2 3