NãO PERMITIR GRAVAR CPF DUPLICADO

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

NãO PERMITIR GRAVAR CPF DUPLICADO

VB.NET

 Compartilhe  Compartilhe  Compartilhe
#496094 - 19/01/2021 13:47:24

CROVADOR
CURITIBA
Cadast. em:Março/2018


Boa tarde Amigos tentei usar este código para evitar cadastrar mesmo cpf, mas não tive exito...
Socorro!!!! kkkk

Private Sub btnGravar_Click()

'Testa se o Recordset possui algum retorno, ou seja, se existe o registro. Caso não exista, segue na rotina de inclusão. Caso exista, exibe uma mensagem.
If IsNull(rsOrçGradum.RecordCount) Or rsOrçGradum.RecordCount < 1 Then 'Se o Recordset é nulo ou não existe o registro:
With rsOrçGradum
.AddNew
.Fields('cnpj_cpf') = Me.txt_cnpj_cpf.Text
rsOrçGradum.Update
End With
Else
MsgBox 'Código já cadastrado!'
Exit Sub
End If

If Me.txtNome = Empty Then
MsgBox 'Digite O Nome Do Cliente.', vbExclamation, 'Atenção'
Me.txtNome.SetFocus
Exit Sub
End If

If Me.txt_cnpj_cpf = Empty Then
MsgBox 'Digite Cnpj/Cpf.', vbExclamation, 'Atenção'
Me.txt_cnpj_cpf.SetFocus
Exit Sub
End If

If Inc = True Then
rsOrçDetum.AddNew
Else

rsOrçGradum.Close
SqlOrçGradum = 'DELETE FROM tbOrçamento_Grade1 WHERE Nro_Orçamento = ' & NroOrçum 'Apaga os registros antigos
rsOrçGradum.Open SqlOrçGradum, cn, adOpenKeyset, adLockOptimistic 'pra incluir os dados atualizados
SqlOrçGradum = 'SELECT * FROM tbOrçamento_Grade1'
rsOrçGradum.Open SqlOrçGradum, cn, adOpenKeyset, adLockOptimistic

End If

rsOrçDetum(1) = Date
rsOrçDetum(2) = Me.txtNome
rsOrçDetum(3) = Me.txtObservaçoes
rsOrçDetum(4) = Me.txtTelefone
rsOrçDetum(5) = Me.txt_contato
rsOrçDetum(6) = Me.txt_email
rsOrçDetum(7) = Me.txt_endereço
rsOrçDetum(8) = Me.txt_cnpj_cpf
rsOrçDetum(9) = Me.txt_ie
rsOrçDetum(10) = Me.TXT_NUMERO
rsOrçDetum(11) = Me.txt_bairro
rsOrçDetum(12) = Me.txt_cep
rsOrçDetum(13) = Me.txt_cidade
rsOrçDetum(14) = Me.txt_uf

rsOrçDetum.Update

For i = 1 To Me.lstvOrç.ListItems.Count
With Me.lstvOrç
rsOrçGradum.AddNew
rsOrçGradum(0) = NroOrçum
rsOrçGradum(1) = .ListItems(i)
rsOrçGradum(2) = .ListItems(i).ListSubItems(1)

rsOrçGradum.Update
End With
Next i
If Inc = True Then
rsNroum.AddNew
rsNroum(0) = NroOrçum
rsNroum.Update
End If

LimpaControles
rsNroum.MoveLast
NroOrçum = rsNroum(0).Value + 1
Me.stbOrç.Panels(1) = 'Nro Orç.: ' & NroOrçum
iCancel = 0
MsgBox 'Registro Salvo Com Sucesso.', vbInformation, 'Clientes'
Me.btnLer.Enabled = True

End Sub



#496095 - 19/01/2021 16:35:36

TUNUSAT
SAMPA
Cadast. em:Dezembro/2003


CROVADOR,

   Você pode implementar dois procedimentos:

1 - No Banco de dados definir o campo CPF como UNIQUE;

2 - No código implementar uma função que faz uma busca do CPF passado e retornar um simples 'True' or 'False' indicando que o CPF já existe ou não existe no Banco de dados;

  Outro jeito:

3 - Definir 0o CPF como Chave Primária (PK);

[]'s,
Tunusat.

Haja, pois, o que houver, ampliem-se obstáculos, agigantem-se problemas, intensifiquem-se lutas ou se agravem provações, trabalha sempre no bem de todos, porque, trabalhando na Seara do Bem, podes conservar a certeza de que Deus te sustentará. Emmanue

#496097 - 19/01/2021 16:44:20

CROVADOR
CURITIBA
Cadast. em:Março/2018


Boa tarde amigo, TUNUSAT não consegui entender bem. sou leigo ainda em vba, estou agrupando e montando este projeto será que vc pode ajudar-me com relação ao meu código?



#496100 - 19/01/2021 18:04:54

KERPLUNK
RIO GRANDE DO SUL
Cadast. em:Junho/2009


Membro da equipe
Se é leigo, como já tem algum código? É um desses 'achei na net'?
Para desenvolver, você precisa antes aprender e estudar como, não simplesmente sair copiando e colando código.

_______________________________________________________________________
Virei Orculo!
The end is nigh, be ready for the nukes!


#496103 - 19/01/2021 19:23:15

CROVADOR
CURITIBA
Cadast. em:Março/2018


Última edição em 19/01/2021 19:28:48 por CROVADOR

Citação:
:
Se é leigo, como já tem algum código? É um desses 'achei na net'?
Para desenvolver, você precisa antes aprender e estudar como, não simplesmente sair copiando e colando código.


O amigo, primeiro tenho capacidade para realizar alguns códigos vba, se você é desses que nasceu sabendo tudo bom pra você. pois eu humildemente mesmo com tal experiência sei pedir ajuda mesmo e ser educado com pessoas hipócritas e mal educada. Fico triste em saber que ainda existe pessoas assim...
Mas Deus é mais e sabe o que faz...

Não esqueça que vc é uma cópia de Adão, então não faça criticas sobre copiar...

Passar bem...




#496104 - 19/01/2021 20:57:51

KERPLUNK
RIO GRANDE DO SUL
Cadast. em:Junho/2009


Membro da equipe
Citação:
:
:
Se é leigo, como já tem algum código? É um desses 'achei na net'?
Para desenvolver, você precisa antes aprender e estudar como, não simplesmente sair copiando e colando código.

O amigo, primeiro tenho capacidade para realizar alguns códigos vba, se você é desses que nasceu sabendo tudo bom pra você. pois eu humildemente mesmo com tal experiência sei pedir ajuda mesmo e ser educado com pessoas hipócritas e mal educada. Fico triste em saber que ainda existe pessoas assim...
Mas Deus é mais e sabe o que faz...

Não esqueça que vc é uma cópia de Adão, então não faça criticas sobre copiar...

Passar bem...

Ótimo, assunto resolvido.

_______________________________________________________________________
Virei Orculo!
The end is nigh, be ready for the nukes!


#496105 - 19/01/2021 21:38:15

CROVADOR
CURITIBA
Cadast. em:Março/2018


Ganhou seu dia fazendo uma boa ação, como disse... Pessoas como você inerte negativismo, e induz outras pessoas a seguir seu exemplo...
Ter tato e ser prudente, com brandura e alto domínio ainda tem que aprender rapaz, educação é uma dádiva, e não uma conquista...
Agora está resolvido...




#496106 - 19/01/2021 22:18:16

KERPLUNK
RIO GRANDE DO SUL
Cadast. em:Junho/2009


Membro da equipe
Citação:
:
Ganhou seu dia fazendo uma boa ação, como disse... Pessoas como você inerte negativismo, e induz outras pessoas a seguir seu exemplo...
Ter tato e ser prudente, com brandura e alto domínio ainda tem que aprender rapaz, educação é uma dádiva, e não uma conquista...
Agora está resolvido...

Estou há mais de 25 anos trabalhando direto com TI. Vários anos prestando ajuda à, literalmente, centenas de pessoas aqui no fórum, talvez até mais de mil. Ao longo desses vários anos, estiveram por aqui muitos como você.
Não gosta de ouvir o óbvio: Você precisa estudar mais. Se é iniciante, sem problemas, podemos ajudar.
O que não vamos fazer é o que você deveria fazer, que é estudar e ter alguma noção. Ajudamos à evoluir, não carregamos você nas costas.

Está dito.


_______________________________________________________________________
Virei Orculo!
The end is nigh, be ready for the nukes!


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


Tópico encerrado, respostas não sao permitidas
Encerrado por KERPLUNK em 19/01/2021 22:32:47