Discussion :

[Malick]

J'ai un formulaire tabulaire et au niveau de chaque ligne, j'ai un bouton pour supprimer l'enregistrement courant. Le code associé à ce bouton est le suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Btn_Remove_Click()
    On Error Resume Next
    Dim reponse As Integer
    reponse = MsgBox("Souhaitez-vous supprimer cette entrée ?", vbQuestion + vbYesNo, "Suppression")
    If reponse = 7 Then Exit Sub
        DoCmd.SetWarnings False
        DoCmd.RunCommand acCmdSelectRecord
        'Exécution de la commande
        DoCmd.RunCommand acCmdDeleteRecord
        DoCmd.SetWarnings True
    Me.Refresh
End Sub

Le clic sur le bouton ne déclenche pas de suppression ; Je n'ai aucun message d'erreur et l'enregistrement courant n'est pas supprimé.

Merci de bien vouloir m'aider à identifier pourquoi ce code ne fonctionne pas avec ma nouvelle base de données.

Pourtant le même code fonctionne très bien sur une autre base de données Access 2013 que j'utilise.

Merci d'avance

Malick

[Malick]

Finalement j'ai trouvé le problème ; en effet, il fallait définir la propriété Suppression autorisée du formulaire à Oui.

Merci à tout le monde

Malick