Quand je choisis une valeur dans la liste déroulante, l'enregistrement dans le formulaire doit correspondre à la valeur sélectionnée dans la liste déroulante. Evidemment ça ne fonctionne pas
voici le code utilisé:
Code:
Private Sub liste_date_AfterUpdate()
' Rechercher l'enregistrement correspondant au contrôle.
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[debabs] = " & Chr(35) & Format(Me![liste_date], "dd/mm/yyyy") & Chr(35)
Me.Bookmark = rs.Bookmark
End Sub
Partager