Discussion :

[lola06]

Bonjour,
je débute en VBA Access et j'aurai besoin de votre aide.
Je souhaiterai ici n'effacer que les enregistrements dont l'année est égale à l'année saisie par l'utilisateur.
J'ai essayé plein de truc mais j'y arrive toujours pas.
Voici le code :

Sub Annuelle()

'on veut créer une macro qui archive tous les ans les enregistrements

Dim a%, année%

'utilisateur entre l'année qu'il veut archiver

a% = InputBox("De quelle année sont les données que vous souhaitez exporter ?", "Choix de l'année", "écrire ici")

'on récupère année en cours : utilisateur ne peut pas archiver tant que année n'est pas finie

année% = Year(Now)

'on vérifie si année entrée est bien possible

If ((a% < 1970) Or (a% > année%)) Then

MsgBox ("Ce n'est pas possible !!!")

ElseIf (a% = année%) Then

MsgBox ("L'année " & année% & " n'est pas encore finie!!!")

Else

'on copie la table dans Access

DoCmd.CopyObject "", "ARRET_Archive_" & a%, acTable, "ARRET2"

'on veut supprimer les enregistrements de année a%

DoCmd.RunSQL "DELETE FROM ARRET2 WHERE 'Année' = 'a%' ;"

End If

End Sub

Si quelqu'un pouvait m'aider ca serait super...
Merci beaucoup

[al1_24]

Ce qui appartient au Langage SQL dans ton code est cette seule ligne :

Code :

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

"DELETE FROM ARRET2 WHERE 'Année' = 'a%'"

Et ton problème vient de la construction de ta requête :

Code :

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

"DELETE FROM ARRET2 WHERE [Année] = '" + a% + "'"

Je connais mal VBA, l'opérateur de concaténation n'est peut-être pas le +

[Mathusalem]

Alors déjà bienvenue sur ce forum

Ensuite si tu nous donnais l'erreur que ça renvoie, parce qu'on est pas medium

Deuxièmement, tu es précisément dans le forum SQL, pas VBA, on ne peut t'aider que pour le SQL (pas de mauvaise volonté, compétence plutôt...)

Code :

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

DELETE FROM ARRET2 WHERE Année = 1999

est correct

soit sure que ton code concatène bien la variable qui contient l'année au reste de la chaine de caractère.

Code :

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

"DELETE FROM ARRET2 WHERE Année =" + annee + ";"

[lola06]

Merci de m'avoir répondu si vite
En fait chaque fois le problème vient de là où est écrit le code SQL après VBA marche.

Voici l'erreur:

Erreur d'éxécution '3464'
Type de données incompatibles dans l'expression du critère

[lola06]

Voilà j'ai réussi en mélangeant un peu de tout
merci de m'avoir aidée...

[lola06]

Pour ceux que ça interesse voilà la ligne de code finale pour supprimer les enregistrements d'une année donnée :

Code :

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

 db.Execute "DELETE FROM ARRET2 WHERE Année = " & a% & ";"

Merci encore à ceux qui m'ont aidée...