Salut,
Quand je veux executer ce code j'ai le message d'erreur suivant :
Query1: impossible d'effectuer cette operation sur un ensemble de donnees fermé
et quand je veux mettre, dans l'inspecteur d'objet la valeur active a true j'ai un autre message d'erreur :
Query1 : Aucune instruction SQL disponible
 
Alors comment faire pour sortir de ce cercle vicieux ?!!!
      {-------------------------------------------}
with DM.Query1 do
begin
 Close;
 with SQL do
 begin
   Clear;
   Add('Select * From Kiosque, Fact, Numero ';
   Add('Where (Ref=:mref) and (kiosque.ref=fact.ref) ';
   Add('and(kiosque.ref=numero.ref) and (BIM=:mbim) ';
   Add('and(VINGT=:mvingt) and(NAPPEL LIKE :mpq) ';
 end;
 Params[0].AsString := DM.Kiosque.FieldByName('ref'.AsString;
 Params[1].AsString := b;
 Params[2].AsString := v;
 Params[3].AsString := Edit1.Text+'%';
 Open;
 end;

C'est sur cette ligne la  
Params[0].AsString := DM.Kiosque.FieldByName('ref'.AsString
 
Ta table kiosque n'est pas ouverte.