Discussion :

[Flavien44]

Bonjour

Je veux sous Access 2002 remplir mes text box en parcourant mes tables.
J'ai donc installer la reference Microsoft DAO 3.6Object Library,
et je me sert de recordset et de requete SQL pour parcourir mes données.
Cependant mon probleme est que:
J'ai une requette qui me retourne une seule ligne de donnée (ce que je souhaite)
Je souhaite parcourir cette ligne jusqu'a la fin pour a chaque champ remplir un text box
Mais je ne sais pas lorsque j'arrive a la fin et donc il me met une erreur comme quoi le champ que je cherche n'existe pas.
Donc comment puis-je savoir que j'arrive a la fin de ma ligne?

J'ai essayer oRst.EOF, mais il ne passe jamais a True, donc je pense que ce n'est pas ca, ou alors j'ai oublier de faire des inintialisations?

Pour info, voici mon code avec EOF (qui ne marche pas evidement):

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
I = 1
Do While oRst.EOF = False
    'While we are not at the last case of the record
    If oRst.Fields(I ).Value > 0 Then
        'Write the field (e.g.: Software)
        Call Write_In_Box(Current_Line, "Middle", oRst.Fields(I ).Name)
        'Write The value
        Call Write_In_Box(Current_Line, "Right", oRst.Fields(I ).Value)
        Current_Line = Current_Line + 1
    End If
    I = I + 1
Loop

D'avance Merci pour vos reponses

[cavo789]

N'aurais-tu pas oublier oRst.MoveNext dans ta boucle ?

[Flavien44]

Non, il ne m'ai pas utile ici car si j'ai bien compris (ce qui n'est pas sur)
rst.MoveNext sert a aller a l'enregistrement suivant.
Alors que moi je n'ai qu'un enregistrement et ce que je veut, c'est aller au champs suivant.

[Flavien44]

J'ai la reponse meme si ce n'est pas moi qu'il l'ai trouver.
Il suffit de rajouter le code suivant:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
nb_champs = rst1.Fields.Count
Do while nb_champs > 0
      (...)
      nb_champs = nb_champs - 1
Loop

Cela permet de compter les champs et de s'arreter a temps.

Voila probleme resolu.

A bientot

[cavo789]

Tu parlais de oRs.Eof; de là j'ai pensé que tu voulais passer à un autre record.