requete et variableRésolu

Question

Slt, je veux recupérer les données dans mon champ [libellé] de ma table [Financeurs_OP] et les mettre dans une variable pour pouvoir utiliser la variable.
Dim i as integer
Dim var as String

For i = 1 To Me.Dat_financeurs.Recordset.Fields.Count
var(i) = [Financeurs_OP].[libellé]
Next i

C'est var(i) que je veux recupérer.Pouvez-vous me compléter?
Merci.

ddove53 · Accepted Answer

j'ai une ereur commme quoi "variable bloc non définie"
Dim tableau() As String

With Me.Dat_financeurs.Recordset. 

    ReDim Preserve tableau(1 To .RecordCount)

    Do Until .EOF 

        tableau(.AbsolutePosition) = .Fields("libellé") 

        .MoveNext 

    Loop 

End With

ddove53 · Answer

Renfield, té là?

ddove53 · Answer

klk1 peut me débloquer pleaz?

Renfield · Answer

pas sur d'avoir saisi...
tu souhaites : 

With Me.Dat_financeurs.Recordset. 
    Do Until .EOF
        var(.AbsolutePosition) = .Fields("libellé")
        .MoveNext
    Loop
End With


?

ddove53 · Answer

var(.AbsolutePosition) = .Fields("libellé")  fait quoi?
Au fait "libellé" est un champ de ma table et je souhaites recupérer les données de libellé et les mettre en variable.

ddove53 · Answer

Renfield t'as compris ma question?

Renfield · Answer

place dans un tableau var(1) à var(n) les differents libellés de ta base

ddove53 · Answer

désolé, mais peux-tu me donner un code exemple?

ddove53 · Answer

C'est comme ca que tu veux dire?

 Dim tableau() As Integer
 Dim intcompteur As Integer
 ReDim Preserve tableau(1 To Me.Dat_financeurs.Recordset.RecordCount)
 For intcompteur = 1 To Me.Dat_financeurs.Recordset.RecordCount
 tableau (intcompteur)
 Next
 intcompteur = .... c'est ici que je veux recupérer les données du champ "libellé"

Renfield · Answer

je t'ai filé le code déjà ce matin :

Dim tableau() As String
With Me.Dat_financeurs.Recordset. 
    ReDim Preserve tableau(1 To .RecordCount)
    Do Until .EOF 
        tableau(.AbsolutePosition) = .Fields("libellé") 
        .MoveNext 
    Loop 
End With

Renfield · Answer

point en trop en fin de ligne :
With Me.Dat_financeurs.Recordset.

ddove53 · Answer

oui,çà je l'avais corrigé.
Merci.

Renfield · Answer

tu as bien sur, dans ton code, fait une affectation de ce genre :

Set Me.Dat_financaurs.RecordSet = db.OpenRecordset(....)

ddove53 · Answer

oui, je te mets le code que j'ai fait.L'erreur qu'il me met"cet argument n'est pas facultatif".là ou j'ai mis en rouge.
Me.Dat_financeurs.DatabaseName = Bdd
With Me.Dat_financeurs.Recordset
Dim var(1 To 20)
For k = 1 To 20
var(k) = ""
NextSet Me.Dat_financeurs.Recordset Db.OpenRecordset ("SELECT Financeur.[Nom Financeur] From Financeur Where (((Financeur.[Ref reseau]) = 1)) ORDER BY Financeur.[codeFinanceur]")
rs3.MoveFirst
k = 1

    Do Until rs3.EOF
            var(k) = rs3![Nom Financeur]
            rs3.MoveNext
            k = k + 1
    Loop
 End With

Me.Dat_financeurs.Refresh
Me.Financeurs.MaxRows = Me.Dat_financeurs.Recordset.RecordCount

ddove53 · Answer

Autant pour moi, j'avais mis 2 fois égal mais toujours une erreur/ "variable with non défini et me souligne "rs3.MoveFirst"

Renfield · Answer

tu ne peux pas trier par codeFinanceur, si tu ne selectionne pas  ce champ...

Renfield · Answer

et rs3 n'est pas définit...

tu fais :
Set Me.Dat_financeurs.Recordset = db....

mets alors :

Setrs3 = db.open...

ddove53 · Answer

c vraio qu j'avais pas sélectionné le champ concerné, meme aprés correction je me retrouve avec l'erreur "opération non valide" avec  "rs3.MoveFirst".
Pour info j'avais déjà défini rs3 dans mon code.

Renfield · Answer

la variable est bien dimensionnée, certes, mais tu dois également le créer, ton recordset...


Me.Dat_financeurs.DatabaseName = Bdd
With Me.Dat_financeurs.Recordset
Dim var(1 To 20)
For k = 1 To 20
var(k) = ""
Next
Set Me.Dat_financeurs.Recordset Db.OpenRecordset ("SELECT Financeur.[Nom Financeur] From Financeur Where (((Financeur.[Ref reseau]) = 1)) ORDER BY Financeur.[codeFinanceur]")
set rs3 = Me.Dat_financeurs.Recordset  '<<<<<<<<<<<<<<<<<<<<<<
rs3.MoveFirst
k = 1

    Do Until rs3.EOF
            var(k) = rs3![Nom Financeur]
            rs3.MoveNext
            k = k + 1
    Loop
 End With

Me.Dat_financeurs.Refresh
Me.Financeurs.MaxRows = Me.Dat_financeurs.Recordset.RecordCount

ddove53 · Answer

sisi, t'as raison.
Merci, j'ai une autre question qui est presque une suite de celle là mais je vais repostuler.

Requete et variable

20 réponses

Votre réponse

Discussions similaires