Discussion :

[helpredou]

Bonjour tout le monde,

est ce que quelqu'un s'il vous plait pourrait me dire ce qui ne vas pas dans ce code vba !?

je débute en vba et j ai besoin d un petit code qui s execute suite a un click sur un champs dun tableau.

et dans ce code la je dois recuperer la valeur du "Port" ( frais de port d un fournisseur ) dans la table "Founisseur/Port" afin de calculer le coût d'achat.

ici CT_NUM est le nom du fournisseur.

je pense que l erreur vient de la requete , il reconnais pas Me.CT_NUM !! dois je faire une fonction pour recuperer cet valeur ?


Private Sub CT_NUM_Click()

Dim res As Recordset
Set db = CurrentDb()
ChnSQL ("SELECT Port FROM Fournisseur/port WHERE Fournisseur=" & Me.CT_NUM)
Set res = db.OpenRecordset(ChnSQL)
sPort = res.Fields("Port")

Me.Parent![Requête2]![Fournisseur Principal] = Me.CT_NUM
Me.Parent![Requête2]![Prix achat tmp] = Me.Expr1
Me.Parent![Requête2]![Coût d'achat] = Me.Expr1 * sPort
Me.Parent.Refresh
End Sub
[/CODE]

Merci beaucoup pour votre aide, et vos propositions

[domibigoudi]

Bonjour,

Je pense que tu peux récupérer la valeur avec un simple dlookup

Code :

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

1
2
 
FraisPort=Dlookup("[Port]","Founisseur/Port","[Fournisseur]='" & Me.CT_NUM & "'")

Bonne journée.

[helpredou]

Bonjour,
merci pour ta reponse .
j ai essayé avec DLookup mais ca marche pas . peux me dire si tu y arrives ce qui ne va pas dans mon code stp merci beaucoup

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Private Sub CT_NUM_Click()
 
Dim sPort As Double
 
sPort = DLookup("[Port]", "Founisseur/Port", "[Fournisseur]='" & Me.CT_NUM & "'")
 
 
Me.Parent![Requête2]![Fournisseur Principal] = Me.CT_NUM
Me.Parent![Requête2]![Prix achat tmp] = Me.Expr1
Me.Parent![Requête2]![Coût d'achat] = Me.Expr1 * (1 + sPort / 100)
Me.Parent.Refresh
End Sub

[helpredou]

c bon j ai trouvé , il a suffit d'enlever private devant la fonction et tout marche bien .


merci beaucoup pour ton aide .