code VBA incorrect !

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

Bonjour,

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

Code:

---

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

---

Bonne journée.

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:

---

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

---

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


merci beaucoup pour ton aide .