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
Bonjour,
Un champ date nommé DateDépart.

Je voudrai effacé automatiquement les champ qui son inferieur a la date du jour ou 2 jours avant la date du jour
Un petite procedure conditionnelle
Une aide serait la bien venu pour ecrire cette procedure car je ne connais que trés peu VBA
Merci de votre aide

A voir également:

3 réponses

f894009 Messages postés 17206 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 22 novembre 2024 1 711
20 avril 2014 à 09:08
Bonjour,
'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
0
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
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
0
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
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
0
f894009 Messages postés 17206 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 22 novembre 2024 1 711
Modifié par f894009 le 21/04/2014 à 08:03
Bonjour,

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
0
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
Bonjour
Je te remercie , cela fonctionne maitenant
0