Calcul Le prix de vente a partir de prix Unitaire avec un Taux de bénéfice
Nizar1969
-
yg_be Messages postés 23437 Date d'inscription Statut Contributeur Dernière intervention -
yg_be Messages postés 23437 Date d'inscription Statut Contributeur Dernière intervention -
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
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
A voir également:
- Calcul Le prix de vente a partir de prix Unitaire avec un Taux de bénéfice
- Roland souhaite calculer le montant total des ventes de son magasin. le fichier contient, pour chaque produit, la quantité vendue et le prix unitaire. calculez le montant total des ventes. - Forum Études / Formation High-Tech
- Historique prix amazon - Guide
- Tous les samsung galaxy avec prix - Guide
- Chaque fichier en ligne sur le web a un chemin d’accès sur un serveur. c’est le cas du fichier du logo présent sur la page de cette ville. quel est le chemin de ce fichier à partir de la racine du site ? - Forum Graphisme
- Modifier le prix sur le bon coin sans payer ✓ - Forum Services en ligne
5 réponses
yg_be
Messages postés
23437
Date d'inscription
Statut
Contributeur
Dernière intervention
Ambassadeur
1 587
bonjour,
peut-être peux-tu donner quelques exemples, avec les résultats obtenus et les résultats espérés?
peut-être peux-tu donner quelques exemples, avec les résultats obtenus et les résultats espérés?
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
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
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
merci d'utiliser les balises de code quand tu postes du code: https://codes-sources.commentcamarche.net/faq/11288-les-balises-de-code
je pense que tu ne décris pas complètement ce que tu veux réaliser.
pourquoi fais-tu ce travail?
je pense que tu ne décris pas complètement ce que tu veux réaliser.
pourquoi fais-tu ce travail?
