Problème "bouton supprimer" !
minimery
Messages postés
4
Date d'inscription
Statut
Membre
Dernière intervention
-
f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention -
Bonsoir,
j'ai crée une base données, et ajouter quelques informations dans le but de tester les bouton. Tous les bouton marche bien, a part le bouton supprimer : il supprime les premiers données sur la table et non pas les données sélectionnées.
Voici le code du bouton supprimer:
Set bd = CurrentDb
Set T = bd.OpenRecordset("décharge")
T.Delete
Form.Refresh
MsgBox "Suppression effectuée avec succès", vbInformation, ""
Mo = ""
TXT2 = ""
TXT3 = ""
TXT4 = ""
TXT5 = ""
TXT6 = ""
TXT7 = ""
TXT8 = ""
TXT9 = ""
TXT10 = ""
TXT11 = ""
TXT12 = ""
TXT13 = ""
TXT14 = ""
TXT15 = ""
Mo.SetFocus
End Sub
Merci
j'ai crée une base données, et ajouter quelques informations dans le but de tester les bouton. Tous les bouton marche bien, a part le bouton supprimer : il supprime les premiers données sur la table et non pas les données sélectionnées.
Voici le code du bouton supprimer:
Set bd = CurrentDb
Set T = bd.OpenRecordset("décharge")
T.Delete
Form.Refresh
MsgBox "Suppression effectuée avec succès", vbInformation, ""
Mo = ""
TXT2 = ""
TXT3 = ""
TXT4 = ""
TXT5 = ""
TXT6 = ""
TXT7 = ""
TXT8 = ""
TXT9 = ""
TXT10 = ""
TXT11 = ""
TXT12 = ""
TXT13 = ""
TXT14 = ""
TXT15 = ""
Mo.SetFocus
End Sub
Merci
A voir également:
- Problème "bouton supprimer" !
- Supprimer rond bleu whatsapp - Guide
- Supprimer page word - Guide
- Supprimer pub youtube - Accueil - Streaming
- Fichier impossible à supprimer - Guide
- Supprimer compte instagram - Guide
