Bonjour, Avec ce Code, dans ma comboBox jai 2 foi la meme Marque.. comment faire pour quel ne s'afficher qu'une fois ??
Dim SQL As String
Dim Requete As Recordset
Dim vrai As Boolean
Dim x As String
CboModele.Text = "Modele"
CboMarque.Clear
SQL = "SELECT Marque_Bateau "
SQL = SQL & "FROM SousType "
SQL = SQL & "Order by Marque_Bateau asc"
Set Requete = CapArmor.OpenRecordset(SQL)
If Not Requete.BOF Then
Requete.MoveFirst
vrai = True
x = 0
While vrai = True
If Not Requete.EOF Then
CboMarque.List(x) = Requete.Fields(0)
Requete.MoveNext
x = x + 1
vrai = True
Else
vrai = False
End If
Wend
CboMarque.Text = "Selectionner le Bateau à Supprimer!!"
Else
CboMarque.Text = "Pas d'enregistrement"
End If
ex: select distinct marque from voitire;