Discussion :

[Hamza]

Bonsoir,

Je n'arrive pas à comprendre où est le problème

Code :

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

1
2
fprincipale.THposte.Filter:='Date_Entrée <= '+FormatDateTime('dd/mm/yyyy', Now)+'AND Date_Sortie >= '+FormatDateTime('dd/mm/yyyy', Now);
fprincipale.THposte.Filtered:=true

La compilation compile correctement, mais quand j’exécute ça m'affiche l'erreur suivante :

les arguments sont de type incorrect, en dehors des limites autorisées ou en conflit les uns avec les autres

correction : sa marche bien, je me suis tromper au niveau des champ

Merci.

[solilog]

Salut,Et si tu utilisais OnFilterRecord ?
La propriété "Filter" te permet de faire des filtres simples, dans ton cas, utilise OnFilterRecord
Sur ta fiche, tu click sur ton dataset (ttable, tQuery, ...) F11 pour les propriétés, click l'onglet evenements, click sur OnFilterRecord. Le dataset en param c'est ta table, tu fais tes tests et renseignes Accept.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
procedure TForm1.Table1FilterRecord(DataSet: TDataSet;
  var Accept: Boolean);
begin
   Accept := ( (dataset . fieldbyname('data_Entree').asdatetime <= now ) 
   and (dataset . fieldbyname('Date_Sortie').asdatetime  >= Now )); 
  // ou si tu préfères 
  if (dataset . fieldbyname('data_Entree').asdatetime <= now ) 
   and (dataset . fieldbyname('Date_Sortie').asdatetime  >= Now ) then 
   Accept:= true 
   else accept:= false; 
end;

Cà devrait aller comme çà.
solilog

[JustMe]

Peut être que tu doit quoter tes dates avec QuotedStr:

Code :

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

1
2
fprincipale.THposte.Filter:='Date_Entrée <= '+QuotedStr(FormatDateTime('dd/mm/yyyy', Now))+' AND Date_Sortie >= '+QuotedStr(FormatDateTime('dd/mm/yyyy', Now));
fprincipale.THposte.Filtered:=true;