Bonjour à tous,
J'ai un "petit" soucis de codage, si vous trouvez réponse à ma question ça serait génial. Voilà le problème:
J'ai un formulaire nommé F_animaux-eleveur-naisseur. Dans ce formulaire il y a une liste déroulante combo125 qui permet de sélectionner un nom issu d'une requête Q_animaux-eleveur-naisseur. Si le nom n'est pas disponible dans la liste, j'aimerai proposer de l'enregistrer dans la requête.
Pour cela j'ai vu qu'il était possible de se servir de la fonction "insert into". J'ai mis le code:
Private Sub Combo125_NotInList(NewData As String, Response As Integer)
If MsgBox("Voulez-vous ajouter " & NewData & " à la liste des noms des naisseurs ?", _
vbYesNo + vbQuestion + vbDefaultButton2, "Ajout") = vbYes Then
DoCmd.RunSQL "INSERT INTO Q_animaux-eleveur-naisseur (nom_naisseur) VALUES (& NewData &)"
Else
Response = acDataErrContinue
Combo125.Undo
End If
End Sub
Access m'affiche alors le message d'erreur: "can't execute code in break mode". Qu'est-ce qui ne lui plait pas ?
J'espère avoir donné assez d'informations pour que quelqu'un puisse me débloquer.
Merci d'avance.
J'ai un "petit" soucis de codage, si vous trouvez réponse à ma question ça serait génial. Voilà le problème:
J'ai un formulaire nommé F_animaux-eleveur-naisseur. Dans ce formulaire il y a une liste déroulante combo125 qui permet de sélectionner un nom issu d'une requête Q_animaux-eleveur-naisseur. Si le nom n'est pas disponible dans la liste, j'aimerai proposer de l'enregistrer dans la requête.
Pour cela j'ai vu qu'il était possible de se servir de la fonction "insert into". J'ai mis le code:
Private Sub Combo125_NotInList(NewData As String, Response As Integer)
If MsgBox("Voulez-vous ajouter " & NewData & " à la liste des noms des naisseurs ?", _
vbYesNo + vbQuestion + vbDefaultButton2, "Ajout") = vbYes Then
DoCmd.RunSQL "INSERT INTO Q_animaux-eleveur-naisseur (nom_naisseur) VALUES (& NewData &)"
Else
Response = acDataErrContinue
Combo125.Undo
End If
End Sub
Access m'affiche alors le message d'erreur: "can't execute code in break mode". Qu'est-ce qui ne lui plait pas ?
J'espère avoir donné assez d'informations pour que quelqu'un puisse me débloquer.
Merci d'avance.