Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access suppression d'un enregistrement 2

suppression d'un enregistrement 2

6 réponses
Avatar
le meruvien
bonjour,
ce que je voudrai, moi, ce n'est pas un bouton pour supprimer un
enregistrement , mais un message quand on appuie sur la touche "suppr" !
J'ai essayer de mettre tout ça aux proipriétées :

avant suppression et avant suppression, mais ça ne fonctionne pas, ça
supprime la ligne selectionnée sans demander de confirmation
merci
Signaler un problème avec ce contenu

6 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Raymond [mvp]
Bonjour.

utilises l'événement Form_BeforeDelConfirm dans lequel tu places ton message
de confirmation et tu charges cancel à true pour annuler la suppression.
Private Sub Form_BeforeDelConfirm(Cancel As Integer, Response As Integer)


--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"le meruvien" a écrit dans le message de news:
41d01d6e$0$951$
bonjour,
ce que je voudrai, moi, ce n'est pas un bouton pour supprimer un
enregistrement , mais un message quand on appuie sur la touche "suppr" !
J'ai essayer de mettre tout ça aux proipriétées :

avant suppression et avant suppression, mais ça ne fonctionne pas, ça
supprime la ligne selectionnée sans demander de confirmation
merci





Avatar
le meruvien
bonjour Raymon, je l'ai placé a la propriété "avant suppression", ça marche
si j'utilise un bouton, mais pas si j'appuie sur la touche "suppr"



"Raymond [mvp]" a écrit dans le message de
news: OwWV%
Bonjour.

utilises l'événement Form_BeforeDelConfirm dans lequel tu places ton
message de confirmation et tu charges cancel à true pour annuler la
suppression.
Private Sub Form_BeforeDelConfirm(Cancel As Integer, Response As Integer)


--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"le meruvien" a écrit dans le message de news:
41d01d6e$0$951$
bonjour,
ce que je voudrai, moi, ce n'est pas un bouton pour supprimer un
enregistrement , mais un message quand on appuie sur la touche "suppr" !
J'ai essayer de mettre tout ça aux proipriétées :

avant suppression et avant suppression, mais ça ne fonctionne pas, ça
supprime la ligne selectionnée sans demander de confirmation
merci









Avatar
Raymond [mvp]
pour que la touche suppress fonctionne sur le formulaire(1 enregistrement),
il faut d'abord sélectionner l'enregistrement, sinon cette touche ne
concerne que le contrôle actif et ne supprime que le dernier caractère
frappé ou sélectionné.

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"le meruvien" a écrit dans le message de news:
41d039be$0$15038$
bonjour Raymon, je l'ai placé a la propriété "avant suppression", ça
marche si j'utilise un bouton, mais pas si j'appuie sur la touche "suppr"


Avatar
le meruvien
merci, elle fonctionne quand j'ai un enregistrement de selectionné, mais
justement je voudrai soit quelle ne fonctionne pas, ou au moins pouvoir
mettre un message de confirmation, (comme avec mon bouton! )




"Raymond [mvp]" a écrit dans le message de
news:
pour que la touche suppress fonctionne sur le formulaire(1
enregistrement), il faut d'abord sélectionner l'enregistrement, sinon
cette touche ne concerne que le contrôle actif et ne supprime que le
dernier caractère frappé ou sélectionné.

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"le meruvien" a écrit dans le message de news:
41d039be$0$15038$
bonjour Raymon, je l'ai placé a la propriété "avant suppression", ça
marche si j'utilise un bouton, mais pas si j'appuie sur la touche "suppr"






Avatar
Raymond [mvp]
Il faut que tu testes si la touche a été enfoncée sur l'événement KeyDown.
exemple:
Private Sub Texte0_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyDeleteThen
MsgBox " Vous ne pouvez pas enfoncer la touche suppression."
KeyCode = 0
End If
End Sub


--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"le meruvien" a écrit dans le message de news:
41d1846b$0$31598$
merci, elle fonctionne quand j'ai un enregistrement de selectionné, mais
justement je voudrai soit quelle ne fonctionne pas, ou au moins pouvoir
mettre un message de confirmation, (comme avec mon bouton! )



Avatar
Eric
"le meruvien" écrivait

merci, elle fonctionne quand j'ai un enregistrement de selectionné,
mais justement je voudrai soit quelle ne fonctionne pas, ou au moins
pouvoir mettre un message de confirmation, (comme avec mon bouton! )



Une solution mais pas forcément harmonieuse car la demande de confirmation
arrivera même si tu utilises la touche Suppr pour effacer un caractère dans
une zone de texte. Donc ...

1ere Sol :

Mettre Propriété du formulaire Aperçu des touches à Oui
Et évènement Sur touche Appuyée :
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = bKeyDelete Then
If MsgBox("Suppression enregistrement ", _
vbYesNo + vbQuestion + vbDefaultButton2) = vbYes Then
DoCmd.SetWarnings False
DoCmd.RunCommand acCmdDeleteRecord
DoCmd.SetWarnings True
End If
End If
End Sub

2eme sol : Empêcher la touche Suppr

Aperçu des touches à Oui
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyDelete Then
MsgBox "Suppressoin Impossible", vbInformation
KeyCode = 0
End If
End Sub

--
A+
Eric

Lien à suivre : http://users.skynet.be/mpfa/