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
Partager