Bonjour,

j'ai trouvé un bout de code que j'ai adapté à mon application.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
Private Sub Ann_type_doc_NotInList(NewData As String, Response As Integer)
     If MsgBox("Voulez-vous ajouter " & NewData & " à la liste des types de documents?", vbYesNo + vbQuestion + vbDefaultButton2, "Ajout") = vbYes Then
       DoCmd.RunSQL "INSERT INTO tb_type_doc( ty_type_doc_ann ) SELECT """ & NewData & """;"
       Response = acDataErrAdded
    Else
       Response = acDataErrContinue
       Ann_type_doc.Undo
End Sub
Le problème, c'est qu'il ne rentre jamais dans cette fonction et je ne comprend pas pourquoi.

Si quelqu'un a une idée, je le remercie d'avance.

Bonne journée.