Discussion :

[miclaur]

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...

[Heureux-oli]

Comment ouvres-tu ton formulaire ?

Par code ?

Par macro ?

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

FAQ

[miclaur]

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

[Heureux-oli]

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.

[miclaur]

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

[Domi2]

Bonjour,

Code :

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

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

[Heureux-oli]

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 :

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

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 :

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

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 :

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

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

Ou encore

Code :

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

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

[miclaur]

OK, ça marche plutôt bien.
MERCI

[Heureux-oli]

alors, un petit