Sub Rafresh(requete As String) '-- Requete Sql Set rs = New ADODB.Recordset rs.Open requete, Db '-- Nettoie la liste Frm_Accueil.List.ListItems.Clear '-- Remplissage de la liste If rs.EOF Then Frm_Accueil.List.ListItems.Add , , "Aucun Enregistrement" Exit Sub Else Do Until rs.EOF Frm_Accueil.List.ListItems.Add , , rs!nomenfant_ctr, , "pro" Frm_Accueil.List.ListItems(Frm_Accueil.List.ListItems.Count).ListSubItems.Add , , rs!prenomenfant_ctr Frm_Accueil.List.ListItems(Frm_Accueil.List.ListItems.Count).ListSubItems.Add , , rs!pere_ctr Frm_Accueil.List.ListItems(Frm_Accueil.List.ListItems.Count).ListSubItems.Add , , rs!mere_ctr Frm_Accueil.List.ListItems(Frm_Accueil.List.ListItems.Count).ListSubItems.Add , , rs!commune_ctr Frm_Accueil.List.ListItems(Frm_Accueil.List.ListItems.Count).ListSubItems.Add , , rs!caf_ctr Frm_Accueil.List.ListItems(Frm_Accueil.List.ListItems.Count).ListSubItems.Add , , rs!Num_ctr rs.MoveNext Loop End If rs.Close End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionFrm_Accueil.List.ListItems(Frm_Accueil.List.ListItems.Count).ListSubItems.Add , , rs!pere_ctr, , rs!mere_ctr