Bonjour à tous!
je suis entrain de chercher deux dates dans ma table , et j'utilise le Locate.
voici mon code :
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;
DATEDEB et DATEFIN sont les champs de ma table tbHisto_inout;
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.