Discussion :

[Lordakon]

Bonjour


J'aimerais mettre les articles d'un magasin de pièces de rechange dans une base de donnée. et je voudrais bien trouver un solution pour numéroter les articles selon leur Famille.
Par exemple: pour les pièces de la famille AB la numérotation sera AB01 AB02
Et si on introduit un produit d'une autre famille CD. La numérotation se rénitialise Ca sera CD01. Et si on reintroduit un produit de la famille son numéro sera logiquement AB03.
Si vous avez une solution ça m'aidera beaucoup parceque on a plusieurs produits et plusieurs familles. La numérotation manuel sera compliquée.

Merci

[Robert1957]

Bonjour Lordakon,

Une solution possible: Tu ajoutes dans ta table un champ "Famille" au format texte qui est le champ qui représente la famille ex. AB. 2 autres champs "Numero_Produit" au format texte et "Numero_C" au format numérique.

Dans ton formulaire de saisie sur l'événement AfterUpdate de ton champ "Famille":

Code :

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

1
2
3
4
5
6
7
8
Private Sub Famille_AfterUpdate()
 
    If IsNull(Me.Numero_Produit) Then
        Me.Numero_Produit = fuNumProduit (Me.Famille)
        me.Numero_C = fuNumProduitC (Me.Famille)
    End If
 
End Sub

Et dans un module les 2 fonctions suivantes:

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
Public Function fuNumProduit(strProduit As String) As String
 
    Dim strResultat As String
    strResultat = Nz(DMax("Numero_C", "TaTable", "[Famille]='" & strProduit & "'"), 0) + 1
    Select Case Len(strResultat)
        Case 1
            strResultat = "00" & strResultat
        Case 2
            strResultat = "0" & strResultat
        Case 3
            strResultat = strResultat
        Case Else
            MsgBox "Vous avez dépassé la capacité maximum pour ce produit!", vbCritical
            Exit Function
    End Select
    fuNumProduit = strProduit & strResultat
 
End Function
Public Function fuNumProduitC(strProduit As String) As Integer
 
    Dim inNombre As Integer
    inNombre = Nz(DMax("Numero_C", "TaTable", "[Famille]='" & strProduit & "'"), 0) + 1
    If inNombre > 999 Then
        MsgBox "Vous avez dépassé la capacité maximum pour ce produit!", vbCritical
        Exit Function
    End If
    fuNumProduitC = inNombre
 
End Function

Tu pourrais combiner les 2 fonctions ce qui serait plus joli et donnerait seulement un message d'erreur. Mais si vous allez vers Access 2010 ce sont des fonctions qui fonctionnent bien avec des DataMacro.

Bonne journée