Discussion :

[macakou99]

Bonjour,

Après de longues recherches, je bute encore.
J'ai réalisé une petite application qui permet la création d'une fiche-client avec sélection automatique de la ville à partir du code postal entré par l’utilisateur. Jusque là, cela marche parfaitement.
Malheureusement, lors des tests, il s'est avéré rapidement qu'il arrive souvent que l'utilisateur ne connaisse que le nom de la ville et en ignore le code postal correspondant. Donc si la sélection ne se fait qu'à partir du code postal, dans ce cas particulier, cela pose problème.
Il me semble donc qu'il me faut rajouter du code VBA pour parvenir à mes fins, mais là c'est moi qui suis bloqué. Je tatônne et je n'y arrive pas.

Voilà ce qui marche et qui permet de faire la sélection par le code postal :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub ComboCodePostal_AfterUpdate()
    Me.ComboVille = ""
    Me.ComboCodePostal.Requery
    Me.ComboCodePostal.SetFocus
    Me.ComboCodePostal.Dropdown
End Sub
 
Private Sub ComboVille_Exit(Cancel As Integer)
    Me.Refresh
    Me.Requery
End Sub

Source de la comboCP

Code sql :

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

1
2
3
4
SELECT tblCodesPostaux.Cp
FROM tblCodesPostaux
GROUP BY tblCodesPostaux.Cp
ORDER BY tblCodesPostaux.Cp;

Source de la comboVille

Code sql :

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

1
2
3
4
SELECT tblCodesPostaux.Ville, tblCodesPostaux.Cp
FROM tblCodesPostaux
WHERE (((tblCodesPostaux.Cp)=[Forms]![frmClient]![tblclient sous-formulaire1].[Form]![ComboCodePostal]))
ORDER BY tblCodesPostaux.Ville;

Comment donc faire pour que chaque combobox permette la saisie du code postal et lui affecte la ville correspondante OU inversement que l'autre combobox permette la saisie de la ville et lui affecte le code postal correspondant tout en incrémentant la table "clients" bien évidemment ?

Je vous remercie de bien vouloir me faire part de vos conseils.
Cordialement.

[nico84]

Bonjour,

En fait c'est tout simple car l'information peut être dans chaque combobox en 2e colonne (qui est en pratique la 1 car il y a une 0 ). C'est déjà le cas d'ailleurs pour la combo de la ville :

Code :

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

1
2
3
4
Private Sub Comboville_AfterUpdate()
    Me.ComboCodePostal = Comboville.column(1)
    Me.refresh
End Sub

[macakou99]

Merci de votre réponse.
J'ai rajouté ce que vous indiquez et je ne comprends pas, cela ne marche pas.
Je peux saisir la ville dans la ComboBoxVille mais la ComboCodepostal ne me propose pas le code postal correspondant, elle déroule tous les codes postaux de France.
Que pourrais-je avoir oublié de paramétrer ?
J'ai pourtant bien rajouter le code que vous proposiez.

Code :

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

1
2
3
4
Private Sub Comboville_AfterUpdate()
    Me.ComboCodePostal = Comboville.column(1)
    Me.refresh
End Sub

Qu'aurais-je du faire d'autre ?
Désolé, j'ai vraiment l'impression d'être une triple buse.

[nico84]

Il faut modifier la source de combocp pour qu'elle ait 2 colonnes comme comboville

[macakou99]

Il faut modifier la source de combocp pour qu'elle ait 2 colonnes comme comboville

J'ai honte de mon ignorance mais sauf erreur de ma part, le source de ComboVille n'a pas 2 colonnes et malgré tout la sélection par le code postal marche bien mais pas dans l'autre sens.
Pourriez-vous me montrer un exemple de modification de la source de ComboCp comme vous le suggérez ?
Je conçois que c'est basique mais j'ai beau cherché et essayé mais ce que je fais ne fonctionne pas. mais alors pas du tout.
Ma table tblCodesPostaux a 3 champs : cp, ville, IdCpVille
Est-ce que l'ordre des champs pourrait expliquer que la sélection des colonnes 1 ou 2 soit du coup mal affectée.
Pourriez-vous m'éclairer, j'avoue que je pédale tout en faisant du sur-place.

[nico84]

La requete de comboville a 2 champs donc même si tu as choisi de ne pas afficher la 2e colonne dans les paramètres du champ elle est là quand même

D'ailleurs c'est dommage de ne pas l'afficher car ça peut aider l'utilisateur !