Merci pour la réponse mais j'ai besoin d'un peu d'explications.
Dans la source de la zone de liste2, j'ai mis en source une requete qui reprend le champ de la zone de liste1 et le champ de la zone de liste2.
J'obtiens ce code par défaut :
1 2 3 4 5 6 7 8 9
| Private Sub zone2_AfterUpdate()
' Rechercher l'enregistrement correspondant au contrôle.
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[zone1] = '" & Me![zone2] & "'"
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub |
Je ne sais pas comment mettre ton code.
rs.FindFirst "[zone1].column(0) = '" & Me![zone2] & "'"
par avance, merci.
Partager