Discussion :

[Kelly182]

Bonjour a tous,
C'est mon premier poste sur ce forum, que j'ai longuement parcourus avoir de vous posez cette question:
je suis en stage dans une société où les commandes passé par les clients ont un numéro de type:
N°depuis le debut de l'année+lettre pour l'année

ma question est comment faire pour que lorsque l'on ouvre un nouveau formulairel le numero de commande soit automatiquement
N°depuis le debut de l'année+1 +lettre pour l'année

et changement de lettre avec l'année


je vous remercie pour vos réponses!!

@+++

[repié]

Tu devrais incrémenter la valeur ASCII de la lettre

[User]

comment fait tu la correspondance entre l'année et la lettre, est-ce 1 truc du genre:

'a' -> 2006
'b' -> 2007
'c' -> 2008

donne des exemples de numéro, c'est toujours plus parlant...

si tu sauvegarde ce numéro dans ta table...
Comment souhaite tu mettre à jour ce champ numéro dans ton form: à partir du numéro précédent ???

@+

[repié]

tu sais que le code ASCII (décimal) de "a" (minuscule) est 97

donc si 2006 correspond à "a" (donc à 97) alors, 2008 correspond à :

97 + (2008-2006) = 99

or la valeur du code ASCII 99 est "c"


plus simplement

année --> lettre --> ASCII
--------------------------------
2006 --> a --> 097
2007 --> b --> 098
2008 --> c --> 099
2009 --> d --> 100

[User]

salut repié,

en fait il ne s'agit pas de ma discussion,

j'ai juste fait une hypothèse, mais pour reprendre ton explication je verrai bien une fonction du style:

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
Public Function maj_numero() As String
Dim l As String
Dim req As DAO.Recordset
Dim num As Long
 
l = Chr(Asc("a") + Year(Date) - 2006)
 
Set req = CurrentDb.OpenRecordset("select count(numero) as max from table1 where numero like '*" & l & Chr(39))
 
num = req!Max + 1
 
req.Close
 
maj_numero = num & l ' renvoi le numéro alphanumérique ex: "1234a"
 
End Function

maintenant ce n'est que pure spéculation en attendant la réponse de Kelly182

[scorpion1611]

Petit code bidouillé en quelques minutes et en partant sur les hypothèses suivantes :

1 table Commande avec 1 champ NumeroCommande et 1 champs Date (qui met la date du jour automatiquement)

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
29
30
31
32
33
 
 
Dim Commande As String
Dim Chiffre As String
Dim Lettre As String
Dim Résultat As String
 
 
'Vérifie si une comamnde existe
If DCount("NumeroCommande", "Commande") > 0 Then
    'Récupère le N° de la dernière commande
    Commande = DMax("NumeroCommande", "Commande")
 
    'Récupère le numéro sans la lettre
    Chiffre = Left(Commande, Len(Commande) - 1)
 
    'récupère la lettre
    Lettre = Right(Commande, 1)
 
    'Vérifie l'année
    'Si l 'année change, la lettre s'incrémente de 1 lettre
    If Format(DMax("Date", "Commande"), "yyyy") < Format(Now, "yyyy") Then
        Lettre = Chr(Asc(Lettre) + 1)
    End If
Else
    'Crée un nouveau numéro
    Chiffre = "0"
    Lettre = "A"
End If
 
Résultat = Chiffre + 1 & Lettre
 
Me.Mazonedetexte = Résultat

[repié]

autant pour moi User je suis allé un peu vite...

[Muhad'hib]

Salut,

En plus de l'algo pour générer un nouveau N°, il faut savoir si la base est en multi-utilisateur. Si oui, attention si 2 personnes veulent créer un nouvel enregistrement en même temps (plus exactement si une 2ème personne ouvre le form avant que le premier ait enregistré) tu aura 2 fois le même N° ...
A+

[Kelly182]

Merci a tous pour vos reponses!!
effectivement la table est en multi-utilisateur, et je souhaitais faire une table commande avec les champ numero commande, qui serait un bete numero et un autre champ qui serait codecommande est qui correspondrait au code qu'utilise l'entrprise. J'en suis au MCD et je me suis posé la question quand il a fallut mettre le type.

exemple:

449K: 449éme commande de l'année 2006

[random]

on peut règler le problème de conflit multi utilisateurs de la façon suivante

je crée une table genum
clef champauto
ref texte

quand j'ai une nouvelle entrée dans la base
je n'entre pas dans la table cible mais préalablement dans genum

access va gérer l'attibution de numéro auto

dans ref je pose une variable du type user+client
il me reste
à recupérer clef de genum
à effacer ref de genum
à entrer dans ma base mes données

[Kelly182]

Merci de ta reponse random!
mais la je crois que j'ai pas tout compris! dsl

donne moi un peu de temps pour comprendre!!

[User]

Une question:

En cas de conflit en mode multiutilisateurs, je me demandais:
Il va se produire une erreur du genre "doublon dans un index",
a ce moment ne peut t'on pas récupérer l'erreur dans le form pour générer un numéro supérieur au précédent ???

[Kelly182]

Salut a tous!!

bon voila comment je pense gérer mon probléme avec vos précieuses aides

Table: Devis (NumDevis, Accepté (booléen) plus d'autres propriétès)

GeNumCommande(NumCommande, CodeCommande (obtenu grace a la conversion de scorpion 1611), Date)

Commande(NumCommande, code commande, ....)

merci d'avance pour vos aides!!!

si j'ai bien compris la faq access, le fait d'avoir une table intermediaire force les utilisateurs a chargé la table seulement lors d'une modif, et non d'avoir la table en permanance. C'est mon deuxiéme projet Access et premier complet en reseau.