Discussion :

[Nessie37]

Bonjour,

J'ai créé un bouton de commande avec le code suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Commande126_Click()
Me.AllowDeletions = True
 
If MsgBox("Vous êtes sur le point de supprimer définitivement un enregistrement. Cliquez sur OUI pour confirmer sinon NON.", vbQuestion + vbYesNo, "INFORMATION") = vbNo Then
Me.Undo
Cancel = True
Me.AllowDeletions = False
End If
 
End Sub

Mon form étant modif non autorisée, le but est de supprimer l'enregistrement après le message. Mais ... ça marche pas ! J'ai bien mon message d'erreur mais pas de suppression....

Help.

[Jean-Philippe André]

salut,
pourquoi ne passes-tu pas par une requête sql de suppression ?

[Nessie37]

Parce que mes connaissances en requêtes sont scolaires et se limitent à en faire en mode création.
De plus, j'avais oublié que les requêtes suppression existaient et tu me diras, je n'ai jamais su à quoi ça servait.

Est-ce que ça irait dans le sens de ce que je veux faire ?

[Jean-Philippe André]

je suppose que oui,
si tu as la clé primaire de ton enregistrement tu peux faire une requête du style

Code :

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

DELETE * FROM MaTable WHERE ClePrimaire = " & num_d'enregistrement

[Nessie37]

Oui mais la suppression, je la veux uniquement que sur le click du bouton de commande... je ne vois pas comment y arraiver avec cette requête

[Jean-Philippe André]

ben dans ton evenement clic de bouton, apres la demande a l'utilisateur, tu stocke la valeur de l'enregistrement, et tu fais un docmd.runsql la_requete_de_suppression