Discussion :

[skrounch]

Bonjour,
Je suis un débutant sous access et j'essaye de faire une base de données pour faire ma gestion commercial. Pour cela je me suis inspiré des quelques exemples existant dans access. mais la je bug.
Je m'explique :
- Je voudrais pouvoir gérer mes stocks et mes fournisseurs mais malheureusement, je peux avoir un produit identique chez 2 fournisseurs différents avec des ref produits fournisseurs également différentes.
Je ne sais comment faire.
- Je ne sais pas non plus comment je vais pouvoir gérer mes numéros de devis, commandes, Bon de livraisons, factures, j'aimerais qu'il est un format du type année,mois,autonumber ce qui donnerais pour aujourd'hui : 0703001
le problème c'est que je n'arrive pas à mettre le compteur à zero au début de chaque mois. d'autant plus que pour ma compta il faut que tous mes numéros de factures se suivent.

Je voudrais que cette application une fois terminer puisse être utilisé par un bon nombre de personne de façon gratuite.

Merci de votre aide

[marot_r]

Pour un débutant tu mets la barre assez haute :-).

- Je voudrais pouvoir gérer mes stocks et mes fournisseurs mais malheureusement, je peux avoir un produit identique chez 2 fournisseurs différents avec des ref produits fournisseurs également différentes.

Le plus simple est d'avoir un num interne qui est TA référence pour ce produit. Puis d'avoir une table

RefFounisseur :
- RefInterne
- CodeFournisseur
- RefFournisseur

- Je ne sais pas non plus comment je vais pouvoir gérer mes numéros de devis, commandes, Bon de livraisons, factures, j'aimerais qu'il est un format du type année,mois,autonumber ce qui donnerais pour aujourd'hui : 0703001
le problème c'est que je n'arrive pas à mettre le compteur à zero au début de chaque mois. d'autant plus que pour ma compta il faut que tous mes numéros de factures se suivent.

Un autre pb classique, je suppose que tu es en environement multi-utilisateur. il va falloir que tu ai une table de compteur et que tu gère TOI-MEME :-) l'ajustement du compteur.

Le plus simple est d'attribuer le numéro quand l'utilisateur confirme la création.

Ici un exemple de code qui fait cela (il gère aussi plusieurs périodes par année, mais un seul compteur par an et plusieurs type de facture.)

La table

Compteur :
Annee
CodeTypeFacturation
DernierNumSequentiel

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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
 
Public Sub CalculerNouveauNumDossier(prmClefPeriode As Long, prmTypeFacturation As Variant)
    'La création du compteur doit être fait lors de la création de la période.
 
    If Not MODE_DEBUG Then
        On Error GoTo Err_CalculerNouveauNumDossier
    End If
 
    Dim db As Database: Set db = CurrentDb
    Dim ClefTypeFacturation As Long
    Dim CodeTypeFacturation As String
 
    Select Case VarType(prmTypeFacturation)
        Case vbString
            ClefTypeFacturation = LireClefTypeFacturation((prmTypeFacturation))
            CodeTypeFacturation = prmTypeFacturation
        Case vbLong, vbInteger, vbDouble
            ClefTypeFacturation = prmTypeFacturation
            CodeTypeFacturation = LireCodeTypeFacturation((prmTypeFacturation))
        Case Else
            Error 5
    End Select
 
    'Lire l'année du compteur
    Dim Annee As Integer
    Dim rPeriode As Recordset: Set rPeriode = db.OpenRecordset("Periode", dbOpenDynaset)
    Call rPeriode.FindFirst("[Clef]=" & prmClefPeriode)
 
    If Not rPeriode.NoMatch Then
            Annee = Year(rPeriode![DateDebut])
        Else
            Error 3709: 'Clef non trouvée
    End If
 
    rPeriode.Close: Set rPeriode = Nothing
 
    m_Annee = Annee
 
    'Lire le code court
    Dim rTypeFacturation As Recordset: Set rTypeFacturation = db.OpenRecordset("TypeFacturation", dbOpenDynaset)
    rTypeFacturation.FindFirst ("[Clef]=" & ClefTypeFacturation)
 
    If Not rTypeFacturation.NoMatch Then
            m_Code = rTypeFacturation![CodeCourt]
        Else
            Error 3709: 'Clef non trouvée
    End If
 
    rTypeFacturation.Close: Set rTypeFacturation = Nothing
 
    'Calculer le nouveau numéro séquentiel
    Dim rCompteur As Recordset: Set rCompteur = db.OpenRecordset("Compteur", dbOpenDynaset)
    Call rCompteur.FindFirst("[ClefTypeFacturation]=" & ClefTypeFacturation & " and [Annee]=" & Annee)
 
    Dim nouveauNumSeq As Long
    If Not rCompteur.NoMatch() Then
 
RepriseSurVerouillage:
 
            rCompteur.Edit
            nouveauNumSeq = rCompteur![DernierNumSeq] + 1
            rCompteur![DernierNumSeq] = nouveauNumSeq
            rCompteur.Update
        Else
            Error 5: 'Clef non trouvée
    End If
 
    rCompteur.Close: Set rCompteur = Nothing
    db.Close: Set db = Nothing
 
    m_NumSequence = nouveauNumSeq
 
Exit_CalculerNouveauNumDossier:
    Exit Sub
 
Err_CalculerNouveauNumDossier:
    Select Case Err.Number
        Case 3046, 3158, 3186, 3187, 3188, 3202, 3218, 3260, 3330, 3624
            'Boucle tant que le compteur est vérouillé
            Resume RepriseSurVerouillage
 
        Case Else
            Call AfficherMessErrStandard(Err)
            Resume Exit_CalculerNouveauNumDossier
    End Select
 
End Sub

[skrounch]

Merci de ton aide !
Pour la partie fournisseur, je vais essayé de mettre ça en pratique tout de suite.

Par contre, pour la partie de programme je n'y comprend pas grand chose.
ou dois je insérer ce bout de code ?

Encore merci

[Lou Pitchoun]

Salut,

Le code est à placer dans un module.

[skrounch]

Vraiment je crois qu'access n'est pas fait pour moi !!

Je ne vois pas comment lier ma table commande
avec la table
Compteur :
Annee
CodeTypeFacturation
DernierNumSequentiel

Serait-il possible de créer un groupe de travail pour cette application ? Elle serait utile pour tout type de commerce et surtout gratuite

Voici ce que j'ai pensé d'y intégrer :

- Gestion des fournisseurs
- Gestion des stocks
- Gestion des achats
- Gestion des documents de vente
- Gestion de la clientèle
- Gestion des prospections
- Gestion des employés
- Gestion des notes de frais (voir de la compta complète)
- Gestion des fiches de paies
- Personnalisation de l'application facile (logo, coordonnées...)

Y aurait-il des gens intéressé pour travailler ensemble sur se beau projet ?

[marot_r]

Tu sais cela c'est un GROS projet, il y a des compagnies qui travaillent uniquement sur cela. C'est un domaine trés complexe et varié.

C'est un peu comme si tu disais :
"J'aime l'alpinisme, j'en ai pas fait jusqu'à présent mais j'aime cela ... je vais commencer par l'Evrest et aprés on verra si j'aime tojours cela." c'est trés ambitieux mais aussi trés difficile.

Si tu veux te faire la main sur Access je t'invite à essayer de te faire un carnet d'adresse c'est un projet plus accessible pour un débutant.

A+