utiliser un champs de table en vb

[myriame]

Bonjour,
J'aimerai savoir si c'est possible d'utiliser un champs de table dans un code vb.
je m'explique davantage, j'ai créer une requête qui permette d'archiver des données de la table clients à la table archives et à la fin de la table archive on trouve un champs date_sauvegarde qui nous donne la date de sauvegarde de chaque enregistrement.
Cependant j'aimerai écrire un code me permettant de faire :

si dans date sauvegarde il y a tous les mois écoulé depuis la date d'aujourd'hui alors écrire "archivage déja effectué".

sinon
si dans date sauvegarde il manque des mois entre le début de l'année à aujourd'hui alors
écrire "Vous n'avez pas archivé le mois (manquant)"

Voilà en gros ce que j'aimerais faire, mais je ne sais pas si c'est possible et si oui je ne sais pas comment ?

en esperant avoir de l'aide merci

[marot_r]

La réponse courte est : Oui :-).

La réponse longue est sembable à :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private sub MAJChampArchive()
   dim db as dao.database:set db=currentdb
   dim r as dao.recordset:set r=db.OpenRecordset("NomTaTable")
   do while not r.eof
      if r![NomTonChampTest] répond à ton critère then 'Attention r![NomTonChampTest] répond à ton critère  n'est pas une syntaxe correcte, il faut l'adapter à ton besoin
            r.edit
            r![NomTonChampMessage]="Ton Message si OK"
            r.update
         else
            r.edit
            r![NomTonChampMessage]="Ton Message si pas OK"
            r.update
      end if

      r.movenext
   loop
   r.close:set r=nothing 'Libère la mémoire utilisée par l'objet
   db.close:set db=nothing 'Libère la mémoire utilisée par l'objet
end sub

Enfin si ton champ de test est simple tu pourrais aussi utiliser une requête de mise à jour (UPDATE) qui remplacerait le code ci-dessus.

A+