Bonjour à tous!
je suis entrain de chercher deux dates dans ma table , et j'utilise le Locate.
voici mon code :
DATEDEB et DATEFIN sont les champs de ma table tbHisto_inout;
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10 procedure TMvtJourForm.SpeedButton3Click(Sender: TObject); var resultat :variant; begin resultat:=DM.tbHisto_inout.Locate('DATEDEB ; DATEFIN',VarArrayOf([DateJour1.Date,DateJour2.Date]),[]); if resultat then begin MessageDlg(' Cette date existe déjà !!! ', mtInformation,[mbOk],0); end; end;
DateJour1 et DateJour2 sont mes deux DateTimePicker qui permettent de choisir les dates;
il s'excute bien sans erreur , mais lorsque je clique sur ok dans mon programme, il m'affiche une erreur : la description des champs sont invalides.
Merci de m'aider.
Partager