suppression d'une fiche obsolete

Bonjour à tous !
j'ai un fichier pour gérer les personnes qui passe du statut de "Mobilisation" à la "Retraite définitive". je souhaite qu'une requete suppression s’opère après ce changement pour supprimer l'ancien statut, afin qu'une personne n'apparaissent plus avec 2 statuts sur les États. quelqu'un pourrait-t-il m'aider à modifier le code ci-après pour atteindre cet objectif ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Dim Reponse As String
Dim strsql As String
'Changement de position du retraité
Private Sub btnchangeposition_Click()
Dim MarqueChange As Boolean
Dim DateDernierChange As Date, DateNllePosition As Date
Dim MaxPos As Integer
Dim RefPositenRetraite As Integer
 
'Trouver la position maximale du retraité dans la table et incrémenter
MaxPos = DMax("[Position]", "[CpositionRetraite]", "[RefContact]=" & Me.RefContact) + 1
'Trouver la dernière date de changement de position
DateDernierChange = DMax("[DatePosition]", "[CpositionRetraite]", "[RefContact]=" & Me.RefContact)
Reponse = MsgBox("Le dernier changement date du " & DateDernierChange & " Nous sommes le : " & Date)
'Vérifier selon le corps si la période minimum correspondant au corps par rapport à la date du jour est respecté
'MsgBox (VerifDernierChange(Me.TxtRefCorps, DateDernierChange, Date))
MarqueChange = (VerifDernierChange(Me.TxtRefCorps, DateDernierChange, Date))
'Si la période par rapport à la date du jour est respectée
If MarqueChange Then
    MsgBox (" La durée légale dans la mobilisation étant échue depuis le : " & DateAdd("yyyy", PeriodeLegal(Me.TxtRefCorps), DateDernierChange)) & vbCrLf _
    & " l'intéressé sera mis en retraite définitive "
    DateNllePosition = DateAdd("yyyy", PeriodeLegal(Me.TxtRefCorps), DateDernierChange) - 1
    'Ajouter le nouveau statut du retraité avec la nouvelle date qui de toutes les façons sera <= à la date du jour
    strsql = "INSERT INTO CpositionRetraite ( RefContact, [Position], DatePosition )" _
            & " VALUES (" & Me.RefContact & "," & MaxPos & ",#" & Format(DateNllePosition, "yyyy/mm/dd") & "#)"
'Exécuter la requête ajout
    CurrentDb.Execute strsql, dbfailonerror
    Me.Requery
    Me.SF_PositionRetraite.Form.Requery
Else
    'Sinon
    MsgBox "La durée de la période légale de mobilisation n'est pas respectée !"
End If
 
End Sub

Cordialement