Discussion :

[mattvin]

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.

[Domi2]

Bonjour,

La propriété "Limiter à liste" de ta liste déroulante est bien à "Oui" ?

Domi2

[mattvin]

Merci beaucoup mais maintenant quand je met oui il me fait une erreur.

Je met une image en annexe avec mon erreur.

bonne journée.

[Domi2]

Et avec un End If, cela fonctionne mieux ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
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 If '<== Ici

Domi2

[mattvin]

Ben je l'ai déjà mis mais il me fait tout le temps l'erreur.

Merci de ton aide.

[5GPCISAS1]

Bonjour,

Avez-vous mis le code sur la propriété "Si pas dans la liste" de votre liste déroulante?