update d'.un enregistrement par vba

bonjour, je n'arrive pas à updater un enregsitrement dans une table,
voici mon code :

Private Sub Btnsupp_Click()
Dim var_qte As Double

var_qte = Me.qte_mat_prem.Value
CurrentDb.Execute "UpDate temp_qte SET var_qte_ori = " & var_qte & ";"
End Sub


dans le fond c'est une table temporaire dans laquelle j'ai seulement 1
enregistrement qui sera updater à chaque fois que l'on clic sur ce
bouton.

Salut,

Macgiver wrote:

bonjour, je n'arrive pas à updater un enregsitrement dans une table,
voici mon code :

Private Sub Btnsupp_Click()
Dim var_qte As Double

var_qte = Me.qte_mat_prem.Value
CurrentDb.Execute "UpDate temp_qte SET var_qte_ori = " & var_qte & ";"
End Sub


dans le fond c'est une table temporaire dans laquelle j'ai seulement 1
enregistrement qui sera updater à chaque fois que l'on clic sur ce
bouton.

"je n'arrive pas pas à..."

oui, mais as-tu un message d'erreur ?
la valeur "var_qte" n'est probablement pas un entier ?

Dans ce cas, il faut remplacer la virgule par un point:

la fin...

SET var_qte_ori = " & Replace(var_qte ; "," ; ".")


Note: le ";" est inutile.

--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
MPFA: http://www.mpfa.info/ (infos générales)

non je n'ai pas de message d'erreur, il fait la requete comme si tout
était correcte.