Effacer un enregistrement sous condition
Résolu/Fermé
castours
Messages postés
2955
Date d'inscription
lundi 18 septembre 2006
Statut
Membre
Dernière intervention
31 août 2019
-
19 avril 2014 à 16:50
castours Messages postés 2955 Date d'inscription lundi 18 septembre 2006 Statut Membre Dernière intervention 31 août 2019 - 21 avril 2014 à 10:32
castours Messages postés 2955 Date d'inscription lundi 18 septembre 2006 Statut Membre Dernière intervention 31 août 2019 - 21 avril 2014 à 10:32
A voir également:
- Effacer un enregistrement sous condition
- Excel cellule couleur si condition texte - Guide
- Effacer les cookies - Guide
- Que doit-il faire pour effacer les traces de sa navigation ? - Guide
- Comment effacer une page sur word - Guide
- Enregistrement vidéo écran - Guide
3 réponses
f894009
Messages postés
17185
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
15 avril 2024
1 701
20 avril 2014 à 09:08
20 avril 2014 à 09:08
Bonjour,
'ici code VBA pour un bouton de commande:
'ici code VBA pour un bouton de commande:
Private Sub Commande0_Click()
Dim RSql As String
'adaptez nom nom de la table et nom du champ, Date-x (nombre de jour(s)) si < a Date du jour - x jours
RSql = "delete * from [Table_Test] Where [Début]<#" & Date & "#;"
'desactivation alertes access pour confirmation suppression enregistrement(s)
DoCmd.SetWarnings False
'execution requete
DoCmd.RunSQL RSql
'activation alertes access
DoCmd.SetWarnings True
End Sub
castours
Messages postés
2955
Date d'inscription
lundi 18 septembre 2006
Statut
Membre
Dernière intervention
31 août 2019
217
20 avril 2014 à 22:27
20 avril 2014 à 22:27
Bonjour
Merci pour ton aide
J'ai modifié la procedure comme ceci
Est ce que ma modif est bonne?
Private Sub Commande0_Click()
Dim RSql As String
'adaptez nom nom de la table et nom du champ, Date-x (nombre de jour(s))
If < Date()- 2
RSql = "delete * from [T_Devis] Where [Début]<#" & Date & "#;"
'desactivation alertes access pour confirmation suppression enregistrement(s)
DoCmd.SetWarnings False
'execution requete
DoCmd.RunSQL RSql
'activation alertes access
DoCmd.SetWarnings True
End Sub
Merci pour ton aide
J'ai modifié la procedure comme ceci
Est ce que ma modif est bonne?
Private Sub Commande0_Click()
Dim RSql As String
'adaptez nom nom de la table et nom du champ, Date-x (nombre de jour(s))
If < Date()- 2
RSql = "delete * from [T_Devis] Where [Début]<#" & Date & "#;"
'desactivation alertes access pour confirmation suppression enregistrement(s)
DoCmd.SetWarnings False
'execution requete
DoCmd.RunSQL RSql
'activation alertes access
DoCmd.SetWarnings True
End Sub
castours
Messages postés
2955
Date d'inscription
lundi 18 septembre 2006
Statut
Membre
Dernière intervention
31 août 2019
217
20 avril 2014 à 22:31
20 avril 2014 à 22:31
Si c'est pas la bonne synthaxe
Le champ date date esr Date départ
Effacer juste qu'a 2 jours avant la date du jours
Merci de votre aide
Le champ date date esr Date départ
Effacer juste qu'a 2 jours avant la date du jours
Merci de votre aide
f894009
Messages postés
17185
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
15 avril 2024
1 701
Modifié par f894009 le 21/04/2014 à 08:03
Modifié par f894009 le 21/04/2014 à 08:03
Bonjour,
les conditions se font au niveau de la clause Where dans la requete SQL
les conditions se font au niveau de la clause Where dans la requete SQL
Private Sub Commande0_Click()
Dim RSql As String
'adaptez nom nom de la table et nom du champ, Date-x (nombre de jour(s)) si < a Date du jour - x jours
RSql = "delete * from [T_Devis] Where [Date départ ]<#" & Date - 2 & "#;"
'desactivation alertes access pour confirmation suppression enregistrement(s)
DoCmd.SetWarnings False
'execution requete
DoCmd.RunSQL RSql
'activation alertes access
DoCmd.SetWarnings True
End Sub
castours
Messages postés
2955
Date d'inscription
lundi 18 septembre 2006
Statut
Membre
Dernière intervention
31 août 2019
217
21 avril 2014 à 10:32
21 avril 2014 à 10:32
Bonjour
Je te remercie , cela fonctionne maitenant
Je te remercie , cela fonctionne maitenant
