ddove53
Messages postés623Date d'inscriptionmardi 20 mars 2007StatutMembreDernière intervention15 juin 2010
-
28 mai 2008 à 18:06
cs_Jack
Messages postés14006Date d'inscriptionsamedi 29 décembre 2001StatutModérateurDernière intervention28 août 2015
-
29 mai 2008 à 14:14
Salut j'ai deux tables: Financeur et Financeurs_OP.
Je vérifie que [CPF]est>0, aprés je vérifie si check50 est vrai ou faux.
Si check50=1 je vais chercher des données dans ma table Financeurs_OP sinon je vais chercher des données dans Financeur.
Pouvez-vous me débloquer?Voici ce que j'ai essayé de faire:
End If sql1 "SELECT Financeur.[Ref reseau],,[Nom Financeur] as [Financeur(s)], [Part Financeur] as [Part en %],[montant Financeur]as Montant from financeur where [ref reseau]" & glob_sres
If dgsr1.Check50.Value = 1 Then
Dim sNom() As String
ReDim sNom(20)
Set Db = DBEngine.OpenDatabase(Bdd)
Set Rs = Db.OpenRecordset("SELECT [Nom Financeur],[codeFinanceur] " & _
"FROM [Financeur] " & _
"WHERE ([Ref reseau]=" & glob_sres & ") " & _
"ORDER BY [codeFinanceur] ", dbOpenForwardOnly)
i = 1
If dgsr1.Check50.Value = 1 Then
Do Until Rs.EOF
sNom(i) = Rs![Nom Financeur]
sql_glob_rs = sql_glob_rs & ", Financeurs_OP.Fin" & i & " as [" & sNom(i) & "]"
Rs.MoveNext
i = i + 1
Loop
sql_glob_rs = sql_glob_rs & " From Financeurs_OP WHERE (((Financeurs_OP.[Code Sres])=" & glob_sres & "))"
Me.Dat_financeurs.RecordSource = sql_glob_rs
Me.Dat_financeurs.Refresh
Me.Financeurs.MaxRows = Me.Dat_financeurs.Recordset.RecordCount
Else
Do Until Rs.EOF
sNom(i) = Rs![Nom Financeur]
sql1 = sql1 & ", Financeur.Fin" & i & " as [" & sNom(i) & "]"
Rs.MoveNext
i = i + 1
Loop
sql1 = sql1 & " From Financeur WHERE (((Financeur.[Ref reseau])=" & glob_sres & "))"
Me.Dat_financeurs.RecordSource = sql1
Me.Dat_financeurs.Refresh
Me.Financeurs.MaxRows = Me.Dat_financeurs.Recordset.RecordCount
cs_Jack
Messages postés14006Date d'inscriptionsamedi 29 décembre 2001StatutModérateurDernière intervention28 août 201579 29 mai 2008 à 14:11
Salut
Abondance de parentèses nuit à la clarté et à la compréhension. (c'est le dicton du jour)
Erreur de syntaxe : Quelle erreur ? que dit-elle ?
sur quelle ligne exactement ?
que vaut la variable de cette ligne au moment de l'erreur ? (voir fenêtre de debug (Ctrl-G) + "? maVariable" )
Vala
Jack, MVP VB NB : Je ne répondrai pas aux messages privés
<hr />Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)
Vous n’avez pas trouvé la réponse que vous recherchez ?
cs_Jack
Messages postés14006Date d'inscriptionsamedi 29 décembre 2001StatutModérateurDernière intervention28 août 201579 29 mai 2008 à 14:14
Je vois aussi deux virgules qui se suivent ici :
sql1 = "SELECT Financeur.[Ref reseau],,[Nom Financeur]
Pas normal
Je te conseille de visualiser le contenu de sql1 avant de le soumettre au moteur SQL :
Debug.Print sql1
Me.Dat_financeurs.RecordSource = sql1
et regarde dans la fenêtre de debug (Ctl-G)
Relis la syntaxe générée et trouve les anomalies, tu pourras alors savoir d'où vient le problème
Vala
Jack, MVP VB NB : Je ne répondrai pas aux messages privés
<hr />Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)