Discussion :

[triistaan]

Bonjour,
Je fais appel à votre communauté pour m'aider concernant un petit problème que j'ai sur Access.
En fait, je souhaiterais avoir (pour mes devis) un numéro automatique sous cette forme : XXX-MM-AAAA X serait le n° de devis (ex: 001 ou 123), M serait le mois et A l'année. Par exemple, aujourd'hui je fais mon premier devis, ce sera 001-04-2014.
Je ne veux pas que les numéros se remettent à zéro chaque mois.

J'espère avoir été clair dans mes explications et que vous pourrez m'apporter votre aide.
Merci d'avance.

[ClaudeLELOUP]

Bonjour,

As-tu eu la bonne idée de prévoir une clé de type NuméroAuto dans la table de ton formulaire ?

Si oui, comment s'appelle-t-elle ?

Comment s'appelle le contrôle de ton formulaire qui doit recevoir le N° de devis ?

[triistaan]

Merci de ta réponse,
Oui en fait dans ma table j'ai N°ListDevis qui est numéro automatique et j'ai aussi un champs N°Devis dans lequel j'afficherais la valeur que je souhaite afficher (XXX-MM-AAAA)

[Michael Guilloux]

salut,

Je crois que le code qui suit peut résoudre ton problème à quelques retouches près. De toute façon, l'idée y est.
Tu dois avant tout traiter le nombre de caractères pour ne pas avoir par exemple 1-1-2014 comme numéro de dévis au lieu de 001-01-2014.

Crée avant tout dans table un champ texte NumeroDevis
Crée ensuite une procédure AfterUpdate sur ton champ date pour traiter le nombre de caractères avant de générer le numéro de dévis

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
Private sub ChampDate_AfterUpdate()
Dim NumMois, NumID as Variant 'le mois et l'identifiant
Dim Mois, ID as Variant 'le mois et l'ID après les traitements éventuels du nombre de caractères
 
NumMois=Month(Me.ChampDate.value)
NumID=Me.ChampID.value
 
'S' assurer que le mois soit sur 2 caratères
If len(NumMois)=1 Then
Mois= "0" & NumMois
Else
Mois= NumMois
End if
 
'S'assurer que la valeur ID soit sur 3 caractères, selon ta modélisation, je suppose que tu ne peux pas avoir 'plus de 999 factures
 
If len(NumID)=1 Then
ID="00" & NumID
ElseIf len(NumID)=2 Then
ID="0"& NumID
Else
ID=NumID
End if
 
'Gérons maintenant le numéro de dévis lui-même 
Me.NumeroDevis.value= ID & "-"& Mois &"-"& Me.Year(ChampDate.Value)
 
End sub

NB! Dans ce cas l'ID est ton numéro de dévis (celui sous la forme XXX).
Maintenant, si tu désires le gérer toi-même, c'est à dire, si tu le mets au type numérique au lieu de NumAuto, ça sera plus facile, parce que tu pourras gérer toi-même le format 3 caractères, et ton code sera simplifié. Mais vaut mieux écrire quelques lignes de code une seule fois au lieu de se demander 998 fois, quel est le numéro du dévis précédent.
Prions maintenant pour que ça marche!

Grand Merci à toi Robert pour ta vigilence

[ClaudeLELOUP]

Voici ce que je te propose : j'ai supposé que ta table s'appelle tDevis.

Dans l'événement Sur activation du formulaire, ce code :

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
Option Compare Database
Option Explicit
 
Private Sub Form_Current()
  Dim lDerCle As Long
  Dim sDerNum As String
  Dim iDerOrdre As Integer
  If Me.NewRecord Then    's'il s'agit d'un nouveau
    'Recherche du dernier enregistrement créé
    lDerCle = DMax("N°ListeDevis", "tDevis")
    'Dernier N° attribué
    sDerNum = DLookup("N°Devis", "tDevis", "N°ListeDevis =" & lDerCle)
    'Dernier N° d'ordre
    iDerOrdre = Left(sDerNum, InStr(sDerNum, "-") - 1)
    'Construction du N°Devis suivant
    Me.N°Devis = Format(iDerOrdre + 1, "00#") & Format(Date, "-MM-YYYY")
  End If
 
End Sub

N.B. Peu importe si le nombre de devis dépasse 999.
Pour amorcer la pompe, introduis manuellement dans ta table vide un devis N° 0-0 que tu supprimeras ensuite.

Signale-moi si tu ne comprends pas tout le code malgré les commentaires.

[triistaan]

Merci à vous deux pour votre réponse, je suis désolé mais je suis encore débutant et je ne comprend presque rien à vos codes, est ce que vous pourriez me détaillez ce que je dois faire précisément car en plus avec vos deux réponses, je suis un peu perdu, lequel dois-je utiliser ?

Merci

[castours]

salut,

Je crois que le code qui suit peut résoudre ton problème à quelques retouches près. De toute façon, l'idée y est.
Tu dois avant tout traiter le nombre de caractères pour ne pas avoir par exemple 1-1-2014 comme numéro de dévis au lieu de 001-01-2014.

Crée avant tout dans table un champ texte NumeroDevis
Crée ensuite une procédure AfterUpdate sur ton champ date pour traiter le nombre de caractères avant de générer le numéro de dévis

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
Private sub ChampDate_AfterUpdate()
Dim NumMois, NumID as Variant 'le mois et l'identifiant
Dim Mois, ID as Variant 'le mois et l'ID après les traitements éventuels du nombre de caractères
 
NumMois=Month(Me.ChampDate.value)
NumID=Me.ChampID.value
 
'S' assurer que le mois soit sur 2 caratères
If len(NumMois)=1 Then
Mois= "0" & NumMois
Else
Mois= NumMois
End if
 
'S'assurer que la valeur ID soit sur 3 caractères, selon ta modélisation, je suppose que tu ne peux pas avoir 'plus de 999 factures
 
If len(NumID)=1 Then
ID="00" & NumID
ElseIf len(NumID)=2 Then
ID="0"& NumID
Else
ID=NumID
End if
 
'Gérons maintenant le numéro de dévis lui-même 
Me.NumeroDevis.value= ID & "-"& Mois &"-"& Me.Year(ChampDate.Value)
 
End sub

NB! Dans ce cas l'ID est ton numéro de dévis (celui sous la forme XXX).
Maintenant, si tu désires le gérer toi-même, c'est à dire, si tu le mets au type numérique au lieu de NumAuto, ça sera plus facile, parce que tu pourras gérer toi-même le format 3 caractères, et ton code sera simplifié. Mais vaut mieux écrire quelques lignes de code une seule fois au lieu de se demander 998 fois, quel est le numéro du dévis précédent.
Prions maintenant pour que ça marche!

Grand Merci à toi Robert pour ta vigilence

[castours]

Bonjour
J'aide tristan a faire sa base.
J'ai voulu mettre en place votre procédure mais je bogue sur year
Manque t-il quelquechose dans les declartions ou definitions?
Merci de votre aide
Guy