Discussion :

[tchimou]

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

Code :

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

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 :

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

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 :

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

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!

[philnext]

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

[aityahia]

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 :

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

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 :

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

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

[tchimou]

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

[tatareau]

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 (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

[philnext]

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.

[aityahia]

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.

[Pascal Jankowski]

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 :

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

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;

[tchimou]

merci à tous pour votre aide.