Discussion :

[lepeule]

bonjour
j'ai des soucis avec le bour de code ci après. Quand on saisit le meme code engagement il ne renvoie pas le message d'erreur '' Cet engagement a déjà ete saisi''
je demande de l'aide , je comprend pas
merci d'avance

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
procedure TFtypeEngagement.enregistrerClick(Sender: TObject);
var
typeEng:string;
begin
  IF DBEDIT1.text='' then
   begin
   MessageDlg('Veuillez saisir le type engagement !', mtInformation,
      [mbOk], 0);
    exit;
end;
try
   if dbedit1.text<>'' then
   begin
   typeEng:=dbedit1.text;
   if dm.typeengagement.locate('TYPE_ENGAGEMENT' ,typeEng , [loCaseInsensitive	]) then
   begin
    MessageDlg('Cet engagement a été déjà saisi', mtWarning,
      [mbOk], 0);
    exit;
    end;
 end;
finally
  if not dm.ADOConnection1.intransaction then
   dm.ADOConnection1.BeginTrans;
    dm.typeengagement.post;
    end;
end;

[Just-Soft]

Salut;

le plus logiquement c'est qu'il ne trouve pas ton enregistrement donc pas de correspondance exacte.

Mais si on étudie ton code on se demande pourquoi tu fais la recherche à partir d'un texte saisie dans un DBEdit ? L'erreur est là, faut mettre à la place un Edit.

[lepeule]

bonjour

OK avec EDIT ça marche
merci pour l'aide . Mais ya t-il une possibilité avec un DBEDIT ? comment le faire avec ?
merci beaucoup !

[Just-Soft]

Salut;

Si je me permet quel avantage trouve-tu dans l'utilisation d'un DBEdit ?