Discussion :

[smail21]

je veux filtrer une table ayant un champs reférancé 'Date'
le filtre est correct :

Code :

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

1
2
3
4
 
Filtre:=Concat('(RefDate >='+Edit17.text+') and (RefDate <='+Edit18.text+')' );
 art_entree.Filter:=Filtre;
art_entree.Filtered:=True;

le filtre est correct mais à l'execution il affiche un message d'erreur : "arithméthique non supporté dans les expressions filtre."


que dois-je faire

[delphichem]

Essaies

Code :

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

Filtre:='(RefDate >='''+Edit17.text+''') and (RefDate <='''+Edit18.text+''')' ;

[bassim]

Slt,
Moi j'ai utilisé l'evenement "OnFilterRecord" d'un TTable et j'ai mis dedans du code suivant :

Code :

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

1
2
3
with MaTable  do
      Accept:=( StrToDate(FieldValues['MaDate'])>=DateDebut ) and
        (StrToDate(FieldValues['MaDate'])<=DateFin);

Moi aussi j'ai essayé comme t'as fait toi Smile21 et j'ai eu le même message d'erreur !

[delphichem]

Slt,
Moi j'ai utilisé l'evenement "OnFilterRecord" d'un TTable

Cette solution n'est valable que si tu utilises le même filtre pour cette table, sinon, si tu veux filtrer avec d'autre critères, tu devra desactivé OnFilterRecord.
Si tu n'utilises pas d'autre filtre utilise "OnFilterRecord" sinon il vaut mieu ne pas l'utiliser.

[smail21]

delphichem : j'ai fait ça et ça ne marceh pas! c'ts toujours le meme message d'erreur
donc ce n'ets pas le filtre qui est mal exprimé mais un probleme de filtrage

pour le 'onfilterrecords' je ne crois pas que c'est valable pour moi, car la table subit plusieurs filtre !
donc j'attends plus de réponse et merci d'avance

[delphichem]

Je viens de tester et ça fonctionne tres bien chez moi

Code :

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

Filtre:='(RefDate >='''+Edit17.text+''') and (RefDate <='''+Edit18.text+''')' ;

Base de donnée Paradox
RefDate est de type date
le contenu de Edit17.text et edit18.text sont des chaines de caractères qui contiennent des dates valides (en fonction du séparateur de date).

Ex:

Code :

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

1
2
Edit17.text := '01-01-1990';
Edit18.text := '31-12-2005';

Dans ma machine le séparateur de date est '-'.

[bassim]

Je viens de tester et ça fonctionne tres bien chez moi

Moi , j'ai essayé un code qui lui ressemble mais ça ne marche pas ;
Le voici

Code :

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

Filter:='(Date>='''+QuotedStr(DateToStr(DateM))+''') and (date<='''+QuotedStr(DateToStr(DateMFin))+''')'

ou
Date = un champ de type 'date' d'une table PARADOX
DateM et DateMFin = Dates de type TDateTime

[smail21]

Pardos delphichem:
votre code marche très bien je croyais ue c'etait le meme que le miens, alors qu'il y'avait dans ton code , des quotes doublées

Code :

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

Filtre:='(RefDate >='''+Edit17.text+''') and (RefDate <='''+Edit18.text+''')' ;

merci

[delphichem]

Ya pas de problême, mais n'oublie pas le tag Resolu

[delphichem]

Moi , j'ai essayé un code qui lui ressemble mais ça ne marche pas ;
Le voici

Code :

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

Filter:='(Date>='''+QuotedStr(DateToStr(DateM))+''') and (date<='''+QuotedStr(DateToStr(DateMFin))+''')'

Attention si tu utilises QuotedStr n'utilise pas les double cotes, moi personnellement je prefer ne pas utiliser QuotedStr sinon voici le code avec QuotedStr

Code :

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

Filter:='(Date>='+QuotedStr(DateToStr(DateM))+') and (date<='+QuotedStr(DateToStr(DateMFin))+')'

[smail21]

je ne peux pas mettre le tag Résolu, car y'a bassim qui n'a pas encore réglé son probleme, sinon ça poura l'exclure d'eventuelles solutions apportées par d'autres surfeurs!
tu voi sbasim je pense à toi

[bassim]

Oui Delphichem ton code marche à merveille !

tu voi bassim je pense à toi

Heureusement qu'il y a des gens qui pensent à moi

Vous pouvez maintenant fermer la porte les gars ,

A bientot pour un autre sujet