Guru do Excel e Power BI

Boa noite Expertises,
Estou Criando um formulário no Excel que grava as informações no banco Acess.
Porém preciso fazer uma verificação para ver se o registro da nota fiscal já está no Banco.

Alguém consegue me ajudar?

Código: Selecionar todos

Private Sub Btn_Salvar_Click()
    

    Rs.AddNew

    Rs.Fields("Mes") = Me.Txt_Mes_Ocorrencia.Text
    Rs.Fields("Ano") = Me.Txt_Ano_Ocorrencia.Text
    Rs.Fields("Nota_Fiscal") = Me.Txt_Nota_Fiscal.Text
    Rs.Fields("Tipo") = Me.Cmb_Tipo.Text
    Rs.Fields("Data_Ocorrencia") = Me.Txt_Data_Ocorrencia
    Rs.Fields("Data_Faturamento") = Me.Txt_Data_Faturamento.Text
    Rs.Fields("Prazo_Entrega") = Me.Txt_N_Dias.Text
    Rs.Fields("Entregador") = Me.Cmb_Entregador.Text
    Rs.Fields("Codigo_Cliente") = Me.Txt_Codigo_Clie.Text
    Rs.Fields("Razao_Social") = Me.Txt_Razao_Social.Text
    Rs.Fields("Cidade") = Me.Txt_Cidade.Text
    Rs.Fields("Condicao_Pgto") = Me.Txt_Condicao_Pgto.Text
    Rs.Fields("Valor_NF") = Me.Txt_Valor_NF.Text
    Rs.Fields("Peso_NF") = Me.Txt_Peso.Text
    Rs.Fields("Mesa") = Me.Txt_Mesa.Text
    Rs.Fields("Supervisor") = Me.Txt_Supervisor.Text
    Rs.Fields("Vdd") = Me.Txt_Vdd.Value
    Rs.Fields("Vendedor") = Me.Txt_Vendedor.Text
    Rs.Fields("Setor_Responsavel") = Me.Cmb_Setor_Responsavel.Text
    Rs.Fields("Motivo_Devolucao") = Me.Cmb_Motivo.Text
    Rs.Fields("Observacoes") = Me.Txt_Observacao.Text

    If Me.Txt_Nota_Fiscal = "Select * From Cadastro_Devolucao where nota_Fiscal = me.Txt_Nota_Fiscal" Then
    MsgBox "Nota Fiscal já cadastrada", vbCritical, "Sistema Devolução"
    Else
    Rs.Update
    
    MsgBox "Cadastro da Devolução Realizado com Sucesso!!", vbInformation, "Sistema Devolução"
    
    Call LimparDados
    

    
    End If

vc vai precisar fazer uma verificação dupla no BD.

Pesquisar o numero da NF e o CNPJ da empresa.

De forma grosseira(vou escrever como se fosse uma planilha faça os ajustes)

Dim linha as long
linha = 2

do while cells(linha,1).value <> ""

if cells(linha,1).value = textboxnf.value and cells(linha,2).value = textboxcnpj.value then

msgbox = NF Ja cadastrada!!,vbcritical,"Dados Duplicados"
exit sub
end if

De forma generica é isso.

Enviado: **01 Jun 2018 às 21:57**

Obrigado, vou tentar ajustar.
Sou iniciante em VBA é minha primeira tentativa juntar com instrução de SQL.

Abs,

Guru do Excel e Power BI

Evitar Cadastro de duplicidade no Banco Acess com Formulário

Evitar Cadastro de duplicidade no Banco Acess com Formulário

Evitar Cadastro de duplicidade no Banco Acess com Formulário

Evitar Cadastro de duplicidade no Banco Acess com Formulário