En poursuivant votre navigation sur ce site, vous acceptez l'utilisation de cookies pour vous proposer des contenus et services adaptés. Mentions légales.

Recherche

Recherche

Les mémos

Je débute...

Visites

 1224968 visiteurs

 22 visiteurs en ligne

Nous contacter

Contact

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

Catégorie : Les mémos - Formulaires
Page lue 10033 fois
Vous êtes ici :   Accueil » Ajout à liste modifiable