IMPEDIR REGISTRO DUPLICADO

 Tópico anterior Próximo tópico Novo tópico

IMPEDIR REGISTRO DUPLICADO

VB / VBA

 Compartilhe  Compartilhe  Compartilhe
#474631 - 20/06/2017 16:49:11

SERENO
BH
Cadast. em:Maio/2013


Boa tarde pessoal,

É possível fazer com que um campo impeça de inserir um dado, se o mesmo já estiver sido cadastrado?

Tenho um mskCPF, e neste, preciso que ao informar um CPF, o sistema informa que o mesmo já existe cadastrado.

Testei esta rotina no meu sistema, mas não deu certo.

Private Sub mskCPF_LostFocus()
  On Error GoTo A
    If mskCPF.Text = AdoCadCli.Recordset.Fields("CPF_CNPJ") Then
MsgBox ("CPF já cadastrado, ") & mskCPF.Text, 48, "Cadastro."
mskCPF = ""
mskCPF.SetFocus

  AdoCadCli.Refresh
  End If
A:
If Len(mskCPF.Text) < 1 Then
cmdConfirmar.Enabled = True

    End If



#474635 - 20/06/2017 17:53:40

OMAR2011
MONTES CLAROS
Cadast. em:Setembro/2011


Atléticano, use consulta Sql para verificar se existe o Cpf se está registrado.
Adodc nem pensar.



#474678 - 22/06/2017 20:21:19

MARCOSLING
SAO PAULO
Cadast. em:Agosto/2008


Coloca um indice do tipo unique na tabela



#474679 - 22/06/2017 21:43:44

OMAR2011
MONTES CLAROS
Cadast. em:Setembro/2011


Se  for o referido,ai sim.



#474685 - 23/06/2017 10:16:47

SERENO
BH
Cadast. em:Maio/2013


Bom dia

A tabela é Clientes e o campo da tabela é CPF_CNPJ. Estou usando o mskCPF como campo para inserir o CPF.

Porém, sou um mero aprendiz neste mundo VB, e gostaria da contribuição de vocês.

Desde já agradeço.
Abraços!!!



#474687 - 23/06/2017 11:24:17

DAMASCENO.CESAR
ADAMANTINA
Cadast. em:Fevereiro/2009


Você está fazendo via VB6 ou direto no Access?

O conhecimento é como o dinheiro: quanto mais temos, mais queremos ter (Josh Billings)  


#477692 - 07/11/2017 20:17:04

PETERSONTDS
NOVA SERRANA
Cadast. em:Setembro/2017


Primeiro em um Módulo Copie e Cole, se der erro e só procurar a referencia da conexão no Google, eu não me lembro dela no momento

Public db As New ADODB.Connection
Public rs As New ADODB.Recordset
Public Path As String

Public Sub ConnectBD()

    Path = App.Path & "\Banco.mdb"
    db.Open "Provider=microsoft.jet.oledb.4.0;data source=" & Path

End Sub

Public Sub DesconnectBD()
    
    If rs.State = 1 Then rs.Close: Set rs = Nothing
    If db.State = 1 Then db.Close: Set db = Nothing
      
End Sub
              
               'FAZ A VERIFICAÇÃO SE O REGISTRO JÁ ESTÁ CADASTRADO
                ConnectBD
                rs.Open "SELECT * FROM tbCadCliente WHERE Cnpj LIKE '" & txt_Cnpj.Text & "%' ORDER BY Codigo", db, 3, 3

                Do Until (rs.EOF)

                    If txt_Cnpj.Text = rs(3) Then

                        MsgBox "Cliente já consta na base de dados!", vbExclamation

                        DesconnectBD

                        Exit Sub

                    Else

                        rs.MoveNext

                    End If

                Loop



 Tópico anterior Próximo tópico Novo tópico


Para responder este tópico o login é requerido
Se você já possui uma conta de usuário por favor faça seu login
Se você não possui uma conta de usuário use a opção Criar usuário