[Resolvido]Atualização do valor de um campo de tabela

Boa noite

Gostaria de saber qual a melhor maneira de atualizar um campo, com o seu valor atual mais a soma de um novo valor.

Obrigado pela ajuda.

Marcelo

boas
pode fazer assim:

Código:


Dim com As New ADODB.Command
Dim rst As New ADODB.Recordset
com.ActiveConnection = CurrentProject.Connection
com.CommandText = "SELECT id, campoNumero FROM Tabela1 WHERE  campoNumero = '" & txtNumero.Text & "';"
com.CommandType = adCmdText: Set rst = com.Execute
With rst
If .BOF And .EOF Then ' se o recordset está fora dos registo
vinclusao = true
'aqui pode fazer um insert into porque não existem registos.
MsgBox ("se quiser que informe que ainda não existe registo com o valor da cx de texto.")

Else
vinclusao = false
dim sql as string
dim vcampoNumero as long
dim vId as long
vid = rst!id
vcamponumero = rst!campoNumero + txtnumero.text

Dim com1 As New ADODB.Command
Dim rst1 As New ADODB.Recordset
com1.ActiveConnection = CurrentProject.Connection

sql = UPDATE Tabela1 SET campoNumero = " & vcampoNumero & " Where id = " & vid & ";
com1.CommandText = sql
com1.CommandType = adCmdText: Set rst1 = com1.Execute
Set rst1 = Nothing
Set com1 = Nothing

End If
End With

Set rst = Nothing
Set com = Nothing
End Sub


cumps
acao

Obrigado pela dica, consegui resolver meu problema.

Abraço

MArcelo