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