Base de données

Signaler
Messages postés
623
Date d'inscription
mardi 20 mars 2007
Statut
Membre
Dernière intervention
15 juin 2010
-
Messages postés
623
Date d'inscription
mardi 20 mars 2007
Statut
Membre
Dernière intervention
15 juin 2010
-
Slt pouvez-vous m'aider?Ma requete aprés le "else" ne s'éxécute pas.

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

sql_glob_rs = "SELECT Financeurs_OP.[Code Sres], [Code OT] & ' - ' & [libellé] AS Macrotaches, Financeurs_OP.Budget"
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

Me.Dat_financeurs.DatabaseName = Bddsql_glob_rs "SELECT Financeur.[Nom Financeur] From Financeur Where (((Financeur.[Ref reseau])" & glob_sres & ")) ORDER BY Financeur.[codeFinanceur]"

Me.Dat_financeurs.RecordSource = sql_glob_rs
Me.Dat_financeurs.Refresh
Me.Financeurs.MaxRows = Me.Dat_financeurs.Recordset.RecordCount
End If

2 réponses

Messages postés
623
Date d'inscription
mardi 20 mars 2007
Statut
Membre
Dernière intervention
15 juin 2010

Renfield?
Messages postés
623
Date d'inscription
mardi 20 mars 2007
Statut
Membre
Dernière intervention
15 juin 2010

Renfield té là?