Paramétrage macro OuvrirFormulaire

Bonjour à vous et merci d'avance pour votre aide.
Lorsque j'ouvre un formulaire B en utilisant un contrôle (liste déroulante) sur un champ 'nom' d'un formulaire A, le formulaire B s'ouvre en modification (comme je le souhaite) mais ses champs sont vides, alors que je souhaiterais avoir accès aux champs de l'enregistrement sélectionné dans le contrôle, pour éventuellement y apporter des modifications.
Comment dois-je paramétrer la commande OuvrirFormulaire?
Ou quelle autre solution me proposez-vous pour règler mon problème?
Merci...

Comment ouvres-tu ton formulaire ?

Par code ?

Par macro ?

Sur quoi ton formulaire est-il basé, table ou requête ?

FAQ

J'ouvre mon formuliare par macro.
Et il est basé sur une table.

Dans l'éditeur de macro, il est possible d'imposer des paramêtres.

Si tu consultes le lien vers la FAQ que je t'ai donné, on y trouve le moyen de le faire par le code.

malgré l'aide de la FAQ... imossible...
je te joins mon fichier

Bonjour,

Code:

---

DoCmd.OpenForm "F-saisie", , , "[N°] =" & Me.Modifiable21

---

J'ai mis ici le numéro parce que c'est l'élément qui est dans ta liste.

Il est évidemment possible d'utiliser un autre critère.

Plutôt que d'utiliser l'évenement sur clic de ta liste, essaie sur Après MAJ.

Enfin, il faut supprimer le code sur l'événement sur Ouverture de ton formulaire de saisie, sinon, il va systématiquement t'afficher un nouvel enregistrement.

Domi2

La valeur renvoyée par ta liste est un numéro et tu essaies d'ouvrir un nom.

Il faut faire référence à la seconde colonne de ta liste.

Sur l'ouverture de ton formulaire, tu spécifies l'ajout d'un nouvel enregistrement alors que tu en ouvre un.
Voilà le code que tu as sur ouverture du formulaire.

Code:

---

1 2 3 4 5 6

Private Sub Form_Open(Cancel As Integer)   DoCmd.GoToRecord , , acNewRec   End Sub

---

Voila le code d'appel de formulaire.

Code:

---

1 2 3 4

Private Sub Modifiable21_Click() DoCmd.OpenForm "F-saisie", , , "[nom] ='" & Forms![F-accueil]![Modifiable21].Column(1) & "'" End Sub

---

Quand tu n'obtiens pas le résultat voulu, essaie d'utiliser les outils qui sont en place.

Ici par exemple dans ton code tu place un

Code:

---

Debug.Print "[nom] ='" & Forms![F-accueil]![Modifiable21].Column(1) & "'"

---

Ou encore

Code:

---

MsgBox Forms![F-accueil]![Modifiable21].Column(1)

---

OK, ça marche plutôt bien.
MERCI

alors, un petit :resolu: