OVH Cloud OVH Cloud

2 combo de recherches sur le même form

6 réponses
Avatar
Jean-Marc
Salut à tous,

Je ne trouve pas mon bonheur. Est-ce parce que c'est trop simple ou parce
que je cherche mal, je ne sais pas.
Voici ma question :
Dans une bdd pour gérer les achats de ma société, j'ai un form avec tous les
produits. J'ai un combo sur le nom du produit qui me sert à rechercher un
produit et à ajouter un nouveau produit si celui entré n'est pas dans la
liste. Jusque là rien que du classique.
Je voudrais ajouter un autre combo, du même type, mais sur le champs du
NrRéfProduit.
Rien de compliqué, me semblait-il.
pourtant si je fais une recherche sur un des 2 combo, le produit sélectionné
s'affiche correctement, mais je n'arrive pas à mettre l'autre combo à jour.
Par exemple je sélectionne un produit par son NrRéf. Le bon produit
apparaît, mais le combo du nom reste figé sur l'ancien produit. Cela ne
concorde donc plus.
La solution doit être toute simple, mais je tourne en rond depuis hier et je
ne trouve pas.
J'ai ressayé me.recalc, me.requery, ListeNomProduit.requery dans le code de
MAJ de ListeNrRéfProduit, etc ... mais rien n'y fait.

Merci de vos z'avis z'avisés,

Jean-Marc

6 réponses

Avatar
Eric
Bonjour Jean-Marc,

il faut que tu actualises les 2 listes après MAJ de chacune d'entre
elles.

Supposons que la 1ere liste s'appelle Modifiable8 et a 1 colonne
contenant le nom du produit
La 2eme liste Modifiable10, une colonne contenant les reférences des
produits.
Les 2 listes sont dans le même ordre, c'est a dire liste non triée des
noms et liste non triée des références (les données sont prises dans la
même table dans le même ordre suivant l'index)

je mettrai :
Private Sub Modifiable8_AfterUpdate() ' pour les NOMS
' Rechercher l'enregistrement correspondant au contrôle.
Dim rs As Object

Set rs = Me.Recordset.Clone
rs.FindFirst "[NomArticle] = '" & Me![Modifiable8] & "'"
Me.Modifiable10.Value = Me.Modifiable10.ItemData
(Me.Modifiable8.ListIndex)
Me.Bookmark = rs.Bookmark
End Sub

Private Sub Modifiable10_AfterUpdate() ' pour les REFERENCES
' Rechercher l'enregistrement correspondant au contrôle.
Dim rs As Object

Set rs = Me.Recordset.Clone
rs.FindFirst "[RefArticle] = '" & Me![Modifiable10] & "'"
Me.Bookmark = rs.Bookmark
Me.Modifiable8.Value = Me.Modifiable8.ItemData
(Me.Modifiable10.ListIndex)
End Sub

Ca répond à ton besoin ?

Attention au retour à la ligne intempestif
sur les instructions Me.Modifiablex.Value = ...

A+
Eric


"Jean-Marc" écrivait
news::

Salut à tous,

Je ne trouve pas mon bonheur. Est-ce parce que c'est trop simple ou
parce que je cherche mal, je ne sais pas.
Voici ma question :
Dans une bdd pour gérer les achats de ma société, j'ai un form avec
tous les produits. J'ai un combo sur le nom du produit qui me sert à
rechercher un produit et à ajouter un nouveau produit si celui entré
n'est pas dans la liste. Jusque là rien que du classique.
Je voudrais ajouter un autre combo, du même type, mais sur le champs
du NrRéfProduit.
Rien de compliqué, me semblait-il.
pourtant si je fais une recherche sur un des 2 combo, le produit
sélectionné s'affiche correctement, mais je n'arrive pas à mettre
l'autre combo à jour. Par exemple je sélectionne un produit par son
NrRéf. Le bon produit apparaît, mais le combo du nom reste figé sur
l'ancien produit. Cela ne concorde donc plus.
La solution doit être toute simple, mais je tourne en rond depuis hier
et je ne trouve pas.
J'ai ressayé me.recalc, me.requery, ListeNomProduit.requery dans le
code de MAJ de ListeNrRéfProduit, etc ... mais rien n'y fait.

Merci de vos z'avis z'avisés,

Jean-Marc





Avatar
Jean-Marc
Salut Eric,

Je comprend ce dont tu parles, toutefois les listes ne sont pas tout à fait
identiques. Elles viennent en effet de la même table, mais sont triés en
ordre alpha, or les noms des produits ne sont pas forcément dans me même
ordre que les NrRefProduit.

Par contre, la colonne de réf des 2 listes est la même, à savoir, le
NrProduit (à ne pas confondre avec NrRefProduit, NrProduit étant NumAuto et
NrRéfProduit étant le numéro de référence du produit chez le fournisseur).

Verrais-tu un moyen de mettre à jour l'autre table à partir du NrProduit qui
est, je le rappelle, la colonne cachée de référence des 2 listes ?

Merci de ton aide,

Jean-Marc

"Eric" a écrit dans le message de
news:
Bonjour Jean-Marc,

il faut que tu actualises les 2 listes après MAJ de chacune d'entre
elles.

Supposons que la 1ere liste s'appelle Modifiable8 et a 1 colonne
contenant le nom du produit
La 2eme liste Modifiable10, une colonne contenant les reférences des
produits.
Les 2 listes sont dans le même ordre, c'est a dire liste non triée des
noms et liste non triée des références (les données sont prises dans la
même table dans le même ordre suivant l'index)

je mettrai :
Private Sub Modifiable8_AfterUpdate() ' pour les NOMS
' Rechercher l'enregistrement correspondant au contrôle.
Dim rs As Object

Set rs = Me.Recordset.Clone
rs.FindFirst "[NomArticle] = '" & Me![Modifiable8] & "'"
Me.Modifiable10.Value = Me.Modifiable10.ItemData
(Me.Modifiable8.ListIndex)
Me.Bookmark = rs.Bookmark
End Sub

Private Sub Modifiable10_AfterUpdate() ' pour les REFERENCES
' Rechercher l'enregistrement correspondant au contrôle.
Dim rs As Object

Set rs = Me.Recordset.Clone
rs.FindFirst "[RefArticle] = '" & Me![Modifiable10] & "'"
Me.Bookmark = rs.Bookmark
Me.Modifiable8.Value = Me.Modifiable8.ItemData
(Me.Modifiable10.ListIndex)
End Sub

Ca répond à ton besoin ?

Attention au retour à la ligne intempestif
sur les instructions Me.Modifiablex.Value = ...

A+
Eric


"Jean-Marc" écrivait
news::

Salut à tous,

Je ne trouve pas mon bonheur. Est-ce parce que c'est trop simple ou
parce que je cherche mal, je ne sais pas.
Voici ma question :
Dans une bdd pour gérer les achats de ma société, j'ai un form avec
tous les produits. J'ai un combo sur le nom du produit qui me sert à
rechercher un produit et à ajouter un nouveau produit si celui entré
n'est pas dans la liste. Jusque là rien que du classique.
Je voudrais ajouter un autre combo, du même type, mais sur le champs
du NrRéfProduit.
Rien de compliqué, me semblait-il.
pourtant si je fais une recherche sur un des 2 combo, le produit
sélectionné s'affiche correctement, mais je n'arrive pas à mettre
l'autre combo à jour. Par exemple je sélectionne un produit par son
NrRéf. Le bon produit apparaît, mais le combo du nom reste figé sur
l'ancien produit. Cela ne concorde donc plus.
La solution doit être toute simple, mais je tourne en rond depuis hier
et je ne trouve pas.
J'ai ressayé me.recalc, me.requery, ListeNomProduit.requery dans le
code de MAJ de ListeNrRéfProduit, etc ... mais rien n'y fait.

Merci de vos z'avis z'avisés,

Jean-Marc








Avatar
Jean-Marc
Suis-je donc bête ...

Ma lumière vient de s'allumer. Oui oui, je sais, c'est tout au plus une
bougie, mais bon ... Lol

Dans le MAJ il suffit de ListeNomProduit = ListeNrRéfProduit et
inversément dans le MAJ de l'autre liste.

Comme je disais, c'était trop simple et je cherchais beaucoup trop loin.

Notre conversation m'a aidé à simplifier ma question, et donc à en trouver
la réponse.

Merci Eric,

Jean-Marc

"Jean-Marc" a écrit dans le message de
news:ZrYvd.11553$%
Salut Eric,

Je comprend ce dont tu parles, toutefois les listes ne sont pas tout à
fait

identiques. Elles viennent en effet de la même table, mais sont triés en
ordre alpha, or les noms des produits ne sont pas forcément dans me même
ordre que les NrRefProduit.

Par contre, la colonne de réf des 2 listes est la même, à savoir, le
NrProduit (à ne pas confondre avec NrRefProduit, NrProduit étant NumAuto
et

NrRéfProduit étant le numéro de référence du produit chez le fournisseur).

Verrais-tu un moyen de mettre à jour l'autre table à partir du NrProduit
qui

est, je le rappelle, la colonne cachée de référence des 2 listes ?

Merci de ton aide,

Jean-Marc

"Eric" a écrit dans le message de
news:
Bonjour Jean-Marc,

il faut que tu actualises les 2 listes après MAJ de chacune d'entre
elles.

Supposons que la 1ere liste s'appelle Modifiable8 et a 1 colonne
contenant le nom du produit
La 2eme liste Modifiable10, une colonne contenant les reférences des
produits.
Les 2 listes sont dans le même ordre, c'est a dire liste non triée des
noms et liste non triée des références (les données sont prises dans la
même table dans le même ordre suivant l'index)

je mettrai :
Private Sub Modifiable8_AfterUpdate() ' pour les NOMS
' Rechercher l'enregistrement correspondant au contrôle.
Dim rs As Object

Set rs = Me.Recordset.Clone
rs.FindFirst "[NomArticle] = '" & Me![Modifiable8] & "'"
Me.Modifiable10.Value = Me.Modifiable10.ItemData
(Me.Modifiable8.ListIndex)
Me.Bookmark = rs.Bookmark
End Sub

Private Sub Modifiable10_AfterUpdate() ' pour les REFERENCES
' Rechercher l'enregistrement correspondant au contrôle.
Dim rs As Object

Set rs = Me.Recordset.Clone
rs.FindFirst "[RefArticle] = '" & Me![Modifiable10] & "'"
Me.Bookmark = rs.Bookmark
Me.Modifiable8.Value = Me.Modifiable8.ItemData
(Me.Modifiable10.ListIndex)
End Sub

Ca répond à ton besoin ?

Attention au retour à la ligne intempestif
sur les instructions Me.Modifiablex.Value = ...

A+
Eric


"Jean-Marc" écrivait
news::

Salut à tous,

Je ne trouve pas mon bonheur. Est-ce parce que c'est trop simple ou
parce que je cherche mal, je ne sais pas.
Voici ma question :
Dans une bdd pour gérer les achats de ma société, j'ai un form avec
tous les produits. J'ai un combo sur le nom du produit qui me sert à
rechercher un produit et à ajouter un nouveau produit si celui entré
n'est pas dans la liste. Jusque là rien que du classique.
Je voudrais ajouter un autre combo, du même type, mais sur le champs
du NrRéfProduit.
Rien de compliqué, me semblait-il.
pourtant si je fais une recherche sur un des 2 combo, le produit
sélectionné s'affiche correctement, mais je n'arrive pas à mettre
l'autre combo à jour. Par exemple je sélectionne un produit par son
NrRéf. Le bon produit apparaît, mais le combo du nom reste figé sur
l'ancien produit. Cela ne concorde donc plus.
La solution doit être toute simple, mais je tourne en rond depuis hier
et je ne trouve pas.
J'ai ressayé me.recalc, me.requery, ListeNomProduit.requery dans le
code de MAJ de ListeNrRéfProduit, etc ... mais rien n'y fait.

Merci de vos z'avis z'avisés,

Jean-Marc












Avatar
Eric
Re Jean-Marc,

Dans ce cas là, tu mets

Me.ListeNrRéfProduit = Me.ListeNomProduit sur la proc
ListeNomProduit _AfterUpdate()

et

Me.ListeNomProduit = Me.ListeNrRéfProduit sur la proc
ListeNrRéfProduit_AfterUpdate()

Ca devrait faire l'affaire puisque les 2 listes ont en colonne cachée
NrProduit.

OK ?

Eric

"Jean-Marc" écrivait
news:ZrYvd.11553$%:

Salut Eric,

Je comprend ce dont tu parles, toutefois les listes ne sont pas tout à
fait identiques. Elles viennent en effet de la même table, mais sont
triés en ordre alpha, or les noms des produits ne sont pas forcément
dans me même ordre que les NrRefProduit.

Par contre, la colonne de réf des 2 listes est la même, à savoir, le
NrProduit (à ne pas confondre avec NrRefProduit, NrProduit étant
NumAuto et NrRéfProduit étant le numéro de référence du produit chez
le fournisseur).

Verrais-tu un moyen de mettre à jour l'autre table à partir du
NrProduit qui est, je le rappelle, la colonne cachée de référence des
2 listes ?

Merci de ton aide,

Jean-Marc



Avatar
Eric
"Jean-Marc" écrivait

Notre conversation m'a aidé à simplifier ma question, et donc à en
trouver la réponse.

C'est l'essentiel. Bravo donc


J'ai posté la même chose d'ailleurs quelques minutes après toi mais je
récupères les posts avec retard, je comprends pas pourquoi.

A+
Eric

Avatar
Jean-Marc
Simplement parce que je pense que le serveur sature un peu pour le moment.
Mon post est parti, mais n'est apparu sur le forum que 15 min plus tard.

"Eric" a écrit dans le message de
news:

"Jean-Marc" écrivait

Notre conversation m'a aidé à simplifier ma question, et donc à en
trouver la réponse.

C'est l'essentiel. Bravo donc


J'ai posté la même chose d'ailleurs quelques minutes après toi mais je
récupères les posts avec retard, je comprends pas pourquoi.

A+
Eric