Discussion :

[zanoubya]

Bonjour;
Mon problème c'est que je calcule un champ dans mon ADOQuery monétaire en se basant sur deux autres champs.Dans nomMonQuery j'ai mis currency en true pour tous les trois.
alors j'ai crée trois DBEdit text liés à trois champs A ,B et c dans ADOQuery la logique c'est que dans l'évènement onchange deDBEditA et DBEditB je mets à jour DBEditC selon ce code :

Code :

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

1
2
3
4
5
6
 
var av,av1 : real;
 av       := DBEditA.Field.Value;
 av1       := DBEditB.Field.Value;
 
DBEditC.Text :=  formatfloat('# #### ##0.00',(av+av1))+' '+ nomMonQuery.FieldByName('devise').AsString;

J'obtiens toujours ce message d'erreur : "Cannot convert variant of type Null into type Double " soit quand je change dans les valeurs de DBEditA ou DBEdiB en mode édition soit quand je lance mon form en mode insertion pour pouvoir créer un nouveau enregistrement .
Comment résoudre ce genre de problème???
Merci

[Just-Soft]

Salut;

moi j'aurais procédé ainsi :

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
 
var av,av1, r : real;
begin
   try
      av := DBEditA.Field.Value;
      av1 := DBEditB.Field.Value;
      r :=  nomMonQuery.FieldByName('devise').Value;
      // au lieu du pas à pas
      ShowMessage(FloatToStr(r));
      ShowMessage(FloatToStr(av+av1));
      ShowMessage(FloatToStr(av+av1+r));
      // si pas d'erreur alors 
      DBEditC.Text :=  formatfloat('# #### ##0.00',(av+av1))+' '+ r;
   except;  
      ShowMessage('Erreur, quelque part, à gérér !');
   end; 
end;

[philnext]

Le plus efficace pour ce type de problème est de mettre 0 en valeur par défaut dans les champs currency directement dans la base de données.

[zanoubya]

Ca passe Merciiiiiiii