Ajout à liste modifiable

Ajouter une valeur à une zone de liste modifiable

Lorsque la source de la zone de liste est une table ou une requête, il faut ajouter un enregistrement à la table source et ensuite rafraîchir la liste.

Penser à mettre la valeur "oui" sur la propriété "Limiter à la liste".

Private Sub Combo0_NotInList(NewData As String, Response As Integer)

    If msgbox("Voulez-vous ajouter la valeur " & NewData & " ?", _
                     vbYesNo + vbQuestion) = vbYes Then

        CurrentDb.Execute "INSERT INTO LaTable(LeChamp) " _
                                 & "SELECT """ & NewData & """ ;"

        Response = acDataErrAdded

    Else

        Response = acDataErrContinue

        Me!Combo0.Undo

    End If

End Sub