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

    Atualizar duas tabelas

    Compartilhe

    didierjr
    Novato
    Novato

    Respeito às Regras 100%

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

    Atualizar duas tabelas

    Mensagem  didierjr em 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.
    avatar
    livio.sfranca
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    Re: Atualizar duas tabelas

    Mensagem  livio.sfranca em 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;

    didierjr
    Novato
    Novato

    Respeito às Regras 100%

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

    Resolvido em partes

    Mensagem  didierjr em 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
    avatar
    livio.sfranca
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    Re: Atualizar duas tabelas

    Mensagem  livio.sfranca em 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.

    didierjr
    Novato
    Novato

    Respeito às Regras 100%

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

    Re: Atualizar duas tabelas

    Mensagem  didierjr em 13/7/2018, 12:25

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

    Respeito às Regras 100%

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

    Re: Atualizar duas tabelas

    Mensagem  livio.sfranca em 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/11/2018, 03:04