Discussion :

[Pwouaro]

Bonjour à tous,

Essayons d'être clair...

Je posséde une base Access 2003, avec une table et un formulaire;

Dans ce formulaire, il y a une zone de liste déroulante affichant une liste de valeur (clé primaire de ma table).

J'aimerais qu'en sélectionnant une valeur de ma liste, le formulaire se place directement sur l'enregistrement correspondant à la sélection et que tous les champs texte du formulaire se remplisse.

Si vous avez des suggestions, je suis tout ouïe.
Merci d'avance.

EDIT : Ce que je recherche correspond au formulaire "Commandes" de la base de données "les comptoirs"

[Siguillaume]

Il y a plusieurs façons de faire ce que tu demandes.

1. Je te propose d'abord celle-ci, qui est est avec l'assistant:
->activer l'assistant. C'est le bâton magique.
->cliquer sur le contrôle liste déroulante
->le poser à l'endroit approprié
->indiquer table comme source de données et choisir la table en question, puis le champ requis
->demander à stocker l'enregistrement comme valeur à utiliser pour recherche.
->le tour est joué.

2. Le deuxième est un code VBA, que tu mets sur la propriété After_MAj, de ta liste. Adapte ceci à ton cas:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Private Sub nomControle_AfterUpdate()
    ' Rechercher l'enregistrement correspondant au contrôle.
    Dim rs As Object
 
 
    Set rs = Me.Recordset.Clone
    rs.FindFirst "[champ_de_la_table] = " & Me![cmbEquipeID] 'A adapter si le                     champ n'est de type numérique.
    If Not rs.EOF Then Me.Bookmark = rs.Bookmark
 
End Sub

Bye!

[alainGL]

Bonjour

J'utilise ce code (après mise à jour) pour afficher tous les enregistrement à partir d'un choix d'une liste modifiable :

NomDuChampDuFormulaire (qui est la clé primaire).SetFocus

DoCmd.FindRecord Nom de la Liste Modifiable (dont la colonne liée représente la clé primaire)

Bon courage

[le_gueux90]

Il y a plusieurs façons de faire ce que tu demandes.

1. Je te propose d'abord celle-ci, qui est est avec l'assistant:
->activer l'assistant. C'est le bâton magique.
->cliquer sur le contrôle liste déroulante
->le poser à l'endroit approprié
->indiquer table comme source de données et choisir la table en question, puis le champ requis
->demander à stocker l'enregistrement comme valeur à utiliser pour recherche.
->le tour est joué.

2. Le deuxième est un code VBA, que tu mets sur la propriété After_MAj, de ta liste. Adapte ceci à ton cas:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Private Sub nomControle_AfterUpdate()
    ' Rechercher l'enregistrement correspondant au contrôle.
    Dim rs As Object
 
 
    Set rs = Me.Recordset.Clone
    rs.FindFirst "[champ_de_la_table] = " & Me![cmbEquipeID] 'A adapter si le                     champ n'est de type numérique.
    If Not rs.EOF Then Me.Bookmark = rs.Bookmark
 
End Sub

Bye!

Bonjour,
J'ai créé un post pour un problème identique (http://www.developpez.net/forums/sho...d.php?t=479485) et j'ai testé votre solution.
Comme je travaille sous Access 97, je n'ai pas l'assistant et vu que je ne suis pas adepte du VB, j'ai du mal à comprendre :
- que signifie .Bookmark?
- l'objet rs représente quoi dans le formulaire?

Si Pwouaro accepte que je pose des questions sur son post, je vais y participer activement puisqu'il a le meme besoin que moi sinon je remets l'URL de mon problème.


http://www.developpez.net/forums/sho...d.php?t=479485

Cordialement

[Pwouaro]

Tu es le bienvenu Le_gneux.

@Danjos

Je n'ai pas obtenu de résultat avec l'assistant, donc j'ai essayé d'adapter ton code :

Code :

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

1
2
3
4
5
6
 
Dim rs As Object
 
    Set rs = Me.Recordset.Clone
    rs.FindFirst "[id] = " & Me![cmb_id] 'A adapter si le champ n'est de type numérique.
    If Not rs.EOF Then Me.Bookmark = rs.Bookmark

Lorsque je selectionne une valeur dans ma zone de liste j'obtient une erreur 3022: Modifications non-effectuées: risque de doublons dans champ index...

et la ligne

Code :

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

Me.Bookmark = rs.Bookmark

est surligné en jaune. Je précise que ma clé primaire est numérique

[Siguillaume]

Ok. Je vois.
ll faudrait que la source de données de ta liste déroulante soit vide c'est à dire indépendante.

[Pwouaro]

Merci pour ta réponse,

Effectivement depuis que la combo liste est indépendante, ça marche super bien.
Malheuresement, j'aimerais pouvoir continuer à saisir des données via ce formulaire.

Je marque le Post Résolu, puisque le problème a changé!
A plus