Besoin de coup de main

Fermé
pipow - 30 mai 2012 à 15:30
Bonjour, SVP quelqu'un pourrait il m'aider à perfectionner ce bout de code Access?
car j'en ai vraiment besoin et c'est un peu urgent.Voila je suis stagiaire ds une boite et ya un gars qui a deja fait une application que je dois modifier.En gros j'ai des affaires avec des codes affaires.J'ai une table MOIS_PRECEDENT qui recupere les affaires du mois precedent puis une réquète (AR00 01a - Auto Revue Fixe Devis en Retard) qui est aussi dans un etat.Donc moi je dois faire un historique de sorte à afficher un oui devant les affaires qui figuraient le mois precedent et qui figurent encore ce mois ci.Je suis un debutant dans VB et voila le code que j'ai pu faire:
Public Sub compareBase()

Dim db As DAO.Database, rst As DAO.Recordset, fld As DAO.Field, rst2 As DAO.Recordset
Dim sSQL As String
Dim CODE As String
Set db = DBEngine.OpenDatabase("Q:\GHICHETIR\EXCELLENCE OPERATIONNELLE\essaie\essaie.MDB")

sSQL ="SELECT MOIS_PRECEDENT.AFF_CODE FROM MOIS_PRECEDENT"

Set rst = db.OpenRecordset(sSQL, dbOpenForwardOnly, dbReadOnly)

Do Until rst.EOF
CODE = rst.Fields("AFF_Code")

sSQL = "Select IIF([MOIS_PRECEDENT].[AFF_CODE]=(SELECT [AR00 01a - Auto Revue Fixe Devis en Retard - Sous Etat].AFF_CODE FROM [AR00 01a - Auto Revue Fixe Devis en Retard - Sous Etat]
WHERE [MOIS_PRECEDENT].AFF_CODE = [AR00 01a - Auto Revue Fixe Devis en Retard - Sous Etat].AFF_CODE),"DEVIS") FROM [MOIS_PRECEDENT]"
Set rst2 = db.OpenRecordset(sSQL, dbOpenForwardOnly, dbReadOnly)

rst2.Close
rst.MoveNext
Loop


rst.Close
End Sub
merci pour vos aides