Recherche d'un enregistrement à partir d'une liste déroulante

Private Sub NomListeModifiable_AfterUpdate()

'Affichage de l'enregistrement et des détails après mise à jour de la liste modifiable

If NomListeModifiable.Value <> "" Then

Me.Détail.Visible = True

' Rechercher l'enregistrement correspondant au contrôle.

Dim rs As Object

Set rs = Me.Recordset.Clone

rs.FindFirst "[N°Entite] = " & Str(Nz(Me![NomListeModifiable], 0))

If Not rs.EOF Then Me.Bookmark = rs.Bookmark

'Raffraichissement des listes si nécessaire

Me.NomListe.Requery

Else

Me.Détail.Visible = False

End If

End Sub