Dans un formulaire, j'ai implanté une combobox issue des composants Microsoft Forms 2.0 Object Librairy.
Je souhaiterai comme dans un formulaire d'Access, récupérer la valeur saisie dans la liste et l'ajouter à celle-ci si elle n'y fait pas partie.

Voici le code que j'utilise :
Code VS6 : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub cboLegumes_Validate(Cancel As Boolean)
    If Me.cboLegumes.ListIndex = -1 Then
    Set m_rsLegume = New ADODB.Recordset
    With m_rsLegume
        .CursorLocation = adUseClient
        .ActiveConnection = cnnMesTomates
        .Source = "SELECT * FROM T_Legumes"
        .Open , , adOpenStatic, adLockBatchOptimistic, adCmdText
    End With
    With m_rsLegume
        .AddNew
        .Fields(1) = Me.cboLegumes.Text
        .Update
    End With
    End If
 
End Sub

Malheureusement, deux problèmes subsistent :
  1. La valeur ne s'ajoute pas à la liste
  2. La liste ne se met pas à jour


Que manque-t-il pour faire mon bonheur

Merci à tous pour vos réponses toujours avisées