probleme de numerotation des données dans une table

Bonjour à tous!
j'ai crée une table en access ainsi :

Code:

---

1 2 3

NR NumeroAuto indexé sans doublons IDCONTACT Numerique indexé avec doublons NOMCONTACT Texte

---

Je voudrais que chaque enregistrement ait un IDCONTACT lors de l'encodage dans la base de données.
Dans la partie programmation, je voudrais que le programme me donne toujours IDCONTACT+1 lors de l'encodage d'un NOMCONTACT et si je mets un IDCONTACT deja existant , il m'envoie un message d'erreur disant que ce numero existe deja dans la table .
Dans l'evenement OnShow de ma feuille , j'ai mis ce code

Code:

---

1 2 3 4 5 6

procedure TContactForm.FormShow(Sender: TObject); var nIDContact:variant; begin DM.tbContact.Last; nIDContact:=DM.tbContactIDCONTACT.Value + 1; Edit_Numero.Text:=IntToStr(nIDContact);

---

ceci afin qu'il se donne toujours l'IDCONTACT+1 lorsque je veux encoder un nouveau NOMCONTACT.
et dans l'evenement OnExit du l'Edit_Numero ce code ici:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

procedure TContactForm.Edit_Numero(Sender: TObject); var resultat, nIDContact:variant; begin resultat:=DM.tbContact.Locate('IDCONTACT',StrToInt(Edit_Numero),[]); if resultat then begin MessageDlg(' Ce numéro existe déjà !!! ', mtInformation,[mbOk],0); DM.tbContact.Last; nIDContact:=DM.tbContactIDCONTACT.Value + 1; Edit_Numero.Text:=IntToStr(nIDContact); Edit1.SetFocus; exit;

---

mais lorsque je suis sur cette feuille , il me donne bien l'IDCONTACT+1 ,et lorsque j'encode , il n'a pas encoder le numero dans la table, il n'a pris que le NOMCONTACT.
je ne trouve pas l'erreur;
merci pour votre aide à tous!

Je te conseille plutôt de mettre ton champ à AUTOINCREMENT UNIQUE comme ça le numéro est incrémenté automatiquement par la base.

j'utilise sa dans le cas ou je voudrai mieux controlé l'incrément

je créer une reuqete avec le code SQL suivant

Code:

---

1 2 3

SELECT TOP 1 IdContact AS Numero FROM MaTable ORDER BY IdContact DESC

---

et dans ta table dans l'événement en OnNewRecord

Code:

---

1 2	Query1.requery(); MaTabeIdContact.Value := Query1Numero.Value+1;

---

merci je vais essayer ce que vous avez dit.
merci bcp

L'incrementation dans le code est dangereuse surtout si tu veux générer un numéro type index unique, car la base peut devenir incohérente si tu as une interruption :aie: (logiciel ou materiel) durant le deroulement du code . la cohérence de l'unicité d'un incrément doit être laissé au SGBD qui saura rétablir la donne en cas d'exception. la solution de philnext sera la plus robuste.
Bon code :D

De plus le fait de le faire dans la base évite les problèmes en 'multi Clients' en effet dans l'exemple de aityahia si 2 sessions incrémentent au même moment elles auront le même numéro d'index.

efféctivement moi je n'utilse pas la méthode que j'ai proposé ,sauf pour codifier des enregistrements en instance de validation par exmple.

je stock mes compteurs Table annexe ou incrémente mon compteur a chaque nouvel enregistrement, cette méthode me permet de réinitialiser mon compteur au début de l'année par exemple.

La méthode de philnext te permettra sans conteste de résoudre ton problème.

Une autre solution pour numéroter de façon unique tes enregsitrements consiste à utiliser un GUID. Chaque GUID est par définition unique donc tu n'auras pas de problème en ce qui concerne les doublons.

Cette partie de code permet d'obtenir un GUID:

Code:

---

1 2 3 4 5 6 7 8 9 10 11

uses comObj, ActiveX; function CreateGuid: string; var GUID: TGUID; begin Result := ''; if CoCreateGuid(GUID) = S_OK then Result := GUIDToString(GUID); end;

---

merci à tous pour votre aide.