[Resolvido]Macro para copiar dados em lote apartir de um click no botão

Olá pessoal do Máximo Access

Gostaria de solicitar a ajuda de vocês com um problema. Preciso de uma macro que copie os dados inseridos no campo observação em todas as linhas que possuírem o mesmo NCM apartir de um click no botão observação

a macro que estou utilizando é a seguinte mas não obtive exito.

Private Sub Teste0258_Click()

CurrentDb.Execute "UPDATE TBL_DADOS_ST SET OBSERVACAO='" & Me.OBSERVACAO & "' WHERE NCM = " & Me!NCM & ";"

End Sub


Segue anexo exemplo do banco.

Amigo, seu comando esta quase todo certo... Unico erro é que o Campo NCM é Texto... sendo assim ele deve ficar entre '"..."' e so esta entre aspas "...".


Mude o Comando para:

Dim varOBS, varNCM As String
varOBS = Me.OBSERVACAO
varNCM = Me.NCM
DoCmd.GoToRecord , , acNext
CurrentDb.Execute "UPDATE TBL_DADOS_ST SET OBSERVACAO='" & varOBS & "' WHERE NCM = '" & varNCM & "';"
Me.Recalc


Foi feito dessa forma para evitar um alerta de que o registro foi alterado.... e pedir confirmação...

Entao, armazeno o valor em variaveis, movo para o proximo registro e atualizo Tudo... EM seguida rodo recalc para mostrar os novos dados no Formulario.

Muito obrigado Fabio Paes.

Funcionou perfeitamente ^^

Grato pelo Retorno! Até a Próxima se Deus quiser!