Como Descobrir quem já foi Cadastrado no Access?

Access VBA: Já foi cadastrado no Access?

Uma tratativa de erro que você não pode deixar de incluir em seus processos de CRUD, é verificar se um dado já foi cadastrado no Access para não gerar duplicidade. Pensando nisso, vamos mostrar neste artigo uma técnica em VBA muito simples e vai lhe ajudar e muito.

Suponhamos que eu tenha a tabela abaixo, com os campos iD, Nome, Data_Nascimento, Telefone e E-mail.

Através do formulário abaixo com os campos acoplados a minha tabela eu insiro os dados na tabela acima.

Baixe o arquivo para Praticar!!👇👇👇

Vamos criar um código agora, que vai verificar se o campo ‘Nome’ já foi cadastrado na tabela. Repare que este procedimento serve tanto para Maiúscula ou Minúscula.

 Private Sub Nome_BeforeUpdate(Cancel As Integer)

    If DCount("ID", "tbl_Cliente", "Nome=""" & Me!Nome & """") > 0 Then
        MsgBox "O Cliente " & Me!Nome & " já foi cadastrado!!", vbInformation, "Aviso"
        Me.Undo
        Cancel = True
    End If
    
End Sub

Vídeo Aula: Como Descobrir quem já foi Cadastrado no Access?

Para isso devemos utilizar o evento ‘Antes de Atualizar’ do textbox que chamamos de ‘Nome’ no formulário e adicionar o seguinte procedimento:

Repare que usamos a função DCOUNT().

A Função DCOUNT() no Access conta o número de registros em um domínio quando você não precisar saber seus valores específicos.

https://support.microsoft.com/

Caso ela retorne um valor maior que zero, será exibido uma mensagem de que o nome ‘Já foi Cadastrado no Access’. A sintaxe ‘Me.Undo’ impede a inclusão automática na tabela, desfazendo este processo. Já a sintaxe ‘Cancel = True’ mantem o foco no campo ‘Nome’ para que ele seja digitado corretamente.

Agora você pode testar o código com nome em maiúsculo e minúsculo para ver se vai funcionar

Curso de Access VBA Completo: Do Básico ao Avançado.

Quer aprender a programar no Access? Clique na imagem abaixo:

Por fim, deixe seu comentário sobre o que achou, se usar este recurso e você também pode enviar a sua sugestão para os próximos posts.