Discussion :

[lomania]

Bonjour à toutes et tous,

Je suis entrain de construire une base de facturation pour ma future société.
elle se compose de 4 tables : produits, clients, facture, détail_facture

J'ai suivi plus ou moins les differents tuto de facturation sur le net. Mais le problème est qu'ils se basent tous sur le prix de la table produits ce qui implique qu' une augmentation des tarifs aurait des conscéquences sur toutes les factures ! y compris les anciennes !

Je cherche donc un moyen de récupérer le prix de la table produits pour l'inclure dans la table "détail_facture" lors de l'edition de la facture pour contourner le problème.

j'ai entendu dire que c'était possible par procédure évènementielle, mais je ne connais rien au VBA.

Merci d'avance pour votre aide

[pgz]

Bonjour,

En gros, quand tu vas saisir un détail de facture, tu vas renseigner une zone Produit. Sur l'évènement 'après mise à jour" de Produit, un bout de code te permet de lire le tarif dans la table des produits et de l'écrire dans le contrôle Prix de détail facture, lui-même relié au champ Prix de la table Détail des Factures.

En espérant que cela t'aide,

pgz

[lomania]

Bonjour,

En gros, quand tu vas saisir un détail de facture, tu vas renseigner une zone Produit. Sur l'évènement 'après mise à jour" de Produit, un bout de code te permet de lire le tarif dans la table des produits et de l'écrire dans le contrôle Prix de détail facture, lui-même relié au champ Prix de la table Détail des Factures.

En espérant que cela t'aide,

pgz

aïe... un bout de code ! merci pour ton aide, c'est un peu plus clair ! mais je ne connais pas le code

[pgz]

Re,

Je considère que tu as un formulaire, ou plutôt un sous formulaire pour saisir les détails de factures. Dans ce sous formulaire, des contrôles dont
- IdProduit
- quantité
- Prix
- Montant
ayant pour source les champs du même nom de la table détails de facture.

sur mise à jour de IdProduit

Code :

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

1
2
3
4
5
6
If NOT IsNull(Me.IdProduit) then
    Me.Prix = DLookUp("Prix","tblProduits","IdProduit = " & Me.IdProduit)
else
    Me.Prix = Null
end if
call subMontant

avec

Code :

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

1
2
3
4
5
6
7
Private Sub subMontant
if NOT IsNUll(Me.Produit) AND Not ISNull(Me.Quantité) then
    Me.Montant = Me.prix * Me.Quantité
Else
    Me.Montant = Null
end if
End Sub

Et après mise à jour de quantité

Code :

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

Call subMontant

Voilà l'idée.

pgz

[lomania]

Re,

Je considère que tu as un formulaire, ou plutôt un sous formulaire pour saisir les détails de factures. Dans ce sous formulaire, des contrôles dont
- IdProduit
- quantité
- Prix
- Montant
ayant pour source les champs du même nom de la table détails de facture.

sur mise à jour de IdProduit

Code :

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

1
2
3
4
5
6
If NOT IsNull(Me.IdProduit) then
    Me.Prix = DLookUp("Prix","tblProduits","IdProduit = " & Me.IdProduit)
else
    Me.Prix = Null
end if
call subMontant

avec

Code :

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

1
2
3
4
5
6
7
Private Sub subMontant
if NOT IsNUll(Me.Produit) AND Not ISNull(Me.Quantité) then
    Me.Montant = Me.prix * Me.Quantité
Else
    Me.Montant = Null
end if
End Sub

Et après mise à jour de quantité

Code :

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

Call subMontant

Voilà l'idée.

pgz

Je vais essayer ça, je te tiens au courant MERCI beaucoup !

[lomania]

super ça marche ! Merci tu es un chef respects