MaximoAccess

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

Obrigado

Administração do MaximoAccess

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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

    [Resolvido]Atualizar Tabelas via Botão no Formulário. VBA

    avatar
    mfmaiafilho
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 232
    Registrado : 02/08/2018

    [Resolvido]Atualizar Tabelas via Botão no Formulário. VBA Empty [Resolvido]Atualizar Tabelas via Botão no Formulário. VBA

    Mensagem  mfmaiafilho em 11/9/2020, 01:58

    Estou utilizando uma tabela pra atualizar duas tabelas... fazendo IF no comando abaixo com uma caixa de seleção...

    porém não estou tendo exito na atualização....

    o nome da Tabela que quero lançar as atualizações é TBL_UPDATEPRECOS
    nela tem os campos:
    CodAlfatec - Chave Primária que não se repete para códigos dos produtos
    Preço - que é o mais importante feito semanalmente

    tenho outra tabela chamada TBL_PRECOS nela contem os mesmo campos
    CodAlfatec - Chave Primária
    Preço

    afinal o que eu quero é que "TBL_PRECOS" receba os valores de "TBL_UPDATEPRECOS" nos dois campos CodAlfatec e Preço

    Estou utilizando código abaixo: por gentileza me ajudem acredito que seja SELECT INTO porém não to sabendo fazer....

    ' atualizar preços para tabelas A e B conforme selecionado
    Me.Refresh
    Dim rs As DAO.Recordset
    Set rs = CurrentDb.OpenRecordset("TBL_UPDATEPRECOS")
    rs.MoveFirst
    Do While Not rs.EOF
    CurrentDb.Execute "UPDATE TBL_PRECOS SET Preço = '" & rs!Preço & "' WHERE CodAlfatec = '" & rs!CodAlfatec & "'"
    rs.MoveNext
    Loop
    rs.Close
    Set rs = Nothing
    MsgBox "Todas as Cartas de Preços prontas foram atualizadas com os preços atuais.", vbInformation, "Mensagem"
    avatar
    WS_Lima
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 27
    Registrado : 23/01/2018

    [Resolvido]Atualizar Tabelas via Botão no Formulário. VBA Empty Re: [Resolvido]Atualizar Tabelas via Botão no Formulário. VBA

    Mensagem  WS_Lima em 11/9/2020, 17:46

    Olá, colega!

    Você já tentou lançar os dados através de uma consulta de atualização? Pois com ela, você conseguiria atualizar os dados para as demais tabelas.

    Se possível, poste um exemplo para fazer os testes.
    avatar
    mfmaiafilho
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 232
    Registrado : 02/08/2018

    [Resolvido]Atualizar Tabelas via Botão no Formulário. VBA Empty Re: [Resolvido]Atualizar Tabelas via Botão no Formulário. VBA

    Mensagem  mfmaiafilho em 11/9/2020, 18:23

    ' atualizar preços para tabelas A e B conforme selecionado
    Me.Refresh
    Dim rs As DAO.Recordset
    Set rs = CurrentDb.OpenRecordset("TBL_UPDATEPRECOS")
    rs.MoveFirst
    Do While Not rs.EOF

    'CurrentDb.Execute "UPDATE TBL_PRECOS SET Preço = '" & rs!Preço & "' WHERE CodAlfatec = '" & rs!CodAlfatec & "'"

    CurrentDb.Execute "UPDATE TBL_PRECOS SET CodAlfatec = '" & rs!CodAlfatec & "',Preço = '" & rs!Preço & "'"

    rs.MoveNext
    Loop
    rs.Close
    Set rs = Nothing
    MsgBox "mensagem padrão", vbInformation, "Mensagem"



    Olá bem eu bati cabeça ontem e fui dormir um pouco tarde, e descobri que essa confusão toda é por causa do WHERE, depois que removi está funcionando normalmente.

      Data/hora atual: 30/11/2020, 04:08