Calcul Le prix de vente a partir de prix Unitaire avec un Taux de bénéfice

Signaler
-
 Nizar1969 -
Bonjour, à tous
Merci de votre aide
je fait un fonction au champs Prix-vente tel que
Prix_vente =(Round([Prix_Unitaire]*(1+([Taux_benefice]/100));2)
mais quand j'ajouts le taux_benefice a partir de mon formulaire j’obtiens une résultat non espéré
déferrent de la réalité de prix de vente

5 réponses

Messages postés
12140
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
13 septembre 2020
683
bonjour,
peut-être peux-tu donner quelques exemples, avec les résultats obtenus et les résultats espérés?
Bonjour,
par exemple une Boitier de Prix_Unitaire 2 euro le Prix de vent sera 2.22 euro si on ajout le TVA (1.2) donc le prix de vent et de 2.664 euro mais le prix réale de boitier et 3 euro
Messages postés
12140
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
13 septembre 2020
683
qui a décidé du prix réel de 3 euros?
par l'usine de production
Messages postés
12140
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
13 septembre 2020
683
en utilisant quelle formule?
Réf_Désignation
Nom_Désignation
Catégorie
Unité
Qte_Stock
Qte_Min
Prix_Unitaire
Taux
Prix_Vente
=> btnEnregistrer
Messages postés
12140
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
13 septembre 2020
683
je pense que tu ne décris pas l'ensemble de l'énoncé.
Nom
Voila le code dont btnEnregistre
Private Sub btnEnregistrerProd_Click()

Dim rst As Recordset
Dim idProduit As Integer
If (Me.txtDesig <> "" And Me.txtidCateg <> "" And Me.txtidUni <> "" And Me.txtPrixUnitaire <> "" And Me.txtQte <> "" And Me.txtQteMin <> "") Then
If (doubleProd(Me.txtDesig <> "", Me.txtLibelle <> "") = False) Then
Set rst = CurrentDb.OpenRecordset("Produits", dbOpenTable)

rst.AddNew
idProduit = rst("idProduit")
rst("Libelle") = Me.txtLibelle
rst("Designation") = Me.txtDesig
rst("IdCategorie") = Me.txtidCateg
rst("idUnite") = Me.txtidUni
rst("QteStock") = Me.txtQte
rst("PrixUnitaire") = Me.txtPrixUnitaire
rst("Taux") = Me.txtTaux.Value
rst("QteMin") = Me.txtQteMin
rst.Update
rst.Close
Set rst = Nothing
Dim Lvrm As LVR_MovLivraisons
Set Lvrm = New LVR_MovLivraisons
Lvrm.idLivraison = 0
Lvrm.idCommande = 0
Lvrm.idProduit = idProduit
Lvrm.PrixUnitaire = Me.txtPrixUnitaire
Lvrm.Qtelivre = Me.txtQte
Lvrm.TypeMovlivre = "Entree"
Lvrm.DateMovlivre = Now
Res = EnregistrerMLvr(Lvrm)

DoCmd.Close acForm, Me.Name
DoCmd.Requery
Else
MsgBox (" Attention Doublant Produit"), vbCritical, "Esteme Doublant"
End If

Else
MsgBox ("Atention ! remplissez toutes les champs"), vbExclamation, "Champs Vide"

End If
End Sub