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