Discussion :

[marcus23]

saut
jai un autre probleme
premierement voila le code

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
 
  table1.first;
  tr:=false;
  while (not table1.eof) do
  if table1.fieldvalues['code_cl']=dbedit1.text then
  begin
    tr:=true;
    break;
  end
  else
    table1.next;
    if tr then
      showmessage('ce code existe deja')
    else
    begin
      begin
        table1.append;
        table1.post;
      end;

ce code me permer de ne pas saisir un code existe deja son l'etulisation d'un index sur le code cleint;
mais il marche pas je c pas pourkoi.
merci

[didier2020]

verifie l'indentation

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
table1.first;
tr:=false;
while (not table1.eof) do
   if table1.fieldvalues['code_cl']=dbedit1.text then begin
      tr:=true;
      break;
   end
else
   table1.next;
 
if tr then 
   showmessage('ce code existe deja')
else
   begin
      begin
      table1.append;
      table1.post;
      end;

ce serait plutot

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
table1.first;
tr:=false;
while (not table1.eof) do
   tr:=(table1.fieldvalues['code_cl']=dbedit1.text )
   if tr then begin
      showmessage('le code '+dbedit1.text+' existe deja');
      break;
      end 
    else
    table1.next;
end
 
if (not tr) then  begin
      table1.append;
     // "ici tu ecris ce que tu veux""
      table1.post;
end;