[Resolvido]Importar dados do Excel verificando produtos

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 é: https://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 !

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?

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.

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

Boa noite !

Veja como é o formato da planilha do outro sistema:


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.

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

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

youtube.com/watch?v=vwy6Q9OUflo

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.

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

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.

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

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

Acho que entendi a sacada

Vou tentar elaborar aqui e retorno.

Até então muito obrigado meu caro, ajudou a abrir a cabeça

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

Bom dia meu caro !

Vou tentar realizar a montagem aqui, logo retornarei.

Á disposição!

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.

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

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.