Slt, pouvez-vous m'aider?Ma requete ne s'éxécute pas après le "else"
If dgsr1.Check50.Value = 1 Then
Dim sNom() As String
ReDim sNom(20)
For i = 1 To 20
sNom(i) = ""
Next
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
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
dgsr1.coche = True
Else
Me.Dat_financeurs.RecordSource "select [Ref reseau] ,[Nom Financeur] as [Financeur(s)], [Part Financeur] as [Part en %],[montant Financeur]as Montant from financeur where [ref reseau]" & glob_sres
Me.Dat_financeurs.Refresh
Me.Financeurs.MaxRows = Me.Dat_financeurs.Recordset.RecordCount
dgsr1.coche = False
End if
Bonjour, peux tu préciser sur quelle ligne ça plante, et à quel type de variable correspond glob_sres.
Accessoirement, quand tu fais
ReDim sNom(20) tu vides le contenu de sNom()
Donc il est probablement inutile de faire :
For i = 1 To 20
sNom(i) = ""
Next
Au fait ça plante pas pas mais je vois pas l'éxécution de la requete aprés le else.La première requete fonctionne et non la deuxième aprés le else.
glob_sres est une variable globale qui me permet de recupèrer les "id" au niveau de mes tables.
