Private Sub lst_Categories_AfterUpdate()
On Error GoTo Macro11_Err
With CodeContextObject
' DoCmd.SearchForRecord , "", acFirst, "[Categorie] = " & "'" & Screen.ActiveControl & "'"
' .lst_CategoriesSousCat.RowSource = "SELECT [SousCategorie],ID_SsCat FROM t_CatSsCat where CategorieFK = " & .lst_Categories.Column(1)
DoCmd.SearchForRecord , "", acFirst, "[Categorie] = " & "'" & Screen.ActiveControl & "'"
.lst_CategoriesSousCat.RowSource = "SELECT [SousCategorie],ID_SsCat FROM t_CatSsCat where CategorieFK = " & .lst_Categories.Column(1) & " order by souscategorie"
End With
Debug.Print CurrentRecord
Macro11_Exit:
Exit Sub
Macro11_Err:
MsgBox Error$
Resume Macro11_Exit
End Sub