[Resolvido]ATUALIZAR REGISTRO

Tô tentando atualizar um registro em um formulario.
Os campos são:
CAMPO1
CAMPO2
CAMPO3
estes campos são atualizados cada vez que eu clico nos itens de uma caixa de listagem chamada apenas de "lista"
que "puxa" os dados de uma tabala chamada TblMovimentoTotal que possui os campos CAMPO1, CAMPO2, CAMPO3

criei um botão chamado btalterar com o seguinte procedimento:
dim rs as recordset
dim db as databese
dim strSQL as string

Set db = CurrentDb()
Set rs = db.OpenRecordset("Select campo1, campo2,campo3 from TblMovimentototal where TblMovimentoTotal.CAMPO1 ='" & Me.CAMPO1 & "'")

strSQL = ("UPDATE TblMovimentoTotal set TblMovimentoTotal.campo2 ='" & Me.CAMPO2 & "' where TblMovimentoTotal.CAMPO1 ='" & Me.CAMPO1 & "'")

DoCmd.RunSql (strSQL)


Mas não deu certo!!!


Se eu precisar alterar este campo2 sem usar o assitente do botão salvar

como uso o DoCmd.RunCommand acCmdSave?

Para atualizar registros vc pode usar no botão apenas:

Código:


dim strSQL as string
strSQL = "UPDATE TblMovimentoTotal set campo2 ='" & Me.CAMPO2 & "' where CAMPO1 ='" & Me.CAMPO1 & "'""

Currentdb.Execute strSQL


Se houver mais campos a serem atualizados basta incluir na string.

Falow,

Obrigado!

Eu já havia resolvido!


Fiz tudo de novo em um novo formulário e ai deu certo. Não se acontece com vocês, mas de vez em quando o formulário dá "pane" e pros comandos acontecerem tenho que fazer em um novo.


RESOLVIDO!!!

Boa tarde, edjr

1 - Se já tinha resolvido, devia ter vindo ao tema e informar, para que os colegas não estejam a preocupar-se com a sua dúvida desnecessariamente.
2 - Acompanhe, ao menos, os temas que cria e que os colegas dão contribuição para tentar resolver. Responda a este http://maximoaccess.forumeiros.com/t8483-selecionar-ultimo-registro#68601
3 - Ao ficar o tema resolvido, deve premir o botão apropriado que se encontra na zona inferior direita do formulário do fórum. Desta vez, primo eu
4 - Dê mais atenção às regras do fórum e de boa convivência.

O fórum agradece pelo retorno!

Sempre faça isso, ajude a contribuir para um fórum cada vez melhor!