MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

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

2 participantes

    Atualizar duas tabelas

    avatar
    didierjr
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 18
    Registrado : 08/11/2012

    Atualizar duas tabelas Empty Atualizar duas tabelas

    Mensagem  didierjr 5/7/2018, 14:38

    Tenho uma tabela que tenho os campos de cadastro de produtos:
    Tabela 1 codigobarras e quantidade
    Tabela 2 codigobarras , codigoauxiliar,unidade

    Queria uma consulta ou uma forma de que na tabela 1
    ela encontra-se o codigoaulixar e unidade que forem iguais ao codigo de barras.
    livio.sfranca
    livio.sfranca
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 150
    Registrado : 09/01/2018

    Atualizar duas tabelas Empty Re: Atualizar duas tabelas

    Mensagem  livio.sfranca 12/7/2018, 14:57

    Bom dia Geraldo!

    Não sei se já resolveu a questão, mas ficaria assim a consulta:

    SELECT Tabela1.*, Tabela2.codigoauxiliar, Tabela2.unidade FROM Tabela1 LEFT JOIN Tabela2 ON Tabela1.codigobarras = Tabela2.codigobarras;
    avatar
    didierjr
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 18
    Registrado : 08/11/2012

    Atualizar duas tabelas Empty Resolvido em partes

    Mensagem  didierjr 12/7/2018, 18:47

    Consegui executar
    agora eu acho que expliquei um pouco errado
    Eu precisava que essa consulta atualiza-se os campos: codigoauxiliar, unidade da tabela CSV no qual o codigo de barras sejam iguais em ambas tabelas.
    Ou seja tenho uma tabela chamada csv que so tem os dados de codigo de barras e quantidade , aê eu queria uma consulta que busca-se na tabela cadastro de produtos o codigodoproduto e a unidade e que a consulta atualiza-se os campos na tabela csv
    livio.sfranca
    livio.sfranca
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 150
    Registrado : 09/01/2018

    Atualizar duas tabelas Empty Re: Atualizar duas tabelas

    Mensagem  livio.sfranca 13/7/2018, 02:11

    Então você quer é atualizar a própria tabela CSV e não criar apenas uma consulta?

    Agora ficou confuso.
    avatar
    didierjr
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 18
    Registrado : 08/11/2012

    Atualizar duas tabelas Empty Re: Atualizar duas tabelas

    Mensagem  didierjr 13/7/2018, 12:25

    quero atualizar uma tabela
    livio.sfranca
    livio.sfranca
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 150
    Registrado : 09/01/2018

    Atualizar duas tabelas Empty Re: Atualizar duas tabelas

    Mensagem  livio.sfranca 13/7/2018, 19:15

    Digamos que dessas duas tabelas que você tenha, a principal seja a "tbl_Produtos".

    Primeiramente você precisa criar os dois campos da tabela que você precisa da tabela "CVS" na "tbl_Produtos", com os mesmo nomes e tipo de dados. No caso esses campos seriam: codigoauxiliar e unidade.
    Então os campos dessa tabela principal ficariam assim:

    codigobarras, quantidade, codigoauxiliar e unidade.

    Feito isso, num módulo do vba, crie uma sub assim:

    Código:
    Sub AtualizarTabela()
        Dim rst As DAO.Recordset
        
        Set rst = CurrentDb.OpenRecordset("SELECT * FROM CSV;")
        
        Do While Not rst.EOF
            CurrentDb.Execute "UPDATE tbl_Produtos SET codigoauxiliar=" & _
            rst("codigoauxiliar") & ", unidade='" & rst("unidade") & _
            "' WHERE codigobarras=" & rst("codigobarras")
            rst.MoveNext
        Loop
        rst.Close
        Set rst = Nothing
    End Sub
    Você deve trocar os nomes dos campos e tabelas informados acima, pelos nomes dos campos e tabelas do seu BD.

      Data/hora atual: 17/9/2021, 05:13