Discussion :

[ronin.01]

Bonjour,

Je me suis inspiré de la faq pour permettre d'ajouter des noms de salariés dans ma liste déroulante à partir d'une table "salarié" avec comme unique champs "nom" (clé primaire)

J'insère le code proposé dans la faq mais rien ne se passe par la suite. Ai je fait une erreur ou omis quelque chose ?
Merci pour vos réponses

Code :

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
Private Sub nom_NotInList(NewData As String, Response As Integer)
' Si le salarié est absent dans la liste, on propose alors de l'ajouter
 
If MsgBox("Voulez-vous ajouter " & NewData & " à la liste des salariés ?", _
                    vbYesNo + vbQuestion + vbDefaultButton2, "Ajout") = vbYes Then
        DoCmd.SetWarnings False
        DoCmd.RunSQL "insert into salarie ( nom ) select """ & NewData & """;"
        DoCmd.SetWarnings True
        Response = acDataErrAdded
 
    Else
        Response = acDataErrContinue
        nom.Undo
    End If
 
End Sub

Cordialement
Ronin.01

[ClaudeLELOUP]

Bonjour,

Tu as probablement oublié de positionner à Oui la propriété Limiter à liste

----> la sub "Private Sub nom_NotInList(NewData As String, Response As Integer)" n'est donc jamais sollicitée.

[ronin.01]

bonjour,

Oui merci c'était bien cet oubli.
Merci beaucoup.
ronin.01