Comment actualiser les enregistrements liés à un objet quand on le sélectionne sur un formulaire?

Bonjour,
J'ai une table appelée ADRESSE avec uniquement deux champs ID_ADRESSE et ADRESSE_BATISSE.
J'ai crée un formulaire basé sur cette table on y ajoutant une zone de liste pour créer un moteur de recherche.
Le problème c'est qu'on choisissant une adresse dans la zone de liste, l'ID_ADRESSE ne s'actualise pas (Ça indique qu'il s'agit d'un doublon) .
Par contre moyennant les boutons de déplacement les deux champs ID et ADRESSE sont synchronisés.
Prière m'indiquer comment faire pour synchroniser l'ID en choisissant l'ADRESSE qui est déjà existante?
Merci.

Bonjour,

Je te conseille de voir les tuto et différents types de formulaires de recherche dans le FAQ. Par exemple celui-ci
Et les autres tutoriels sont par ICI

Sinon, par rapport à ce que tu dis, je dirais :
- Il faut que ta zone de liste soit indépendante (pas de source)
- Le code suivant sur un bouton ou un évènement de ta zone de liste devrait donner le résultat voulu :

Code:

---

1 2 3 4 5 6 7

Set rs = Me.recordsetclone ' ouverture du recordset ' recherche du id de la liste dans le clone rs.FindFirst "IdAdresse = " & Me.TaZonedeListe   if not rs.nomatch then ' s'il le trouve Me.Bookmark = rs.Bookmark ' il s'y positionne end if

---

Cordialement.

Merci madefemere,

J'ai insérer le code que vous m'avez proposé mais ça bloque, voir ci-dessous :
Pièce jointe 577042

Voilà mon formulaire :
Pièce jointe 577043

Le formulaire comporte trois contrôles : ID_ADRESSE , MOTEUR ( dont étiquette nommée BATISSE_ADRESSE) et LISTE RECHERCHE.

Je peux envoyer ma petite BD à qui peux m'aider et merci.

Bonjour,

Donc, si j'ai bien compris, tu veux filtrer la liste des adresses dans ta zone de liste "LISTE_RECHERCHE" selon les caractères saisis dans ta zone de texte "MOTEUR" et que la liste s'actualise automatiquement.
Pour cela il faut utiliser la propriété text de la zone de texte.

Code:

---

1 2 3 4 5 6

Private Sub MOTEUR_Change() Dim strsql as String strsql = " SELECT DISTINCT BATISSE_ADRESSE FROM ADRESSE WHERE BATISSE_ADRESSE LIKE '*" & Me.MOTEUR.text & "*'" Me.LISTE_RECHERCHE = strsql Me.LISTE_RECHERCHE.Requery End Sub

---

Cordialement.

Merci beaucoup MADEFEMERE.
Avant de voir votre message, j'avais résolut mon problème moyennant une requête + Dlookup.
Je vais aussi utiliser votre proposition.
Merci beaucoup.