Discussion :

[fremarnat]

Bonsoir

Dans un formulaire, j'ai une zone de liste dont le contenu est le résultat d'une requête qui me retourne un item unique.
Si je clique dans la zone de liste sur cet item l'enregistrement dans la table peut avoir lieu.
Existe-t-il un moyen pour se passer de cette action manuelle par un peu de code ?

Merci

[Tofalu]

Après le code VBA qui remplit la liste ou à défaut sur l'évènement form_current, il est possible de définir la valeur de la zone de liste si celle-ci ne contient qu'un élément :

Code :

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

1
2
3
With Liste0
    If .ListCount = 1 Then .Value = .ItemData(0)
End With

[fremarnat]

Bonjour Tofalu

effectivement, le fait d'affecter la valeur retournée par la liste à la variable me donne la possibilité de réaliser l'enregistrement que je réalise "à la main".
Pour être plus explicite voila mon code :

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Ref_Prod_AfterUpdate()
Dim SQL_MO As String
SQL_MO = "SELECT T_Produits.Maitre_Ouvrage FROM T_Parfums INNER JOIN T_Formules ON T_Produits.Id_Produit = T_Formules.Ref_Parf;"
Me.Maitre_Ouv.RowSource = SQL_MO
'Pour visualiser le résulat de la requête dans la zone de liste
Me.Refresh
'Pour mettre le formulaire dans un mode (crayon) qui permet l'enregistrement.
Maitre_Ouv.Value = Maitre_Ouv.ItemData(0) '(Merci Tofalu)
End Sub

Mais à l'issue, je suis toujours obligé d'appuyer sur un bouton "enregistrer" pour mettre ce résultat dans ma table.

Comment se passer d'appuyer sur le bouton "enregistrer" ?

[Tofalu]

Si l'utilisateur n'a pas la possibilité de modifier ou de revenir en arrière, on peut se demander l'intéret de passer par un formulaire.

Et votre code ne tient même pas compte du cas où la zone de liste contient plus d'un élément. J'ai du mal à comprendre où vous voulez en venir