Discussion :

[YOUSSEFALAOUIA]

Bonsoir,
Dans un formulaire j'ai une liste déroulante(cmbA valeurs : 511,513,514,530) et un sous formulaire dont les champs sont :
CodeSecretID (numerique)
iEleveID (numerique)
sEleveNomPrenom(texte)
les champs iEleveID et sEleveNomPrenom sont deja saisies .
mon problème et que je veux à chaque choix de (cmbA) le [CodeSecretID ] s’incrémente automatiquement à la saisie le premier numéro.
Merci pour l'aide.

[Tofalu]

Bonjour

Regardez du côté de la fonction DMax qui renverra la valeur la plus haute en fonction du critère. Il suffira d'ajouter 1 à cette valeur pour trouver votre nouvel id

[marot_r]

Attention DMax en environnement multi utilisateur peut retourner à 2 postes différents le même maximum. Il faudra gérer le cas ou les 2 postes calculent le même nouveau numéro.

A+

[Tofalu]

Oui, c'est vrai. Mais bon, sans Access 2010, difficile d'espérer mieux. Cependant si le calcul est fait sur l’événement BeforeUpdate, il est peu probable que deux utilisateurs fassent une entrée simultanée avec le même critère.

[marot_r]

Oui, c'est vrai. Mais bon, sans Access 2010, difficile d'espérer mieux.

Tu as raison, Access 2010 simplifie le problème mais pour les versions antérieure, on peut écrire une fonction VBA qui gère cela en "bloquant" le calcul du numéro si quelqu'un d'autre est dedans ou simplement redemander DMax() suite à une erreur de doublon de clef primaire ou d'index unique.

Bon évidement si on est très malchanceux, avec la 2ième solution, on pourrait imaginer une boucle infinie de DMax() mais ça c'est vraiment TRÈS improbable :-).

A+

[Tofalu]

Je n'avais pas vu le tag Access 2010 dans le titre.

Voici un exemple de numérotation avec Access 2010 :

http://warin.developpez.com/tutoriel...s/numauto2010/

[josephadam]

Bonsoir,
je suis très honte de dire que je suis encore débutant en ACCESS et dans ce tuto j'ai trouvé beaucoup de données et codes je ne sais pas par quoi je dois commencer je suis vraiment bouleversé.
Merci pour votre attention.

[YOUSSEFALAOUIA]

Bonjour,
est ce que c'est le code que je dois écrire pour mon champ CodeSecretID et le where pour cmbA

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
If [IsInsert] Then
  SetLocalVar (VIndice;1)
  LookUp A Record In tblIndiceFacture
     WHERE  [ANNEE]=Year([tblFacture].[DateFacture]) AND [MOIS]=Month([tblFacture].[DateFacture]) 
     ALIAS  record
 
     If (IsNUll([Indice]) Then
       SetLocalVar([vIndice];1)
     Else
       SetLocalVar([vIndice];[Indice]+1)
     End If   
 
  SetField ([Indice];[vIndice])
End If

merci.