Filtrer avec datatimepicker
Résolu/Fermé
fifisoum5
Messages postés
19
Date d'inscription
mercredi 8 avril 2015
Statut
Membre
Dernière intervention
7 mai 2015
-
26 avril 2015 à 18:05
nabil-bago Messages postés 255 Date d'inscription mercredi 22 mai 2013 Statut Membre Dernière intervention 24 novembre 2021 - 27 avril 2015 à 20:16
nabil-bago Messages postés 255 Date d'inscription mercredi 22 mai 2013 Statut Membre Dernière intervention 24 novembre 2021 - 27 avril 2015 à 20:16
A voir également:
- Filtrer avec datatimepicker
- Comment filtrer sur excel - Guide
- Comment créer un filtre avec une liste déroulante sur excel - Guide
- Filtrer les appels indésirables - Guide
- Trier avec Excel : toutes les méthodes de tri de données - Guide
- Vba filtrer selon valeur cellule ✓ - Forum Excel
1 réponse
nabil-bago
Messages postés
255
Date d'inscription
mercredi 22 mai 2013
Statut
Membre
Dernière intervention
24 novembre 2021
13
Modifié par nabil-bago le 26/04/2015 à 19:58
Modifié par nabil-bago le 26/04/2015 à 19:58
j'ai déjà cassé ma tete avec ce filtre, mais bon j'ai pas trouver une solution direct, mais j'ai trouvé une solution indirect LOL
donc je place un edit ( caché + readonly)
un datetimepicker ( dans l'evenement OnChange : edit1.text:=datetostr(datetimepicker1.date);
//donc l'edit reçoit automatiquement la date choisir dans le datetimepicker//
et puis je filtre avec le edit qui contient la date
Tpatients:= 'date_arrive='''+edit1.text+'''';
tpatients.filtred:=true;
donc je place un edit ( caché + readonly)
un datetimepicker ( dans l'evenement OnChange : edit1.text:=datetostr(datetimepicker1.date);
//donc l'edit reçoit automatiquement la date choisir dans le datetimepicker//
et puis je filtre avec le edit qui contient la date
Tpatients:= 'date_arrive='''+edit1.text+'''';
tpatients.filtred:=true;
27 avril 2015 à 00:43
peut être elle va t'aider
procedure TArchive.DateTimePicker1Change(Sender: TObject);
begin
datamodule2.ADOpatient.Filtered:=true;
datamodule2.ADOpatient.Filter:='DateExamPatient='+ QuotedStr(datetostr(DateTimePicker1.Date));
end;
27 avril 2015 à 10:34
par contre je pense que y'a une petite erreur dans l'ordre des instruction, ça doit etre :
begin
datamodule2.ADOpatient.Filter:='DateExamPatient='+ QuotedStr(datetostr(DateTimePicker1.Date));
datamodule2.ADOpatient.Filtered:=true;
end;
puisque on active le filtrage de table apres avoir donné la valeur de filtre
27 avril 2015 à 20:10
ben comme j'avais fais le filtrage je voulais que tous les patients arrivés de la date choisie soient tous archivés
mon code :
with datamodule2.ADOArchive do
begin
insert;
Fieldbyname('NPatient').AsString := datamodule2.ADOPatient.Fieldbyname('NPatient').AsString;
Fieldbyname('NomPatient').AsString :=datamodule2. ADOPatient.Fieldbyname('NomPatient').AsString;
Fieldbyname('PrenomPatient').asstring :=datamodule2. ADOPatient.Fieldbyname('PrenomPatient').AsString;
Fieldbyname('DateExamPatient').AsString := datamodule2.ADOPatient.Fieldbyname('DateExamPatient').AsString;
Fieldbyname('PrixTotalPatient').AsString := datamodule2.ADOPatient.Fieldbyname('PrixTotalPatient').AsString;
Fieldbyname('TauxTotalSS').AsString := datamodule2.ADOPatient.Fieldbyname('TauxTotalSS').AsString;
Fieldbyname('CompteRendu').AsString := datamodule2.ADOPatient.Fieldbyname('CompteRendu').AsString;
post;
end;
archive un par un un mais moi je souhaiterai archiver des dizaines au mm temps
:(
27 avril 2015 à 20:16