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
3 réponses
-
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 -
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-
-
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
-
-
Bonjour
Je te remercie , cela fonctionne maitenant
