Discussion :

[makila64]

Bonjour,
Je voudrais savoir s'il était possible de supprimer les enregistrement d'une table en fonction de l'année en cours. Par exemple aujourd'hui supprimer tous les enregistrements vieux de deux an c'est a dire de 2010 et donc l'année prochaine la macro supprimera tous les enregistrement de 2011.
J'ai essayé avec une requete suppression en passant par un code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DoCmd.OpenQuery "RQ_Sup_Histo"

mais avec une condition [Quel année ?] donc je suis a chaque fois obligée de préciser l'année.
Avec la nouvelle macro je voudrais par exemple supprimer aujourd'hui tous les enregistrements datant de deux ans c'est a dire de 2010 et donc l'année prochaine la macro supprimera tous les enregistrement de 2011.
Merci a vous pour votre aide ...

[marot_r]

Si tu veux que ce soit totalement automatique mettre dans la requettte dans la colonne de ta date la condition suivante :

<=DateAd("aaaa";-2;Date())

Cela va sélectionner tous les enregistrements vieux de plus de 2 ans par rapport à la date courante.

A+

[vodiem]

salut makila64 et marot_r

grillé par marot_r ^^ mais:
NomChampDate? pas date()? ;P

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

docmd.runsql "DELETE * FROM maTable WHERE monChampDate<dateadd("yyyy",-2,date())"

[makila64]

Merci à vous deux je vais essayer de combiner vos réponse.
J'ai voulu tester un nouveau code le voici :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub Commande59_Click()
If Val(Me.Annee) >= (Year(Date) - 1) Then
   MsgBox "Impossible de supprimer les années supérieure ou égale à " & Year(Date) - 1 & "  de la base", vbCritical
   Exit Sub
End If
Wan = Me.Annee
If MsgBox("Confirmer la suppression des Datas historique de  l'année " & Wan, vbQuestion + vbYesNo) = vbYes Then
    DoCmd.OpenQuery "RQ_Sup_Histo", acViewNormal, acEdit
 
    MsgBox "Données supprimées", vbInformation
End If
End Sub
 
Private Sub Form_Current()
Me.Annee = Year(Date) - 2
End Sub

Sauf que la requete supprime tous les enregistrement et non pas les enregistrement de l'année saisie dans le Me.Annee

[makila64]

Merci a vous pour votre aide en faite il fallai juste ajouter dans la requete dans le champs annee ceci :
[Forms]![Fr_Menu]![Annee]
Thks.