Logo Hardware.com.br
Leonardo.MG
Leonardo.MG Membro Junior Registrado
47 Mensagens 7 Curtidas

[Resolvido] VBA - Verificar dados no Access antes de cadastrar

#1 Por Leonardo.MG 25/02/2022 - 15:49
Amigos!

Estou precisando de um apoio. Estou desenvolvendo um sistema com o Excel tedo o Access como banco de dados e em uma ação de realizar um cadastro (qualquer um) gostaria de saber como consultar se o cadastro já exite no Access

Fiz esse código abaixo, mas não funcionou.

   

 If DCount("*", "cliente", "cnpj='" & Me.txtCNPJ.Value & "'&quot > 0 Then

        MsgBox "Cliente com esse CNPJ " & Me.txtCNPJ.Value & " já foi cadastrado, favor verificar", vbExclamation, "Atenção!"

        rs.Close

        Conexao.Close

        Set rs = Nothing

        Set Conexao = Nothing

        Exit Sub

    End If
dados desenvolvendo verificar cadastro apoio access vba precisando
Basole
Basole Geek Registrado
945 Mensagens 596 Curtidas
#4 Por Basole
02/03/2022 - 16:00

@Leonardo.MG
Não funcionou, esse "MoveFirst" ele faz o que?


O movefirst movimenta o cursor para o primeiro registro
Eu fiz açteração no meu exemplo anterior

[code=vb]
rs.MoveFirst
rs.Find "cnpj='" & Me.txtCNPJ.Value & "'"

If Not rs.EOF Then
MsgBox "Registro encontrado!", 64, ""
End If
[/code]

* Outra opção filtrar atraves da clausula sql 'where'

[code=vb]
Conexao.Open

Sql = "SELECT * FROM [Sua_tabela] WHERE [cnpj]='" & Me.txtCNPJ.Value & "';"

' ...........
'............

If Not rs.EOF Then
MsgBox "Registro encontrado!", 64, ""
End If
[/code]
Click em Curtir se a resposta foi útil. boa.gif Dê retorno por favor. Se resolveu, atencao_regras.gif Altere o Titulo como [ Resolvido ] comemorando.gif
Leonardo.MG
Leonardo.MG Membro Junior Registrado
47 Mensagens 7 Curtidas
#5 Por Leonardo.MG
06/03/2022 - 22:32
Basole disse:
O movefirst movimenta o cursor para o primeiro registro
Eu fiz açteração no meu exemplo anterior

[code=vb]
rs.MoveFirst
rs.Find "cnpj='" & Me.txtCNPJ.Value & "'"

If Not rs.EOF Then
MsgBox "Registro encontrado!", 64, ""
End If
[/code]

* Outra opção filtrar atraves da clausula sql 'where'

[code=vb]
Conexao.Open

Sql = "SELECT * FROM [Sua_tabela] WHERE [cnpj]='" & Me.txtCNPJ.Value & "';"

' ...........
'............

If Not rs.EOF Then
MsgBox "Registro encontrado!", 64, ""
End If
[/code]

Muito obrigado. Funcionou perfeitamente
© 1999-2024 Hardware.com.br. Todos os direitos reservados.
Imagem do Modal