Bonsoir,

j'ai deux requetes Insert et Update qui fonctionnent a merveille mais affiche malgré tout une erreur de violation d'accés qui ressurgit et ça fait tache pour l'utilisateur
comment faire? merci d'avance.

1ere req:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
 Close;
          SQL.Clear; 
           SQL.Add('INSERT INTO Depenses (debutsemaine, finsemaine, Dep)');
           SQL.Add('VALUES (=:debutsemaine1, =:finsemaine1, =:Dep)');
      Parameters.ParamByName('debutsemaine1').DataType:=ftDate;
     Parameters.ParamByName('finsemaine1').DataType:=ftDate;
      if DayOfWeek(PlannerCalendar7.Date)=1 then
    begin Parameters.ParamByName('debutsemaine1').Value:=StartOfTheWeek(PlannerCalendar7.date)+6;
          Parameters.ParamByName('finsemaine1').Value:=EndOfTheWeek(PlannerCalendar7.date)+5; end
    else begin Parameters.ParamByName('debutsemaine1').Value:=StartOfTheWeek(PlannerCalendar7.date)-1;
    Parameters.ParamByName('finsemaine1').Value:=EndOfTheWeek(PlannerCalendar7.date)-2;end;
           Parameters.ParamByName('Dep').Value:=MoneyEdit1.Text;
           ExecSQL;
2eme req:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
          Close;
          SQL.Clear;
          SQL.Add('UPDATE Depenses set Dep=:Dep');
          SQL.Add('where FORMAT(debutsemaine,"dd/mm/yyyy") =:debutsemaine1 and FORMAT(finsemaine,"dd/mm/yyyy") =:finsemaine1');
      Parameters.ParamByName('debutsemaine1').DataType:=ftDate;
     Parameters.ParamByName('finsemaine1').DataType:=ftDate;
      if DayOfWeek(PlannerCalendar7.Date)=1 then
    begin Parameters.ParamByName('debutsemaine1').Value:=StartOfTheWeek(PlannerCalendar7.date)+6;
          Parameters.ParamByName('finsemaine1').Value:=EndOfTheWeek(PlannerCalendar7.date)+5; end
    else begin Parameters.ParamByName('debutsemaine1').Value:=StartOfTheWeek(PlannerCalendar7.date)-1;
    Parameters.ParamByName('finsemaine1').Value:=EndOfTheWeek(PlannerCalendar7.date)-2;end;
          Parameters.ParamByName('Dep').Value:=MoneyEdit1.Text;
          ExecSQL;