Este fórum está sendo desativado

[JeffersonS]

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

[mprudencio]

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.

[JeffersonS]

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

Abs,