Discussion :

[redoran]

Bonjour ; j'ai un tableau (canevas) imposé former comme suite sur word :

1. catégorie I :............. // champ a renseigné,
2. Catégorie 2:..............// champ a renseigné,
3. Catégorie 3: .............// champ a renseigné,

ce tableau est renseigné manuellement par l'utilisateur en se basant sur un comptage manuel des catégories a partir d'un registre.
j'ai automatiser cette opération dans mon logiciel [d7+access] comme suite :

1. Catégorie 1 : edit1.text;
2. catégorie 2 : edit2.text;
3. catégorie 3 : edit 3.text;

je doit respecté la disposition des champs selon le forme citée ci dessus ( dans word).
Problème:

1. ce que j'arrive pas a afficher les valeurs de la requête ( la requête "left join" génère 03 lignes) dans les edites selon la catégories....?
   

le dbedit me donne le premiers résultat !!!!!
bdctrlgrid il affiche les résultats de la requête , mais j'arrive pas a extraire la valeur de chaque ligne de ce dernier pour l'utilisé dans un autre calcul..

[redoran]

voila j'ai réussi à récupéré 03 champs avec le code suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
procedure TForm1.Button1Click(Sender: TObject);

begin
with table1  do
  begin
  if table1.RecNo> 0
     then
     begin
        // affecté première valeur du dbgrid dans edit1
        edit1.Text:= table1.Fields.Fields[0].AsString;
        next;  // affecté 2 eme valeur du dbgrid dans edit2
        edit2.Text:=table1.Fields.Fields[0].AsString;
        next;  // affecté 3 eme valeur du dbgrid dans edit3
        edit3.Text:=table1.Fields.Fields[0].AsString;
      end;

  end;

end;

je c'est du bricolage ; reste à amélioré pour l'instant .
une idée

[Just-Soft]

Bonjour

est-ce que c'est toujours 3 lignes ? si c'est le cas alors je crois qu'un test sur le nombre de ligne s'impose sinon avertir l'utilisateur :

if Table1.RecordCount < 3 then ShowMessage('Ton message')

autre chose, le RecCount est parfois "trompeur" à ce sujet tu peux consulter la FAQ pour surpasser cette ambiguïté.

[redoran]

Bonjour ; merci just pour vos conseilles.
3 lignes issues d'une requête "left join" avec une table 2 donc c'est stable , si y'as pas d'enregistrement dans la table 2 , les champs prennent zéro comme valeur.
merci encore une fois.

[SergioMaster]

Moi je voudrais bien voir
- la description de la table
- la requête

[redoran]

ok sergio ; quelques minutes

requête :

Code sql :

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

1
2
3
SELECT CATEG.CATEG, Count(MOUVEMENTS.CATEG) AS CompteDeCATEG
FROM CATEG LEFT JOIN MOUVEMENTS ON CATEG.CATEG = MOUVEMENTS.CATEG
GROUP BY CATEG.CATEG;

Tables :
table 1 : catégorie (Idcateg, Categ,....)
Table 2 : mouvements (Idmouv, categ ,mouvement,..)

NB/ pour les requêtes je fait des simulations sur access pour gagner du temps ensuite je recopie la requête dans adoquery.