Requete update

Bonjour,

voila j ai créé dans mon code vb sous access une requete update basé sur un bouton, mais lors de l éxécution ce message s'affiche:
extra) query in expression 'prod_id_prod=7 and codetypetrans='HA')' et voila ma requete
req = "update avoir set qte=" & Me.HapFin & " where prod_id_prod=" & val & "and codetypetrans='" & CODE & "')"
DoCmd.RunSQL (req)
j ai chercher d ou venait l erreur, vérifier mes champs texte etnumérique mes je ne trouve rien qui cloche

merci pour votre aide