Voila mon soucis, je veux simplement effacer un enregistrement ce trouvant dans un sous formulaire (donc l'effacer de la table où il se trouve) mais mon code fonctionne 1 fois sur 5 et lorsque qu'il ne marche pas j'ai une erreur genre: "Impossible d'effacer 1 enregistrement de la requête de suppression, à la suite d'une violation de clé et 0 enregistrement à la suite de violation de verrou"

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub btnSuppObjectif_Click()
'Supprime un enregistrement (objectif)
    Dim strIDSup As String
    Dim strSQL As String
 
    strIDSup = Form_sfrm_LstAjoutObjectifs.IDObjectifPedagogiquePrincipal.Value
 
    strSQL = "DELETE IDObjectifPedagogiquePrincipal FROM Specialisation_tObjectifPedagogiquePrincipal WHERE IDObjectifPedagogiquePrincipal = " & strIDSup & ";"
 
    DoCmd.RunSQL (strSQL)
 
    Form_sfrm_LstAjoutObjectifs.Requery
End Sub