Discussion :

[scrouet]

Bonjour.

Je tente d'ouvrir un formulaire B depuis un formulaire A en passant à B une valeur contenue dans A. Il s'agit d'un identifiant permettant de présélectionner dans B une valeur dans une liste déroulante. Pour ce faire j'ai créé dans A un bouton qui lance le formulaire B (macro incorporée OuvrirFormulaire) avec comme condition WHERE :

Code :

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

[Formulaires]![Formulaire_B]![Dir_Id]=[Dir_Id]

Et ça ne fonctionne pas.
Une solution ?

[FewRa]

Salut
Moi je fais l'inverse
dans form_current du formulaire B je mets

Me!Dir_Id = Forms!FormulaireA!Dir_Id

[scrouet]

Sauf que A n'est pas toujours renseigné/utilisé lorsque j'ouvre B.

[FewRa]

alors j'utilise ça

Code :

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

1
2
3
4
5
If CurrentProject.AllForms("Formulaire A").IsLoaded Then
 
Me!Dir_Id = Forms!FormulaireA!Dir_Id
 
End If

donc le code se lance si seulement A est ouvert

[scrouet]

Comme j'aimerais pouvoir appeler B depuis différents formulaires A, cette solution n'est pas très pratique dans mon cas.

[FewRa]

ton champ "Dir_Id" de ton formulaire B est un champ indépendant ou rattaché à une table?
si il est rattaché à une table tu pourrais peut être faire une requête update au moment ou tu clique sur le bouton de A

[scrouet]

Effectivement, pour les 2 formulaires, le champ Dir_Id est une clef étrangère. Dans le formulaire B, la liste déroulante permet de choisir la valeur de Dir_Id à partir de Dir_Nom, qui vient de la table T_Direction.
Je regarde ta suggestion de mise à jour.

[scrouet]

J'ai également essayer avec cette méthode, mais ça ne fonctionne pas mieux. J'ai l'impression que ça vient du fait que ma table contient plusieurs enregistrements pour ma clef étrangère Dir_Id.

[FewRa]

mais à chaque fois que tu ouvre ton formulaire B par A il y a qu'une valeur Dir_Id ou il y en a plusieurs?

juste pour savoir, il y aurai combien de formulaire A qui pourrait ouvrir b?

[scrouet]

Il n'y a qu'une seule valeur Dir_Id dans l'appel au formulaire B. Celui-ci peut-être appelé par 2 ou 3 formulaires différents (pas encore fixé), voire aucun.

[FewRa]

si t'en a que 2 ou 3 tu devrais faire le code que j'ai mis avant.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Private Sub FormulaireB_Current()
If CurrentProject.AllForms("Formulaire A1").IsLoaded Then
Me!Dir_Id = Forms!FormulaireA1!Dir_Id
End If
 
If CurrentProject.AllForms("Formulaire A2").IsLoaded Then
Me!Dir_Id = Forms!FormulaireA2!Dir_Id
End If
 
If CurrentProject.AllForms("Formulaire A3").IsLoaded Then
Me!Dir_Id = Forms!FormulaireA3!Dir_Id
End If
End sub

ça prend pas trop de place

[scrouet]

Je coince avec mon système de listes.
J'ai une liste dans chaque formulaire, avec les mêmes entrées/objets. Je tente de lire l'élément de liste sélectionné dans A pour le sélectionner dans la liste de B à l'ouverture de B en suivant ta méthode. Pour chaque liste, chaque entrée de la liste contient l'identifiant en base en colonne 0 (masquée) et c'est le nom de l'objet qui est affiché (colonne 1).
En déroulant ma macro pas à pas, je récupère bien l'identifiant en base de l'élément sélectionné dans A et je le sélectionne dans B avec

Code :

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

Me.maListe.Selected(index) = true

suivi d'un

Me.Recalc

Eh bien rien. Quand je regarde le formulaire B, il n'y a rien de sélectionné dans la liste.