Nouvel enr dans zone de liste modif ne fonctionne pas

Salut à toutes et à tous,

Soit un formulaire qui contient des champs et un sous-formulaire.
Soit un des champs est une zone de liste modifiable pour choisir
l'enregistrement.
Soit, dans cette zone de liste, le code suivant pour ajouter une valeur
(appliqué à "sur absence dans liste") :

Private Sub NrPoint_NotInList(NewData As String, Response As Integer)
If MsgBox("Voulez-vous ajouter " & NewData & " à la liste des PP ?", _
vbYesNo + vbQuestion + vbDefaultButton2, "Ajout") =
vbYes Then
DoCmd.RunSQL "INSERT INTO PP ( NrPoint ) SELECT """ & NewData &
""";"
Response = acDataErrAdded
Me.Requery
Else
Response = acDataErrContinue
NrPoint.Undo
End If

End Sub


Lorsque j'ajoute une valeur, celle-ci ne s'ajoute pas mais remplace celle
qui était dans la table précédemment. Le formulaire continue de fonctionner
jusqu'à sa fermeture où je reçois une message de risque de doublon d'index.
Je ne comprend pas pourquoi, et donc je ne sais pas comment résoudre ce
problème.

Peut-être est-ce dû à mes tables, je ne sais pas. Toujours est-il que la
table principale a un lien plusieurs-à-plusieurs avec l'autre table via une
table intermédiaire.

Merci de vos z'avis z'avisés