tem alguma coisa errada nisto

 

axsql = "update produtos set data = '" & Txtdata & "', qtdatual='" & txtQtd & "' where codproduto='" & txtcodigo & "'"
conexao.Execute axsql

 

o erro que dah é

tipo de dados imcompativel na expressão de critério

 

agradeço desde jah

Se o campo data for do tipo date use # ao invés de '.

Se o campo qtdatual for numérico não use '.

 

axsql = "update produtos set data = #" & Txtdata & "#, qtdatual=" & txtQtd & " where codproduto='" & txtcodigo & "'"

o campo são todos texto, menos o codproduto, que é auto numeração...   bom so que quero que eu some o valor a antogo e salve o resultado como novo....  tipo se no campo qtdatual tem o valor 5, e quando eu mandar atualizar para o nuvo valor ex:9 quero que ele some 5+9 = 14, então salva o resulatado 14

naum sei como fazer isso!!!

espero que tenha entendido...

 

agradeço desde jah