Discussion :

[Oceliane]

Bon, je sèche depuis le début de semaine, donc je me décide à poster...

Dans un formulaire, on peut sélectionner un notaire via une zone de liste modifiable.

Ce menu déroulant est relié à une table annexe contenant une liste non exaustive des notaires, ainsi que leurs coordonnées.

Si le notaire n'existe pas, on remplit manuellement ses coordonnées.

Par contre, si il est référencé, ses coordonnées apparaissent automatiquement.

voici la source de contrôle de la zone de liste:

Code :

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

1
2
3
SELECT Notaire.Etude, Notaire.NotaireID, Notaire.Preadresse, Notaire.Num_rue, Notaire.voie, Notaire.nom_voie, Notaire.postadresse, Notaire.CP, Notaire.Ville, Notaire.Telephone, Notaire.Fax, Notaire.Mail
FROM Notaire
ORDER BY Notaire.Etude;

donc tout va bien, il affiche la liste des études de notaire, les autres champs rentent invisible.

d'où le code VBA:

Code :

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

1
2
3
4
5
6
7
Private Sub Notaire_A_AfterUpdate()
Me.NotaireID_A.Value.Value = Me.Notaire_A.Column(1, Me.Notaire_A.ListIndex)
Me.Preadresse_Not_A.Value = Nz(Me.Notaire_A.Column(2, Me.Notaire_A.ListIndex), "")
Me.Num_rue_Not_A.Value = Nz(Me.Notaire_A.Column(3, Me.Notaire_A.ListIndex), "")
...
 
End Sub

[EDIT]

Me.NotaireID_A.Value.Value = Me.Notaire_A.Column(1, Me.Notaire_A.ListIndex)

Désolé, je viens de trouver la solution...

je suis vraiment un

Bon, le bug est corrigé, mais maintenant il ne m'affiche que la premiere variable (notaireID), le reste est ignoré, comme si il n'existait pas. que faire?

j'ai essayé plusieurs méthodes, et en remplaçant le source de la zone de liste par:

Code :

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

1
2
3
SELECT Notaire.Etude, Notaire.Ville, Notaire.Preadresse, Notaire.Num_rue, Notaire.voie, Notaire.nom_voie, Notaire.postadresse, Notaire.CP, Notaire.NotaireID, Notaire.Telephone, Notaire.Fax, Notaire.Mail
FROM Notaire
ORDER BY Notaire.Etude;

à présent, il m'indique la ville dans l'emplacement de l'identifiant du notaire... donc c'est que le problême doit venir de là! mais là, je sèche...

[FreeAccess]

Bonjour,
Sauf si je n'ai pas bien compris ce que tu cherche à faire....
mais ne serait-il pas plus simple de créer un formulaire basé sur ta table "Notaire" avec tous les champs dont tu as besoin....

Puis sur ce même formulaire tu ajoute une Zone de liste déroulante indépendante en t'aidant de l'assistant. Tu choisie la troisième option "Rechercher un enregistrement dans mon formulaire basé sur la valeur que j'ai sélectionnée dans la liste déroulante"......

Voila, c'est simple et efficace.....et ensuite si tu veux à partir de cette même zone de liste déroulante pouvoir entrer un nouveau "Notaire" va faire un petit tour dans la ...

[christrabin]

tu as vérifié les propriétés de ta zone de liste dans l'onglet données, origine source, contenu, colonne liée ?

[Oceliane]

Bonjour,
Sauf si je n'ai pas bien compris ce que tu cherche à faire....
mais ne serait-il pas plus simple de créer un formulaire basé sur ta table "Notaire" avec tous les champs dont tu as besoin....

Puis sur ce même formulaire tu ajoute une Zone de liste déroulante indépendante en t'aidant de l'assistant. Tu choisie la troisième option "Rechercher un enregistrement dans mon formulaire basé sur la valeur que j'ai sélectionnée dans la liste déroulante"......

Voila, c'est simple et efficace.....et ensuite si tu veux à partir de cette même zone de liste déroulante pouvoir entrer un nouveau "Notaire" va faire un petit tour dans la ...

Non, je ne veux pas créer de nouveaux notaires, en fait, c'est un formulaire pour une acquisition immobilière. et dans le descriptif, on a le notaire de l'acheteur. c'est pourquoi la table des notaires est en annexe, et n'est là que pour simplifier le travail du commercial: si le notaire n'existe pas, le commercia lenseigne manuellement le formulaire, mais en aucun cas il ne devra toucher à la table des notaires par elle-même...

[FreeAccess]

...si le notaire n'existe pas, le commercia lenseigne manuellement le formulaire, mais en aucun cas il ne devra toucher à la table des notaires par elle-même...

Ok, je crois avoir compris.....

Donc si on reprends ton explication:
- si le notaire existe dans la Zone de liste, après sélection du nom, tu veux que les différentes données rattachées à ce nom s'affiche dans les différents textbox contenus sur ton formulaire.

-dans un premier temps, comme le disais christrabin vérifie que la propriété "Nbr colonne" de la ZDL soit égale au nombre de champ de ta table "Notaire"
- dans la propriété "Largeurs colonnes" = 0cm;3cm;0cm;0cm;.......

- dans l'événement "Après MAJ"

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Modifiable5_AfterUpdate()
'le textbox "Etude" va contenir la valeur de la deuxième colonne de la liste
Me.Etude.Value = Me.Modifiable5.Column(1)
 
'le textbox "Preadresse" va contenir la valeur de la 3° colonne de la liste
Me.Preadresse.Value = Me.Modifiable5.Column(2)
 
Me.Voie.Value = Me.Modifiable5.Column(4)
.....
.....
End Sub

Voila en gros la démarche....bien sur adapte à ton cas...