Discussion :

[Nounours1]

Bonjour,

Dans un formulaire principal j'ai une liste déroulante lorsque je veux enregistrer un nouvel enregistrement le code se bloque sur la ligne que je vous met en gras italique et rouge.

Avant ça fonctionné, vous avez une idée ?

Merci d'avance.

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub choixFamille_NotInList(NewData As String, Response As Integer)
If MsgBox("La famille " & NewData & " n'existe pas " & Chr(13) & " Voulez-vous la créer ? ", vbYesNo) = vbYes Then
Response = acDataErrContinue
SendKeys " {esc}", True
Me.FilterOn = False
DoCmd.GoToRecord acDataForm, Me.Name, acNewRec
Me.Libelle = NewData
Me.Ajouteve.SetFocus
    End If
 End Sub

[Domi2]

Bonjour,

Regarde dans la FAQ, Absence dans liste déroulante.

Domi2

[Nounours1]

Bonjour Domi2

Merci beaucoup, le problème est réglé,

Code :

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

1
2
3
4
5
6
7
8
9
10
 Private Sub choixFamille_NotInList(NewData As String, Response As Integer)
    If MsgBox("Voulez-vous ajouter " & NewData & " à la liste des prénoms ?", _
                       vbYesNo + vbQuestion + vbDefaultButton2, "Ajout") = vbYes Then
        DoCmd.RunSQL "INSERT INTO FamilleEvenemt ( libelle ) SELECT """ & NewData & """;"
        Response = acDataErrAdded
    Else
        Response = acDataErrContinue
        ChoixFamille.Undo
    End If
End Sub

Bon Dimanche

[Domi2]

De rien,

Bon dév !

Domi2