Set rs = New ADODB.Recordset
stSQL = "SELECT * FROM entreprises WHERE Nom<>null ORDER BY Nom "
rs.Open stSQL, cn, adOpenKeyset, adLockPessimistic
NomResp.Clear
Do Until rs.EOF = True
NomResp.AddItem rs("nom")
rs.MoveNext
Loop
rs.Close
ndsaerith
Messages postés304Date d'inscriptionvendredi 16 janvier 2004StatutMembreDernière intervention10 mai 20172 23 févr. 2004 à 10:15
Met une condition si le nom <> "" ou " " alor on akoute dans la combo, juste apres le do until ( au fait le while c mieux pour les bouvles pour remplir les combos ;-) )