requete

Question

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

ddove53 · Answer

Renfield?Jack?

JPGVB · Answer

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

ddove53 · Answer

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.

cs_Jack · Answer

Je viens de te répondre sur la même question (aussi vague) posée hier ou avant-hier

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)

Requete

4 réponses

Votre réponse

Discussions similaires