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]Importar dados do Excel verificando produtos

    avatar
    thiagonsilvaa
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 295
    Registrado : 12/01/2017

    [Resolvido]Importar dados do Excel verificando produtos Empty [Resolvido]Importar dados do Excel verificando produtos

    Mensagem  thiagonsilvaa em 19/2/2019, 23:04

    Boa noite a todos

    Ha um tempo atrás criei um tópico no qual os amigos desse fórum me ajudaram com um problema que estava quebrando a cabeça, mas graças a ajuda de todos encontrei a solução.
    O mesmo é: http://www.maximoaccess.com/t32009-resolvidoimportar-do-excel-mantendo-estrutura-do-access?highlight=importar

    Eu adaptei o código do nosso amigo Ahteixeira, funcionou perfeitamente, só que tem um detalhe, toda vez que eu vou importar dados da planilha eu tenho que antes inserir os produtos na tabela de cadastro de produtos para que não ocorra erros.

    O meu pedido de ajuda dessa vez é: há alguma maneira de antes eu verificar se os produtos a serem importados constam na tabela se não importar os produtos primeiro pra depois importar as notas pra que não ocorram erros e o processo seja automatizado ?

    Fico no aguardo.

    Meu muito obrigado !
    crysostomo
    crysostomo
    Super Avançado
    Super Avançado

    Respeito às Regras 50%

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

    [Resolvido]Importar dados do Excel verificando produtos Empty Re: [Resolvido]Importar dados do Excel verificando produtos

    Mensagem  crysostomo em 20/2/2019, 00:20

    boa noite. antes de exportar no Excel faça uma busca no nome que deseja para não verificar depois da exportação par a não exportar um monte de vezes, acho que foi isso que entendi, cero?
    avatar
    thiagonsilvaa
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 295
    Registrado : 12/01/2017

    [Resolvido]Importar dados do Excel verificando produtos Empty Re: [Resolvido]Importar dados do Excel verificando produtos

    Mensagem  thiagonsilvaa em 20/2/2019, 00:24

    Boa noite !

    Primeiramente gratidão pela resposta.

    Exatamente, toda vez quando eu exporto a planilha de outro sistema para inserir no que estou desenvolvendo, eu tenho que inserir os produtos da planilha manualmente na tabela, e nisso acaba tendo duplicidade, etc.

    O intuito é acabar com isso e facilitar o trabalho, tive como ideia fazer essa verificação antes da importação das notas.

    Abraços.
    crysostomo
    crysostomo
    Super Avançado
    Super Avançado

    Respeito às Regras 50%

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

    [Resolvido]Importar dados do Excel verificando produtos Empty Re: [Resolvido]Importar dados do Excel verificando produtos

    Mensagem  crysostomo em 20/2/2019, 00:37

    Você pega as planilhas para importar para access , certo? é isso?
    você pode fazer o seguinte , antes de você importar  você pode pegar a planilha dos dois sistemas e consolidar elas para que não haja duplicidade e depois inserir no access uma so vez, se ela tiver campo de números tipos produto x tem 5 e no outro sistema o produto x tem 50 a consolidação vai somar automaticamente ,
    ai se no acess você estiver o mesmos campos de cabeçalho um clique pra colar , sem precisar fazer vba
    avatar
    thiagonsilvaa
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 295
    Registrado : 12/01/2017

    [Resolvido]Importar dados do Excel verificando produtos Empty Re: [Resolvido]Importar dados do Excel verificando produtos

    Mensagem  thiagonsilvaa em 20/2/2019, 00:41

    Boa noite !

    Veja como é o formato da planilha do outro sistema:
    [Resolvido]Importar dados do Excel verificando produtos Untitl10

    Eu consigo importa-la normalmente para o access através do código do Ahteixeira no tópico mencionado na primeira mensagem.

    Até aí tudo bem, não estou conseguindo é verificar os produtos antes de importar.

    crysostomo
    crysostomo
    Super Avançado
    Super Avançado

    Respeito às Regras 50%

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

    [Resolvido]Importar dados do Excel verificando produtos Empty Re: [Resolvido]Importar dados do Excel verificando produtos

    Mensagem  crysostomo em 20/2/2019, 00:47

    rapaz eu sei atualizar a exportação e não a importação , mas vou dar uma olhada aqui
    crysostomo
    crysostomo
    Super Avançado
    Super Avançado

    Respeito às Regras 50%

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

    [Resolvido]Importar dados do Excel verificando produtos Empty Re: [Resolvido]Importar dados do Excel verificando produtos

    Mensagem  crysostomo em 20/2/2019, 00:55

    amigo ,
    existe uma forma de voce mexer no excel ele automaticamente se atualizar no access

    youtube.com/watch?v=vwy6Q9OUflo


    Última edição por crysostomo em 20/2/2019, 00:56, editado 1 vez(es)
    avatar
    thiagonsilvaa
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 295
    Registrado : 12/01/2017

    [Resolvido]Importar dados do Excel verificando produtos Empty Re: [Resolvido]Importar dados do Excel verificando produtos

    Mensagem  thiagonsilvaa em 20/2/2019, 00:55

    O intuito é, no processo de importação, na linha de código antes da linha que realiza em si a importação, é fazer a verificação dos produtos que constam na planilha.

    Caso o que consta na planilha não consta no sistema fazer a inserção, caso conste, não inserir novamente.

    crysostomo
    crysostomo
    Super Avançado
    Super Avançado

    Respeito às Regras 50%

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

    [Resolvido]Importar dados do Excel verificando produtos Empty Re: [Resolvido]Importar dados do Excel verificando produtos

    Mensagem  crysostomo em 20/2/2019, 00:58

    entendi.
    vou dar uma olhadinha a mais aqui ,mas
    existe uma forma de você mexer no Excel e  ele automaticamente se atualizar no access

    youtube.com/watch?v=vwy6Q9OUflo
    avatar
    thiagonsilvaa
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 295
    Registrado : 12/01/2017

    [Resolvido]Importar dados do Excel verificando produtos Empty Re: [Resolvido]Importar dados do Excel verificando produtos

    Mensagem  thiagonsilvaa em 20/2/2019, 01:03

    Assisti ao vídeo, acredito que não se encaixa na minha necessidade pelo fato de ser planilhas mensais, ou seja, pode acontecer de ser mais de uma.

    Todo fim de mês é exportado as planilhas de vendas de tal obra naquele mês, pra ser mais claro.


    crysostomo
    crysostomo
    Super Avançado
    Super Avançado

    Respeito às Regras 50%

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

    [Resolvido]Importar dados do Excel verificando produtos Empty Re: [Resolvido]Importar dados do Excel verificando produtos

    Mensagem  crysostomo em 20/2/2019, 01:26

    mais é como eu coloquei la em cima tiago , você pode colocar um Excel como base , e quando você pegar uma planilha mensal você cola a planilha do mês seguinte na planilha base e ele vai se atualizando para o access, até encontrar essa solução que pretende.
    Isso vai te dar mais agilidade e mais tempo de serviço
    crysostomo
    crysostomo
    Super Avançado
    Super Avançado

    Respeito às Regras 50%

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

    [Resolvido]Importar dados do Excel verificando produtos Empty Re: [Resolvido]Importar dados do Excel verificando produtos

    Mensagem  crysostomo em 20/2/2019, 01:40

    Thiago, da uma olhada aqui no link
    toda vez que você for mexer no Excel base o acces vai atualizar , ou seja , toda vez que colar o mês seguente ele se atualiza.
    drive.google.com/open?id=1zFUxrMjip8su3uHrKU82obuBqZI9yCdz
    avatar
    thiagonsilvaa
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 295
    Registrado : 12/01/2017

    [Resolvido]Importar dados do Excel verificando produtos Empty Re: [Resolvido]Importar dados do Excel verificando produtos

    Mensagem  thiagonsilvaa em 20/2/2019, 01:42

    Acho que entendi a sacada

    Vou tentar elaborar aqui e retorno.

    Até então muito obrigado meu caro, ajudou a abrir a cabeça
    crysostomo
    crysostomo
    Super Avançado
    Super Avançado

    Respeito às Regras 50%

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

    [Resolvido]Importar dados do Excel verificando produtos Empty Re: [Resolvido]Importar dados do Excel verificando produtos

    Mensagem  crysostomo em 20/2/2019, 01:45

    da uma olhada no link , fiz  2 arquivos pra vc , um Excel base e um access
    drive.google.com/open?id=1zFUxrMjip8su3uHrKU82obuBqZI9yCdz
    avatar
    thiagonsilvaa
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 295
    Registrado : 12/01/2017

    [Resolvido]Importar dados do Excel verificando produtos Empty Re: [Resolvido]Importar dados do Excel verificando produtos

    Mensagem  thiagonsilvaa em 20/2/2019, 13:06

    Bom dia meu caro !

    Vou tentar realizar a montagem aqui, logo retornarei.

    crysostomo
    crysostomo
    Super Avançado
    Super Avançado

    Respeito às Regras 50%

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

    [Resolvido]Importar dados do Excel verificando produtos Empty Re: [Resolvido]Importar dados do Excel verificando produtos

    Mensagem  crysostomo em 20/2/2019, 13:07

    Á disposição!
    avatar
    thiagonsilvaa
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 295
    Registrado : 12/01/2017

    [Resolvido]Importar dados do Excel verificando produtos Empty Re: [Resolvido]Importar dados do Excel verificando produtos

    Mensagem  thiagonsilvaa em 20/2/2019, 19:53

    Boa tarde !

    Consegui montar a estrutura.

    Agora vamos ao vba:

    Código:
    Dim db As DAO.Database
    Dim rs, rs2 As Recordset

    Set db = CurrentDb()
    Set rs = db.OpenRecordset("SELECT * From tblcadproduto")  '''' tabela que será inserido os produtos caso não existam
    Set rs2 = db.OpenRecordset("Select Descricao from cs_importaprodutos") '''''' consulta que trás os produtos da planilha base
           
            [b]If DLookup("Descricao", "tblcadproduto", "Descricao ='" & rs2!Descricao & "'") <> DLookup("Descricao", "cs_importaprodutos", "Descricao ='" & rs!Descricao & "'") Then[/b]

                rs.AddNew
                rs("Descricao") = rs2!Descricao
                rs("dtcadastro") = Now()
                rs.Update

            End If


    Na linha que está em negrito é que está a verificação a qual disse nas mensagens anteriores.

    Estou com dificuldades de fazer essa comparação.



    crysostomo
    crysostomo
    Super Avançado
    Super Avançado

    Respeito às Regras 50%

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

    [Resolvido]Importar dados do Excel verificando produtos Empty Re: [Resolvido]Importar dados do Excel verificando produtos

    Mensagem  crysostomo em 20/2/2019, 20:45

    eu sou meio leigo ainda com essas verificações de tabela amigo, essa vai dar pra te ajudar não.
    avatar
    thiagonsilvaa
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 295
    Registrado : 12/01/2017

    [Resolvido]Importar dados do Excel verificando produtos Empty Re: [Resolvido]Importar dados do Excel verificando produtos

    Mensagem  thiagonsilvaa em 20/2/2019, 21:33

    Boa noite meu caro !

    Consegui resolver, ficou desta maneira:

    Código:
    Dim db As dao.Database
    Dim rs, rs2 As Recordset

    Set db = CurrentDb()
    Set rs = db.OpenRecordset("SELECT * From tblcadproduto")
    Set rs2 = db.OpenRecordset("Select Descricao from cs_importaprodutos")
           
            If DCount("Descricao", "tblcadproduto", "Descricao ='" & rs2!Descricao & "'") = 0 Then
                Do While Not rs2.EOF
                rs.AddNew
                rs("Descricao") = rs2!Descricao
                rs("dtcadastro") = Now()
                rs.Update
                rs2.MoveNext
                Loop
            End If
               
           

        rs.Close
        rs2.Close
            db.Close

    Abraços.

    Conteúdo patrocinado

    [Resolvido]Importar dados do Excel verificando produtos Empty Re: [Resolvido]Importar dados do Excel verificando produtos

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 24/8/2019, 23:53