Discussion :

[yanba]

Bonjour,

Je fais appel a cette procedure à partir d'un bouton. Celle-ci m'indique "violation d'acces". pourquoi ?

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
 
procedure CalculSolde;
var Calcul:real;
begin
    With DM.SoldeADOQuery do
      Begin
          Close;
          SQL.Clear; // Effacement de la requete
          SQL.Text:='select (sum(debit)-sum(remb)) As Calcul from Operations';
          Open;
          with Form1.DBTextSolde do
            begin
                If Calcul<0 then Font.Color:=clred
                else Font.Color:=clblack;
                DataField:='calcul';
            end;
      end;
end;

[Merlin]

il faudrait savoir sur quelle ligne tu as l'erreur ...
mais c'est que tu fais appel à un objet inexistant, dans ton code et sans autre précision c'est soit DM, soit form1

[Rayek]

Est ce que ton DbText est relié à un datasource et ce dernier est il relier à la requete SoldeADOQuery ?

[yanba]

- Mon DbText est bien relié à un datasource et ce dernier est bien relié au SoldeADOQuery.

- Voila mon code actuel en version light :

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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
 
procedure FormCreate(Sender: TObject);
procedure CalculSolde;
private
{ Déclarations privées }
public
{ Déclarations publiques }
end;
 
var
Form1: TForm1;
 
implementation
 
uses Data_Module;
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
      ...
     CalculSolde;
end;
 
procedure TForm1.CalculSolde;
var Calcul:real;
begin
    With DM.SoldeADOQuery do
      Begin
          Close;
          SQL.Clear; // Effacement de la requete
          SQL.Text:='select (sum(debit)-sum(remb)) As Calcul from Operations';
          Open;
          with Form1.DBTextSolde do
            begin
                If Calcul<0 then Font.Color:=clred
                else Font.Color:=clblack;
                DataField:='calcul';
            end;
      end;
end;

Et j'ai le message d'erreur des la 1° ligne : With DM.SoldeADOQuery do

[Cl@udius]

Salut,

Vérifie que ton DataModule est bien créé avant ta fiche ! (Projet | Options). C'est doit être ca !

@+

[yanba]

Oups, je recommence ...

Claudius40 : En plus je le savais ...
J'ai rajouté ceci :

Code :

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

1
2
3
4
5
6
7
 
procedure TForm1.FormCreate(Sender: TObject);
begin
      DM:=TDM.Create(Application);
      ...
      CalculSolde;
end;

Cette fois-ci, j'ai le message d'rreur suivant :
"Champs calcul non trouvé" au niveau de "DataField:='Calcul';"

[yanba]

Meme lorsque je la declare en double, ca marche pas. Je suis entrain de faire n'importe quoi ...

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
 
var Calcul:double;
begin
    With DM.SoldeADOQuery do
      Begin
          Close;
          SQL.Clear;
          SQL.Text:='select (sum(debit)-sum(remb)) As Calcul from Operations';
          Open;
          Calcul:=FieldByName('Calcul').AsFloat;
          with DBTextSolde do
            begin
                If Calcul<0 then Font.Color:=clred else Font.Color:=clblack;
                DataField:='Calcul';
            end;
      end;

[Cl@udius]

Re,

J'ai l'impression que tu te compliques la tâche.
A la conception lie ton DBText 'DBTextCalcul' à ton Champ 'Calcul', et supprime la ligne 'DataField := 'Calcul';' de ta procédure !

@+

[Cl@udius]

Le code pourrait être celui-ci:

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 CalculSolde;
var
  Calcul:Currency;
begin
    With DM.SoldeADOQuery do
      Begin
          Close;
          SQL.Clear; // Effacement de la requete
          SQL.Text:='select (sum(debit)-sum(remb)) As Calcul from Operations';
          Open;
          with Form1.DBTextSolde do
            If Calcul<0 then
              Font.Color:=clred
            else
              Font.Color:=clblack;
          end;
      end;
end;

[yanba]

Cette fois, j'ai pas de message d'erreur, mais je n'ai aucun resultat qui s'affiche.
Quand je fais f7, j'ai : calcul=4.12232e+12

[Cl@udius]

Je ne comprends pas, ton TDBText est bien lié au champ Calcul de ta requête ?

[yanba]

J'ai ceci :
- Unit Data_Module avec un adoconnection relié avec un dataset relié avec une adotable + un adoquery.
- Unit Menu avec un dbgrid qui est relié avec mon datasource - Ok
et un DBText relié avec datasource et datafield=calcul (comme tu l'as dit).

Aurai-je oublier quelque chose ?

[Cl@udius]

Ben a priori je dirais que tu n'as rien oublié !

Pour faire un test, ajoute le champ calcul dans ton DBGrid (si c'est bien ta requête qui y est relié) afin de vérifier si il affiche les résultats.

@+

[Rayek]

Ton SoldeAdQuery est il bien relié à l'adoconnection ?

[yanba]

J'ai rien compris. J'ai tout recommencé, tout refait. A mon avis, j'ai refait pareil, mais là ca marche.

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
 
procedure TForm1.CalculSolde;
var Calcul:Currency;
begin
    With DM.SoldeADOQuery do
      Begin
          Close;
          SQL.Clear;
          SQL.Text:='select (sum(debit)-sum(remb)) As Calcul from Operations';
          Open;
          with Form1.DBTextSolde do
            Begin
                If Calcul<0 then Font.Color:=clred else Font.Color:=clgreen;
                DataSource:=DM.DSSolde;
                DataField := 'Calcul';
            end;
      end;
end;

Sauf qu'il ne respecte pas ma condition de couleur ... Ma couleur est toujours vert. Vais-je y arriver un jour ????????

[Rayek]

Il faudrait peut etre que tu la récupères cette valeur calcul ^^

Code :

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

1
2
3
4
5
6
7
8
 
with Form1.DBTextSolde do
Begin                
  Calcul := FieldByName('Calcul').asfloat;
  If Calcul<0 then Font.Color:=clred else Font.Color:=clgreen;            
  DataSource:=DM.DSSolde;                
  DataField := 'Calcul';           
end;

[yanba]

En relisant tous mes messages, je venais juste de me rendre compte de mon oubli.
A force de lire et relire, je ne voyais plus rien.

Merci.