2 pièce(s) jointe(s)
Inserer un nom dans une liste modifiable
Bonjour,
Je viens vers vous car cela fait 3 jours que je galère pour introduire un nouveau nouveau dans une liste modifiable. Je l'ai déjà fait sur un autre programme mais là cela ne veux pas fonctionner. Je ne vois même pas le MSGBox qui me demande "Voulez-vous ajouter......."
je joins le code et deux image du formualire et des propriétés du champ "Editeur"
Pièce jointe 578059Pièce jointe 578060
Code:
1
2
3
4
5
6
7
8
9
10
11
| Private Sub Editeur_NotInList(Nouveau As String, Response As Integer)
If MsgBox("Voulez-vous ajouter " & Nouveau & " à la liste des éditeurs ?", vbYesNo + vbQuestion + vbDefaultButton2, "Ajout") = vbYes Then
DoCmd.SetWarnings False
DoCmd.RunSQL "INSERT INTO Editeur ( Editeur ) SELECT """ & Nouveau & """;"
DoCmd.SetWarnings True
Response = acDataErrAdded
Else
Response = acDataErrContinue
Me.Editeur.Undo
End If
End Sub |
merci de m'aider
