J'ai un formulaire avec un champs article et un champs prix :
Le champs article est un menu deroulant avec le nom des article, et des
qu'on choisi un article ca met automatiquement le prix dans le champs prix
Le prix est situé dans un table article
Merci de me dire quel code VB mettre sur Apres MAJ du champs article!
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Emmanuel
Voici une SUB qui pourrait vous aider. Elle permet de rechercher la dénomination d'un article, son prix de vente et son taux de Tva dans la table "2ARTICLE" à partir de la référence de l'article 'DetArticleReference'.
SUB... Dim dbs As DAO.Database Dim rstArt As DAO.Recordset
Set dbs = CurrentDb
With dbs Set rstArt = dbs.OpenRecordset("SELECT * FROM 2Article WHERE [ArtCompteur] = " & DetArticleReference & "") End With
With rstArt If Not .NoMatch And Not (IsNull(DetArticleReference) Or IsEmpty(DetArticleReference)) And (DetArticleReference) <> 0 Then DetArticleNom01 = !ArtNom01 DetArticleCodeTva = Nz(!ArtCodeTva, 0) DetArticlePrixUnitaire = Nz(!ArtPrixVente01, 0) End If
End With
dbs.Close
End Sub
-----Message d'origine----- Bonjour,
J'ai un formulaire avec un champs article et un champs prix :
Le champs article est un menu deroulant avec le nom des article, et des
qu'on choisi un article ca met automatiquement le prix dans le champs prix
Le prix est situé dans un table article
Merci de me dire quel code VB mettre sur Apres MAJ du champs article!
Merci !
.
Voici une SUB qui pourrait vous aider.
Elle permet de rechercher la dénomination d'un article,
son prix de vente et son taux de Tva dans la
table "2ARTICLE" à partir de la référence de
l'article 'DetArticleReference'.
SUB...
Dim dbs As DAO.Database
Dim rstArt As DAO.Recordset
Set dbs = CurrentDb
With dbs
Set rstArt = dbs.OpenRecordset("SELECT * FROM
2Article WHERE [ArtCompteur] = " & DetArticleReference
& "")
End With
With rstArt
If Not .NoMatch And Not (IsNull(DetArticleReference)
Or IsEmpty(DetArticleReference)) And
(DetArticleReference) <> 0 Then
DetArticleNom01 = !ArtNom01
DetArticleCodeTva = Nz(!ArtCodeTva, 0)
DetArticlePrixUnitaire = Nz(!ArtPrixVente01, 0)
End If
End With
dbs.Close
End Sub
-----Message d'origine-----
Bonjour,
J'ai un formulaire avec un champs article et un champs
prix :
Le champs article est un menu deroulant avec le nom des
article, et des
qu'on choisi un article ca met automatiquement le prix
dans le champs prix
Le prix est situé dans un table article
Merci de me dire quel code VB mettre sur Apres MAJ du
champs article!
Voici une SUB qui pourrait vous aider. Elle permet de rechercher la dénomination d'un article, son prix de vente et son taux de Tva dans la table "2ARTICLE" à partir de la référence de l'article 'DetArticleReference'.
SUB... Dim dbs As DAO.Database Dim rstArt As DAO.Recordset
Set dbs = CurrentDb
With dbs Set rstArt = dbs.OpenRecordset("SELECT * FROM 2Article WHERE [ArtCompteur] = " & DetArticleReference & "") End With
With rstArt If Not .NoMatch And Not (IsNull(DetArticleReference) Or IsEmpty(DetArticleReference)) And (DetArticleReference) <> 0 Then DetArticleNom01 = !ArtNom01 DetArticleCodeTva = Nz(!ArtCodeTva, 0) DetArticlePrixUnitaire = Nz(!ArtPrixVente01, 0) End If
End With
dbs.Close
End Sub
-----Message d'origine----- Bonjour,
J'ai un formulaire avec un champs article et un champs prix :
Le champs article est un menu deroulant avec le nom des article, et des
qu'on choisi un article ca met automatiquement le prix dans le champs prix
Le prix est situé dans un table article
Merci de me dire quel code VB mettre sur Apres MAJ du champs article!
