Discussion :

[neiluj26]

Bonjour,

Je progresse, mais j'imagine que cette question reste simple pour la plupart d'entre vous.
J'ai un formulaire de saisie dans lequel j'ai inséré un sous-formulaire sous forme de feuille de données.

Le premier champ ("Code") de mon sous-formulaire est une combobox avec une liste de deux colonnes qui prend sa source dans une table articles et qui montre le code et la description de chaque article du catalogue.
La deuxième champ s'appelle simplement "Description Article".

J'aimerais que quand mon utilisateur sélectionne une valeur avec la combobox du premier champ, la description de l'article s'affiche dans le deuxième champ.

Ma combobox s'appelle "cboCodeArticle". J'ai bien essayé d'insérer le code suivant:

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 cboCodeArticle_AfterUpdate()
 
Dim cnc As New ADODB.Connection, rst As New ADODB.Recordset, strSQL As String
Set cnc = CurrentProject.Connection
 
strSQL = "SELECT DescFrancais FROM tbl_DescriptionsArticles WHERE tbl_DescriptionsArticles.[CodeArticle] = '" & Me.cboCodeArticle & "';"
rst.Open strSQL, cnc, adOpenForwardOnly, adLockReadOnly
 
Me.txtDescriptionArticle.Value = rst("DescFrancais")
 
rst.Close
Set cnc = Nothing
 
End Sub

Mais ça ne fonctionne pas évidemment. Est-ce que je dois insérer ce code dans mon sous formulaire? (je ne trouve pas mon contrôle dans la barre des déclarations...)

Claude, si tu passes par là, je ne t'ai pas oublié. Mes excuses pour le retard.

[Merryvor]

Pour ce genre de problème, j'utilise une astuce: clic droit sur le contrôle de texte, le remplacer par une liste.

Réduire graphiquement la liste pour qu'elle ressemble à une textBox.

Le fait de remplacer par une liste fait apparaitre la propriété contenu dans laquelle tu peux coller ta requête.
Résultat: du code vba en moins, et graphiquement rien n'a changé.

Ca pourra peut-être t'aider...

[neiluj26]

Bonjour,

Ah oui, je n'y avais pas pensé. Merci.

J'ai donc écrit ceci dans la source de ma combo "Description":

Code sql :

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

1
2
3
SELECT DISTINCT tbl_DescriptionsArticles.DescFrancais
FROM tbl_DescriptionsArticles
WHERE (((tbl_DescriptionsArticles.CodeArticle)=[Forms].[sfrm_BodyChangementDePrix].[cboCodeArticle]));

Mais il ne se passe rien... :s

[Renardo]

Bonjour
Si j'ai bien compris ca devrais donner cela

Code :

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

1
2
3
Private Sub cboCodeArticle_AfterUpdate()
me.Description Article = me.cboCodeArticle.column(1)
en sub

Description article aura peut etre besoin de crochet [] evite les nom de champ qui ne se touche pas

[Merryvor]

et si tu le met dans contenu, et pas dans source.

ah et aussi (y'avais quand même un peu de VBA) un petit Me.description.Requery dans lévènement after update de ta liste déroulante.

[neiluj26]

Bonjour Renardo,

C'est curieux, j'ai bien nommé ma première combo "cboCodeArticle" comme tu peux le voir sur le premier screenshot, mais je ne la trouve pas dans les déclarations de VBA (deuxième screenshot).

J'ai essayé de coller ton code dans mon sous formulaire (c'est bien là qu'il faut que je le mette, non?) en ajoutant une msgbox pour voir si il se passait quelque chose:

Code :

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

1
2
3
4
5
Private Sub cboCodeArticle_AfterUpdate()
Me.txtDescriptionArticle.Value = Me.cboCodeArticle.Column(1)
MsgBox Me.cboCodeArticle.Column(1)
 
End Sub

Mais rien...

[neiluj26]

et si tu le met dans contenu, et pas dans source.

ah et aussi (y'avais quand même un peu de VBA) un petit Me.description.Requery dans lévènement after update de ta liste déroulante.

Pardon, j'ai écrit source, mais je voulais dire contenu.
Par contre, pour le VBA, comme je l'explique plus haut, je n'arrive pas à déclarer mon événement cboCodeArticle_AfterUpdate... et je ne sais pas pourquoi.

[Renardo]

Regarde le nom qui est inscrit dans la proprieté de ta liste
et tu fais en fonction de se nom

[neiluj26]

Raah, j'ai oublié d'attacher les pièces jointes... j'ai bien nommé ma combo cboCodeArticle, mais je ne la vois pas dans mes déclarations...

[Renardo]

Une petite demo

[neiluj26]

Hmm bon là, je sèche...

J'ai renommé mes contrôles, et je les vois désormais dans ma liste de déclarations...
Je récapitule:

- Je suis dans un sous formulaire sfrm_BodyChangement (je ne sais pas si ce point à son importance). Mon sous formulaire est affiché sous forme de feuille de données.
- J'ai deux contrôles. Le premier s'appelle cboArticleCode (c'est une combobox). Le second s'appelle txtArticleDescription (c'est une zone de texte).
- cboArticleCode a deux colonnes: CodeArticle - DescArticle
- J'aimerais que quand mon utilisateur choisit un article dans la cboArticleCode, DescArticle se reporte dans txtArticleDescription.
- Voilà le code que j'ai placé au niveau du sous-formulaire:

Code :

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

1
2
3
Private Sub cboArticleCode_AfterUpdate()
Me.txtArticleDescription = Me.cboArticleCode.Column(1)
End Sub

Mais rien ne se passe.

J'ai essayé la méthode de Merryvor en changeant ma txtArticleDescription en combobox (renommée en cboArticleDescription).
Puis, j'ai mis cette requête en contenu de cboArticleDescription:

Code sql :

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

1
2
3
SELECT DISTINCT tbl_DescriptionsArticles.DescFrancais
FROM tbl_DescriptionsArticles
WHERE (((tbl_DescriptionsArticles.CodeArticle)=[Forms].[sfrm_BodyChangementDePrix].[cboArticleCode]));

Et le code suivant dans mon formulaire:

Code :

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

1
2
3
4
5
 
Option Compare Database
Private Sub cboArticleCode_AfterUpdate()
Me.cboArticleDescription.Requery
End Sub

Et rien ne se passe...

[neiluj26]

Hmm bon, il y a sûrement quelque chose qui m'échappe sur format Feuille de Données, puisque j'ai essayé de renommer mes contrôles cboArticleCode et txtArticleDescription avec le même nom que les champs de ma table "Source Contrôle", et la méthode de Renardo fonctionne désormais.
Mon problème est donc réglé, mais je n'ai pas compris pourquoi