Effacer un enregistrement sous condition
Résolu
castours
Messages postés
2955
Date d'inscription
Statut
Membre
Dernière intervention
-
castours Messages postés 2955 Date d'inscription Statut Membre Dernière intervention -
castours Messages postés 2955 Date d'inscription Statut Membre Dernière intervention -
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
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:
- Effacer un enregistrement sous condition
- Excel cellule couleur si condition texte - Guide
- Enregistrement mp3 gratuit - Télécharger - Streaming audio
- Comment effacer un compte gmail - Guide
- Comment effacer un iphone - Guide
- Effacer les données de navigation sur android - Guide
3 réponses
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
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
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