Numéro personnel automatique

**ToFind** · 21/08/2007, 09h39

Bonjour,
Sous Access 2003, dans un formulaire,je possède un champ "date survenance" (pour la date de réalisation d'un fait).

Je possède aussi un champ "numéro de dossier".

Je souhaiterais que le champ "numéro de dossier" soit complété automatiquement au format AAAAxxxxx (où AAAA doit correspondre à l'année de survenance et xxxxx est un nombre incrémenté de 1 à chaque ajout de dossier de la même année).

Ex : 1er dossier avec survenance le 03/01/2007 donne un numéro de dossier 200700001.

Si après cela je rentre un nouveau dossier survenu le 16/12/2006, le champ "numéro de dossier" doit chercher le plus grand numéro
affecté à 2006 et ajouter 1.

J'ai fait de nombreuses tentatives avec la doc du site mais je n'y arrive pas. Merci pour votre aide.

**Pierre Fauconnier** · 21/08/2007, 10h13

Bonjour

J'ai un truc tout fait dans une appli. Le voici, à adapter à ton cas

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
 
Function getNouveauNumero(DateNcs As Date, Optional Longueur As Integer = 4) As String
    Dim Chaine As Variant
    Dim Annee As String
    Dim Retour As String
    Dim Valeur As Integer
 
 
    Annee = Format(Year(DateNcs), "0000")
    Chaine = CurrentDb.OpenRecordset("select max(ncside) as Numero from tncs where left(ncside,4) = '" & Annee & "'")!Numero
    If IsNull(Chaine) Then
        Retour = Annee & "/" & Format(1, String(Longueur, "0"))
        Else
        Valeur = Right(Chaine, Longueur) + 1
        Retour = Annee & "/" & Format(Valeur, String(Longueur, "0"))
    End If
    getNouveauNumero = Retour
End Function

C'est une fonction qui renvoie un identifiant sur base d'un format YYYYXXXX. Le nombre de X est déterminé par la valeur optionnelle. Dans le cas présent, la longueur par défaut est 4, mais tu peux adapter. Tu dois aussi adapter les noms de champ et de table de la base de données.

Tu dois passer comme argument la date de survenance du fait, optionnellement une longueur si différente de celle par défaut

Ok?

**ToFind** · 21/08/2007, 22h18

Bonjour Pierre,

Merci pour ta réponse.

J'ai examiné ta fonction, mais je ne suis pas un spécialiste de VBA. Soit, peux-tu m'en dire un peu plus?

- "DateNcs" représente t il bien le champ de ta table reprenant la date que tu introduis?
- A quoi correspond "ncside"

De plus, j'ai un problème avec les apostrophes dans la ligne

Code :

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

Chaine = CurrentDb.OpenRecordset("select max(ncside) as Numero from tncs where left(ncside,4) = '" & Annee & "'")!Numero

Ensuite, en supposant que je parvienne à rédiger correctement le code, j'imagine que je dois lancer cette fonction à partir d'une procédure.

Comment puis-je appeler cette fonction? En indiquant "Numéro de dossier=getNouveauNumero()" entre Sub et End Sub?

Bien merci.

**Heureux-oli** · 21/08/2007, 22h33

Pierre,
Je préfère déclarer lorsque c'est possible les objet dans leur propre type

Ainsi, pour chaîne, je ferais un

Code :

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

Dim chaîne as DAO.Recordset

, c'est plus joli.

Une autre piste

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub testNumMax()
 
Dim Nmax As Integer
Dim Ann As String
 
 
Ann = InputBox("Année")
Nmax = DMax("num", "table1", "[Annee] = '" & Ann & "'")
Debug.Print Nmax
Nmax = Nmax +1
 
 
End Sub

Ann j'ai mis un imput box pour entrer la valeur, mais elle peut venir de n'importe où.
num : c'est le nom de mon champ qui contient ma valeur à incrémenter.
table1 : c'est ma table
Annee : c'est le champ qui contient l'année et pour lequel j'ai un critère.
Nmax : c'est ma valeur Maximum à laquelle j'ajoute 1

**ToFind** · 21/08/2007, 23h23

Bonsoir Heureux-oli,

Merci de ta réponse.
Je me suis basé sur ta proposition et j'ai écri:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Command9_Click()
 
Sub testNumMax()
 
Dim Nmax As Integer
Dim Ann As String
 
Ann = CLng(Year(DateSurv))
Nmax = DMax("NumDossier","TblDossier","Clng(Year(DateSurv))" = '" &Ann "'")
 
Debug.Print Nmax
Nmax = Nmax + 1
 
End Sub

Je rencontre un problème avec les quotes... dans

Code :

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

Nmax = DMax("NumDossier","TblDossier","Clng(Year(DateSurv))" = '" &Ann "'")

Qu'en penses-tu?

**Heureux-oli** · 22/08/2007, 09h18

Code :

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

Nmax = DMax("NumDossier","TblDossier","CInt(Year([DateSurv])) =" & Ann )

Essaie comme ça.

**Heureux-oli** · 22/08/2007, 09h21

Désolé,

Code :

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

Dim Ann As Integer

Code :

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

Ann = CInt(Year(DateSurv))

Pour la seconde, pas besoin d'un Long, un integer suffit, je pense !

**Arkham46** · 22/08/2007, 09h46

Bjr,

Pour le numéro maxi je préfère un Variant.
Pourquoi? Ben pour gérer le premier numéro : vu que DMax renvoit Null s'il ne trouve rien, ça ne rentrera pas dans un Integer.

Code :

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

1
2
3
4
5
6
7
8
 
Dim Nmax as Variant
Nmax = DMax("NumDossier","TblDossier","CInt(Year([DateSurv])) =" & Ann )
If IsNull(Nmax) then 
  NMax = 1
Else
  NMax = NMax +1
End If

Ou alors on utilise Nz si on peut :

Code :

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

1
2
3
4
 
Dim Nmax as Integer
Nmax = Nz(DMax("NumDossier","TblDossier","CInt(Year([DateSurv])) =" & Ann ),0)
NMax = NMax +1

Bien penser à tester le code avec une année sans dossier pour vérifier que le premier numéro est bien gérer.

**Pierre Fauconnier** · 22/08/2007, 09h48

Envoyé par Heureux-oli

Pierre,
Je préfère déclarer lorsque c'est possible les objet dans leur propre type

Ainsi, pour chaîne, je ferais un

Code :

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

Dim chaîne as DAO.Recordset

, c'est plus joli.

Bonjour

Je serais d'accord avec toi, si Chaine renvoyait effectivement un Recordset, mais regarde mon code et tu verras que ce n'est pas le cas... Chaine renvoie l'identifiant ou NULL si aucun identifiant n'est trouvé,c'est-à-dire une chaine de caractères ou la valeur NULL. Comme je ne peux pas affecter la valeur NULL à un variable typée string, je suis obligé de la typer en Variant.

Cela étant, je n'utilise pas souvent les fonctions intrinsèques d'Access, et je devrais peut-être. En cela, ton exemple est profitable pour moi.

Bonne journée

**Heureux-oli** · 22/08/2007, 10h19

Envoyé par Pierre Fauconnier

Bonjour

Je serais d'accord avec toi, si Chaine renvoyait effectivement un Recordset, mais regarde mon code et tu verras que ce n'est pas le cas... Chaine renvoie l'identifiant ou NULL si aucun identifiant n'est trouvé,c'est-à-dire une chaine de caractères ou la valeur NULL. Comme je ne peux pas affecter la valeur NULL à un variable typée string, je suis obligé de la typer en Variant.

Cela étant, je n'utilise pas souvent les fonctions intrinsèques d'Access, et je devrais peut-être. En cela, ton exemple est profitable pour moi.

Bonne journée

Toute mes excuses, j'ai pas scrollé vers la droite.

Pour les fonction d'Access, j'ai le même problème, mais Arkham et Random veillent.

**ToFind** · 22/08/2007, 11h12

Bien, J'ai modifié le code comme suit:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Command9_Click()
 
Dim Nmax As Integer
Dim Ann As Integer
 
Ann = CInt(Year(DateSurv))
Nmax = DMax("NumDossier", "TblDossier", "CInt(Year([DateSurv])) =" & Ann)
If IsNull(Nmax) Then
    Nmax = 1
Else
    Nmax = Nmax + 1
End If
 
End Sub

Mais ça coince tjs au niveau de :

Code :

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

Nmax = DMax("NumDossier", "TblDossier", "CInt(Year([DateSurv])) =" & Ann)

Problème identique si j'utilise Nz.

Bonne journée.

**Heureux-oli** · 22/08/2007, 11h27

Voilà aux grands maux les grands remèdes.

**ToFind** · 22/08/2007, 16h04

Merci Heureux-oli. Ca marche.
C'est en ces moments que je me dois d'être humble...

Pour finaliser ce procédé, j'aimerais aussi que ma référence de dossier s'affiche sous le format AAAA00000 (ex: 200700024). Me conseilles-tu d'ajouter un champs "NumDos" dans la table et d'ajouter une ligne de code telle "Me.NumDos = An & Num"? Ou vois-tu une meilleure solution?

Quant au format AAAA00000, je pense qu'il ne sera pas respecté.

D'autre part, n'existera-t-il pas un conflit si 2 utilisateurs rentrent un nouveau dossier au même moment?

**Heureux-oli** · 22/08/2007, 16h10

Non tu peux le garder comme simple affichage et comme tu le souligne, la concaténation fonctionnera.

Pour respecter le format, dans l'exemple que j'ai mis sur le forum, les numéro sont 000001

Le tout est de définir un format comprenant au moins 6 (0)
Pour les deux dossier au même moment, c'est un souci que tu peux régler en faisant une sauvegarde de l'enregistrement en cours dès que le numéro est obtenu.
Une fois dans la table, il est pris en compte lors du DMax suivant.

**ToFind** · 22/08/2007, 16h55

Bon, j'ai ajouté un champs NumDos dans la table et j'ai repris 0000000000 comme format. J'ai ajouté la ligne

Code :

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

Me.NumDos = An & Num

et le résultat n'est pas celui attendu car au lieu d'afficher 2007000024, il m'affiche 0000200724...

**Heureux-oli** · 22/08/2007, 18h12

Dans ce cas, il faut faire un select case et compléter avec les 0 qui manquent.

Code :

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

1
2
3
4
5
6
Selct Case NMax
Case < 10
  An & "00000" & Num
Case < 100
  An & "0000" & Num
End select

**ToFind** · 22/08/2007, 18h22

Un Tout Grand Merci. Ca fonctionne!
Bonne soirée.

**ToFind** · 22/08/2007, 18h37

C'était trop beau. J'ai été trop vite. Ca fonctionne jusqu'à 99 et puis ça coince.
Voici le code que j'ai ajouté:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Select Case NMax
 
Case Is < 10
  Me.NumDos = An & "00000" & Num
Case Is < 100
  Me.NumDos = An & "0000" & Num
Case Is < 1000
  Me.NumDos = An & "000" & Num
Case Is < 10000
  Me.NumDos = An & "00" & Num
 
End Select

Je comprends pas.

**Heureux-oli** · 22/08/2007, 18h41

Envoyé par ToFind

C'était trop beau. J'ai été trop vite.

Pour un Namurois

Je ne sais pas pourquoi au delà de 99 ça ne fonctionne plus ??

**ToFind** · 22/08/2007, 18h48

Comme quoi tout arrive

Les escargots vont trop vite!

Voici le code complet

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
20
21
22
23
24
25
26
27
28
Option Compare Database
Option Explicit
 
Private Sub DteStart_AfterUpdate()
Dim intAn As Integer
Dim NMax As Integer
 
intAn = CInt(Year(Me.DteStart))
NMax = Nz(DMax("num", "tbl1", "CInt(Year([DteStart])) =" & intAn), 0)
Debug.Print NMax + 1
Me.Num = NMax + 1
 
Me.An = CInt(Year(Me.DteStart))
 
Select Case NMax
 
Case Is < 10
  Me.NumDos = An & "00000" & Num
Case Is < 100
  Me.NumDos = An & "0000" & Num
Case Is < 1000
  Me.NumDos = An & "000" & Num
Case Is < 10000
  Me.NumDos = An & "00" & Num
 
End Select
 
End Sub

J'ai tout de même pas fait le ... ?

Numéro personnel automatique

VBA Access

Discussions similaires

Partager

Partager