MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

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

    Compartilhe
    avatar
    eriol07
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 14
    Registrado : 20/09/2016

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

    Mensagem  eriol07 em 28/9/2016, 13:42

    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.


    Última edição por eriol07 em 5/10/2016, 17:27, editado 1 vez(es)
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3904
    Registrado : 14/08/2013

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

    Mensagem  FabioPaes em 28/9/2016, 17:17

    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.


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    avatar
    eriol07
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 14
    Registrado : 20/09/2016

    Funcionou perfeitamente!

    Mensagem  eriol07 em 5/10/2016, 17:25

    Muito obrigado Fabio Paes.

    Funcionou perfeitamente ^^
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3904
    Registrado : 14/08/2013

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

    Mensagem  FabioPaes em 5/10/2016, 17:35

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


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!

      Data/hora atual: 18/11/2018, 06:35