Discussion :

[Rogatic]

Bonjour tout le monde!
Voilà mon problème.

J'ai une base de données pour faire de la facturation. J'ai déjà un code VBA pour la numérotation automatique de la facture qui me donne FAC-06-12-0001
Voilà mon code:

Code :

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

1
2
3
If IsNull(Me.IdFacture) Then
    Me.IdFacture = AutoNumber("Factures", "IdFacture", "FAC-[MM]-[YY].", 4)
 End If

Avec l'évolution, j'ai maintenant deux types de facturation: Locale et Export
qui ont chacune une numéro d'identification, (21 pour les locales et 11 pour les Export) C'est pour les besoins de la comptabilité.

Sur mon formulaire de facturation, j'ai crée une zone de liste déroulante où l'on choisi le type de facturation "Local" ou "Exportation".
J'aimerai qu'à partir du choix fait dans cette liste déroulante avoir un numéro automatique formater comme suit:
Pour les Locales FAC-[AA]-21-0000 et FAC-[AA]-11-0000 pour les Exportation.
Merci d'avance et Bonne après-midi.

[FreeAccess]

Bonjour,

Si dans ta table facture, tu as un champ identifiant le type de facturation (L ou E), il te suffis de rechercher à chaque numérotation de facture, le MAX (N_FACTURE) + 1 ou (WHERE) champ TYPE = L ou E .....

Tu peux faire cette même incrémentation, en te bassant sur la valeur 21 ou 11 (plus besoin de champ TYPE) ..... (voir les possibilités d'extraction de chaîne dans la )

[EDIT]
....Attention, tout le monde ne connait pas la structure de la fonction AutoNumber ....

Avec cette nouvelle numérotation, comment fais tu pour différencier une facture de 2011 et 2012

[FreeAccess]

..... maintenant, si tu tiens absolument à utiliser ta fonction AutoNumber, tu peux le faire de cette façon.....

1)- sur un formulaire indépendant une ZdL [Zdl_TypeFacturation]...
2)- un champ indépendant [IdFacture]

..... sur l'événement de ton choix........

Code :

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

Me.IdFacture = AutoNumber("Factures", "IdFacture", "FAC-(AA)" & Me.Zdl_TypeFacturation.Value & "-", 4)

Résultat = FAC-(AA)11-0004

....voilà, c'est une possibilité simple de modification mais, je le répète, non satisfaisante

[EDIT]
Houla..... je viens de relire ton post initial .... et j'ai comme un doute dans l'interprétation que j'ai faites de ta demande....

.... Car si dans ton exemple [AA] représente l'année, alors il faut modifier comme suit....

Code :

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

Me.IdFacture = AutoNumber("Factures", "IdFacture", "FAC-[YY]" & Me.Zdl_TypeFacturation.Value & "-", 4)

[Rogatic]

Merci beaucoup FreeAccess d'avoir pris le temps de m'aider.

Finalement je me suis contenter de case à cocher indépendante sur le formulaire de la facturation.

Voilà le code:

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Datefact_AfterUpdate()
If IsNull(Me.IdFacture) Then
If Me.CocherLoc.Value = True Then
Me.IdFacture = AutoNumber("Factures", "IdFacture", "[YY].21.", 6)
End If
If Me.CocherExp.Value = True Then
Me.IdFacture = AutoNumber("Factures", "IdFacture", "[YY].11.", 6)
End If
End If
End Sub

J'ai commencé à tester et tout va bien, je pense. mais si vous trouver qu'il y a mieux, je prends.

Encore merci.

[FreeAccess]

Bonjour,

Si cette solution te conviens . . . pourquoi pas ...

Mais une solution avec ZdL est plus "souple" dans l'évolution de ta Base....

Que fais tu si tu dois modifier, ajouter une valeur sur ton type de facturation ...

obligation de repasser en mode création, d'ajouter une case à cocher, puis de modifier le code......

avec ZdL : tu saisis uniquement la nouvelle valeur dans la table correspondante ....

Maintenant, si tu utilise des cases à cocher . . . au lieu de te servir de cases indépendantes, utilise plutôt le contrôle "Groupe d'options" . . . .

[Rogatic]

Je vais opter pour le groupe d'option

Maintenant mon problème est comment refaire mon code pour l'adapter au groupe d'option.
Parce que le même code ne marche pas avec le groupe d'option

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Datefact_AfterUpdate()
If IsNull(Me.IdFacture) Then
If Me.CocherLoc.Value = True Then
Me.IdFacture = AutoNumber("Factures", "IdFacture", "[YY].21.", 6)
End If
If Me.CocherExp.Value = True Then
Me.IdFacture = AutoNumber("Factures", "IdFacture", "[YY].11.", 6)
End If
End If
End Sub

J'ai déjà créer mon groupe d'option avec trois contrôle

Export avec valeur 1
Local avec valeur 2



Merci d'avance!

[FreeAccess]

Bonjour,

.... c'est bien d'avoir utiliser un groupe d'option . . . mais que te dis ...

Quand tu utilises un groupe d'options, c'est le contrôle Groupe options qui "retourne" la valeur de l'élément sélectionné.....

Un excellent tuto.....
Les Cases à Cocher et les Groupes d'Options dans Access

[Rogatic]

Encore mille merci FreeAccess pour le url du tuto
Le code de mon groupe d'option.
Private Sub TypeFact_AfterUpdate()

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
' ===== Message et Numérotation Automatique après choix du type de facture ====
    Select Case Me.TypeFact.Value
        Case 1
            MsgBox "Vous avez choisie une facture de type Avoir"
            Me.IdFacture = AutoNumber("Factures", "IdFacture", "[YY].59.", 6)
        Case 2
            MsgBox "Vous avez choisie une facture de type Locale"
            Me.IdFacture = AutoNumber("Factures", "IdFacture", "[YY].21.", 6)
        Case 3
            MsgBox "Vous avez choisie une facture de type Exportation"
            Me.IdFacture = AutoNumber("Factures", "IdFacture", "[YY].11.", 6)
    End Select
End Sub

J'en profite aussi pour remercier l’éditeur du tuto et tous ceux qui ont contribué là-dessus.