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;