Discussion :

[Puffcash]

Bonjour à tous,

A partir d'un menu général, j'ouvre différentes bases access en utilisant la fonction créé par "Morsi" dans la FAQ ACCESS.
Une fois ouverte, je voudrais que la base récupère deux valeurs situées dans le menu général (les valeurs : "Nom du projet" et "Nom fournisseur")

La question est donc : Est-il possible de récupérer des valeurs d'une base donnée à une autre ? Et si oui, comment ?

Merci

[marot_r]

Si tu utilise le code tel que décrit dans la FAQ, il y a Docmd.OpenForm le dernier argument de OpenForm est OpenArgs c'est une chaine de caractère.

Donc tu peux faire lors de l'appel

[code]
.DoCmd.OpenForm strForm, intView,,,monNomProjet & "|" & monNomFournisseur
[code]

et dans l'événement OnOpen (Ouvreture) ou OnLoad (chargement) du form appelé

Code :

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

1
2
3
4
5
6
7
 
if not isnull(me.OpenArgs) then
   dim p as variant
   p=split(me.openArgs,"|")
   me.MonNomProjet=p(0)
   me.MonNomFournisseur=p(1)
end if

Accessoirement merci de m'avoir fait découvrir cet article de la FAQ.

A+

[Puffcash]

salut,
Merci pour ta réponse, je commençais à désespérer

J'ai testé ce que tu m'a dit de faire mais j'ai une erreur.
J'ai créé deux .mdb pour faire un test : Test1.mdb et Test2.mdb
Dans ces deux .mdb j'ai créé une table "Perso" avec comme champ :
- N°Id en numéroauto
- Nom en texte
- Prenom en texte
Et j'ai donc créé les formulaire associés : Perso
Ensuite dans un module de test1.mdb, j'ai copié/collé le code de la faq en changeant la ligne :

Code :

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

.DoCmd.OpenForm strForm, intView

Par la ligne :

Code :

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

.DoCmd.OpenForm strForm, intView, , , Nom & "|" & Prenom

Ensuite j'ai affecté le code :

Code :

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

Call fOpenRemoteForm("C:\Test2.mdb", "Perso")

à l'évènement "cliquer sur un bouton"

Ensuite j'ai inséré le code suivant dans le code du formulaire perso de test2.mdb

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Form_Load()
 
If Not IsNull(Me.OpenArgs) Then
   Dim p As Variant
   p = Split(Me.OpenArgs, "|")
   Me.Nom = p(0)
   Me.Prenom = p(1)
End If
 
End Sub

Et quand je clique sur le bouton du formulaire perso de test1.mdb l'erreur suivant s'affiche :
Error#13
imcompatibilité de type

Que dois-je faire ?

Merci

[marot_r]

A l'oeil, comme ça je ne vois pas. Sur quelle instruction as-tu l'erreur ? Ça donnerai une bonne indication (si tu as une instruction 'on error' met la en commentaire, Access va te proposer de passer en débugage et tu pourra avec F8 voir l'intruction qui provoque l'erreur.

Suggestion, vérifie que Non & "|" & Prenom sont bien en position OpenArgs, il manque peut-être une virgule.

L'autre test que tu peux faire c'est de mettre en commentaire les modif et de tester le code.

A+

[Puffcash]

Salut,

T'avais raison, il manquait une virgule.

Mais maintenant il considère que le OpenArgs est nul.
Donc le message suivant m'est retourné : "Le champ Perso.nom ne peut pas être une chaîne vide."

Pourquoi la OpenArgs est -il vide ?

Merci

[Muhad'hib]

Re (oui encore moi),

Si les données que tu cherche sont dans une table, je ne comprends pas pourquoi tu passe par un formulaire. Il y a plus simple !

Précise bien ce dont tu as besoin.

A+

[marot_r]

Salut,

T'avais raison, il manquait une virgule.

Mais maintenant il considère que le OpenArgs est nul.
Donc le message suivant m'est retourné : "Le champ Perso.nom ne peut pas être une chaîne vide."

Pourquoi la OpenArgs est -il vide ?

Merci

Vérifie la valeur des param dans la base appelante. Sont-ils initilisés correctement avant l'appel.

A+