Bonjour à Tous

J'ai un petit pb :

voilà j'ai un sous formulaire frm_l_mvt_1 dans ce formulaire j'ai ajouté un bouton (signe moins) qui s'appelle BtSupprimer

pour ce form j'ai codé :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
 
Private Sub BtSupprimer_Click()
 
      Me.AllowDeletions = True
    VG_Ret_Fonc = FB_Supprimer()
    Me.AllowDeletions = False
 
End Sub
dans un module j'ai codé

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Function FB_Supprimer()
On Error GoTo Err_FB_Supprimer
 
    DoCmd.RunCommand acCmdSelectRecord
    DoCmd.SetWarnings False
    DoCmd.RunCommand acCmdDeleteRecord
    DoCmd.SetWarnings True
 
Exit_FB_Supprimer:
    Exit Function
 
Err_FB_Supprimer:
    MsgBox "Commande Suppression non disponible !"
    Resume Exit_FB_Supprimer
 
End Function
Quand j'active ce bouton. A l'écran la ligne est bien supprimé. Par contre le message d'erreur Commande Suppression non disponible apparaît. En fait je ne comprends pas trop pourquoi si ce n'est que le record n'est pas vraiment supprimé. Si qqn voit. merci d'avance