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';"