Réinitialisation d'un champ auto incrément

Salut,
ma function est testée, ...
Et dans ton code, il est où le SQL pour chercher le dernier record créé ?
Bonne journée.
solilog

Salut,
Tu peux nous montrer le morceau de code que tu utilises ?

voici mon code:
procedure TForm2.Button1Click(Sender: TObject);

begin
ADOTable1.FieldByName('Nummalade').Value:=inttostr(ADOTable1.RecordCount+1)+'/'+FormatDatetime('YYYY',now);
ADOTable1.FieldByName('Datedentree').Value:=strtodate(formatdatetime('DD/MM/YYYY',now));

end;

Ça fait longtemps que j'ai pas fait de delphi mais tu ne peux pas faire un truc comme ça ?

valeur = ADOTable1.RecordCount+1;
if valeur > 12 then valeur = 1;
ADOTable1.FieldByName('Nummalade').Value:=inttostr(valeur)+'/'+FormatDatetime('YYYY',now); 

Et ensuite tu remet le champ à 1 en updatant la base.

salut
j'ai tout essayé et ça marche toujour pas; y'a pas une autre solution pour que le numéro se réinitialise à chaque changement de l'année (condition sur FormatDatetime('YYYY',now))
merci

Salut,
avant de te répondre (et ca va peut-être t'aider a réfléchir et trouver la solution), 3 questions :
- le champs a construire est-il une clé dans la table ?
- est-il possible de mettre l'année en premier ex 2014/25
- peut-on construire le champs avec des 0 dans le nombre ex: 2014/0025, 2014/0026, pour avoir une longueur fixe ?

Ca t'aide un peu ?

solilog.

salut,

Oui pour les 3 questions et c'est une clé primaire

iris.

Bonsoir,
tu ajoute sur ta form un tQuery renommé ici qry1 avec le SQL ci dessous.

// retourne une clé au format YYYY/000000
//  composée de w_annee / w_num
function TForm1.get_NewKey : string;
var n_annee    : string;    // nouvelle annee
    a_Num,                  // ancien num
    Err : integer;          // Si ancienne cle invalide
    a_Key      : variant;   // ancienne cle (complete)
                            // (variant car peut être null si table vide)
    // utilise qry1 (SQL) 'SELECT MAX(JRNOPE) FROM OPE'
begin
   n_annee := formatdatetime('YYYY', now);
   qry1.open;                             // cherche cle precedente
   a_Key := qry1.fields[0].value;
   qry1.close;
   if  (a_Key = NULL)                     // NULL table vide
      or  (copy(a_Key, 1, 4)<>n_annee)    // Nlle annee ou clé invalide
   then a_Num := 0
   else begin
      val(copy(a_Key, 6, 6), a_Num, Err); // cherche num precedent
                                          // mieux que strtoint, evite try
      if Err<>0                           // si Err cle invalide
         then a_Num := 0;
   end;
   result := n_annee + format('/%6.6d', [a_Num+1]);
end;

Ca devrait aller.
solilog
--

Salut Iris1984,
Tu l'as ta réponse, l'as-tu testée ?
solilog

salut solilog,

Oui j'ai testé ton code et j'ai fais quelques modification dessus, mais ça marche toujour pas.
le problème maintenant est que le numéro ne s'incrémente pas; il est toujour initialisé à 1 suivi de l'année choisi (2014/000001; 2015/000001; 2016/000001;...)

voici le code:

procedure TForm2.Button1Click(Sender: TObject);

var n_annee,result : string;

a_Num,Err : integer;
a_Key : variant;

begin
ADOTable1.Append;
n_annee := formatdatetime('YYYY', now);

a_Key := ADOTable1.fields[0].value;

if (a_Key = NULL)or (copy(a_Key, 1, 4)<>n_annee)then
a_Num := 0
else
begin
val(copy(a_Key, 6, 6), a_Num, Err);

if Err<>0 then
a_Num := 0;
end;

result := n_annee + format('/%6.6d', [a_Num+1]);
ADOTable1.FieldValues['Numero']:=result;

end;

cordialement,

p.s: J'étais vraiment malade ces dérniers jours c'est pour cela que je ne t'es pas répondu très tôt.

salut,

Merci beaucoup solilog ça a marché

Iris

Salut,
Alors tu peux fermer ton post.
solilog