Aide V.B.A.

Bonjour,

Bonjourj'essai d'executer une requete sur VBA et ca ne marche po !! kelkun pe til ma'idez svp!!!!

c'est un pe lon g mais !!!!!j'espere bien trouvé de l'aide!!

'Declatarion des variables

Dim MyWS As Database, MyDB As Database, MyTd As Recordset, Monform As Form
Dim MyTA As Recordset, BILMENSTOTAUXCUMUL As Recordset, BILMENS_1 As Recordset, BILMENS_2 As Recordset, BILMENS_3 As Recordset
Dim SSTCOD As String, SSTRNOM As String, PER As Integer, SSTANN As String, SSTMOI As String, CAFR As String
Dim SommeDeQPIELIV As Integer, SommeDeQtencfe As Integer, SommeDeCAFR As Integer, SommeDeQtencfeCrit As Integer, SommeDeQtencfeNCrit As Integer
Dim SommeDeQtelivNCrit As Integer, SommeDeQtelivCrit As Integer, SommeDeCnqCrit As Integer, SommeDeCnqNCrit As Integer
Dim Qpieliv As Integer
Dim Nbreliv As Integer
Dim SommeDeNBRELIV As Integer
Dim Nbretot As Integer, Nsst As Integer, Somme1 As Integer, Som2 As Integer
Dim Pourvib As String, PCA As String
Dim Critique As Integer
Dim Cnq As String, crit1 As Integer, crit2 As Integer
Dim SNOTD As String, NOTC As String, NOTD As String
Dim Note1 As Integer, Note2 As Integer, Note3 As Integer
Dim ASQL As String
Dim requete As String
Dim datdeb As String, Datfin As String
Dim AQSSTONYX As Recordset
Dim Poursst As String, Pvib As String, Psst As String
Dim Vibcrit As Integer, VibNcrit As Integer, AnoOcrit As Integer, AnoONcrit As Integer


' Gestion d'erreur

'On Error GoTo TRAITER_ERRSY


'Procedure de consolidation

Set MyDB = CurrentDb()

'Creation de la table Bilmens
Set MyTd = MyDB.OpenRecordset("BILMENSCUMUL")

'Mize a zéro de la table

ASQL = "Delete * From BILMENSCUMUL;"
DoCmd.RunSQL ASQL

Set Monform = Forms![Bilan mensuel]





'Lecture de la table bilmens

requete = " SELECT DISTINCTROW BILMENSTOTAUXCUMUL.SSTCOD,BILMENSTOTAUXCUMUL.SSTRNOM, BILMENSTOTAUXCUMUL.SommeDeNBRELIV AS Nbreliv,[BILMENS_1].Nbretot,BILMENSTOTAUXCUMUL.SommeDeQPIELIV AS Qpieliv,[BILMEN_1].SommeDeQtencfe AS Somme1,BILMENSTOTAUXCUMUL.SommeDeCAFR AS CAFR,[BILMENS_1].SommeDeQtencfeCrit,[BILMENS_1].SommeDeQtencfeNCrit,[BILMENS_1].SommeDeQtelivNCrit,[BILMENS_1].SommeDeQtelivCrit,[BILMENS_1].SommeDeCnqCrit,[BILMENS_1].SommeDeCnqNCrit"
requete = requete & " FROM ((BILMENSTOTAUXCUMUL LEFT JOIN [BILMENS_1] ON BILMENSTOTAUXCUMUL.SSTCOD = [BILMENS_1].Codss) LEFT JOIN [BILMENS_2] ON BILMENSTOTAUXCUMUL.SSTCOD = [BILMENS_2].Codss) LEFT JOIN [BILMENS_3] ON BILMENSTOTAUXCUMUL.SSTCOD = [BILMENS_3].Codss"
requete = requete & " GROUP BY BILMENSTOTAUXCUMUL.SSTCOD,BILMENSTOTAUXCUMUL.SSTRNOM,BILMENSTOTAUXCUMUL.SommeDeNBRELIV,[BILMENS_1].Nbretot,BILMENSTOTAUXCUMUL.SommeDeQPIELIV,[BILMENS_1].SommeDeQtencfe,BILMENSTOTAUXCUMUL.SommeDeCAFR,BILMENS_1.SommeDeQtencfeCrit,[BILMENS_1].SommeDeQtencfeNCrit, [BILMENS_1].SommeDeQtelivNCrit, [BILMENS_1].SommeDeQtelivCrit,[BILMENS_1].SommeDeCnqCrit,[BILMENS_1].SommeDeCnqNCrit;"

Debug.Print requete

Set MyTA = MyDB.OpenRecordset(requete)
MErci!!!!