Je souhaiterais afficher le résultat de ma requête dans une combo box trié de manière alpha numérique. Voici mon script.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Dim rec As Recordset
 
tst = "Select Distinct Nom From Société"
Set rec = CurrentDb.OpenRecordset(tst)
 
While Not rec.EOF
 
Société.AddItem (rec(0).Value)
 
rec.MoveNext
 
Wend
rec.Close
Merci