VERIFICAR SE J? EXISTE O REGISTRO
Bom dia, Pessoal.
tenho um tabela chamada TB_SOCIO, com um campo CPF, gostaria que apos digitar o cpf no campo do formulário, verifica-se se já tem o cpf.
tenho um tabela chamada TB_SOCIO, com um campo CPF, gostaria que apos digitar o cpf no campo do formulário, verifica-se se já tem o cpf.
Isto é uma consulta simples cabra.
Pesquise aqui ou no google vai achar
este tipo de consulta.
Boa pesquisa.
Pesquise aqui ou no google vai achar
este tipo de consulta.
Boa pesquisa.
Uma dica para uma boa pesquisa no google. As vezes você não vai encontrar diretamente o que você quer da maneira que quer!
No entanto você pode pesquisa algo relacionado tipo se é uma consulta no banco (SELECT) então pesquise em como fazer um SELECT em tal banco com tal linguagem.
Ai é só adaptar.
Minha dica:
Não valide o CPF, após digitar, pois dependendo a quantidade de registro isso pode demorar um pouco!
Validade o CPF antes de iniciar o cadastro, ou seja, deixe os campos desabilitados para digitação e se o CPF não existir deixe digitar senão continua bloqueado
Ou valide quando clicar no botão salvar.
Espero ter ajudado
No entanto você pode pesquisa algo relacionado tipo se é uma consulta no banco (SELECT) então pesquise em como fazer um SELECT em tal banco com tal linguagem.
Ai é só adaptar.
Minha dica:
Não valide o CPF, após digitar, pois dependendo a quantidade de registro isso pode demorar um pouco!
Validade o CPF antes de iniciar o cadastro, ou seja, deixe os campos desabilitados para digitação e se o CPF não existir deixe digitar senão continua bloqueado
Ou valide quando clicar no botão salvar.
Espero ter ajudado
ok deu certo aqui. pra quem precisar.
Dim rs As New ADODB.Recordset
rs.Open [Ô]TB_SOCIO[Ô], con, adOpenDynamic, adLockPessimistic
rs.Filter = [Ô]CPF=[Ô] & txtCpfSocio.Text & [Ô][Ô]
If rs.EOF Then
Else
MsgBox [Ô]Este CPF Já Estar Cadastrado No sistema[Ô]
End If
Dim rs As New ADODB.Recordset
rs.Open [Ô]TB_SOCIO[Ô], con, adOpenDynamic, adLockPessimistic
rs.Filter = [Ô]CPF=[Ô] & txtCpfSocio.Text & [Ô][Ô]
If rs.EOF Then
Else
MsgBox [Ô]Este CPF Já Estar Cadastrado No sistema[Ô]
End If
Muitas pessoas criticam a forma de como escrevo minhas respostas.
Isto que faço é para incentivar a pessoa a pesquisar, buscar uma
forma de fazer a consulta, assim ele vai aprender.
Se achar de mão beijada vai ficar preguiçoso e quer tudo prontinho.
Basta perguntar!
Viu como conseguiu.
Continue assim.
Isto que faço é para incentivar a pessoa a pesquisar, buscar uma
forma de fazer a consulta, assim ele vai aprender.
Se achar de mão beijada vai ficar preguiçoso e quer tudo prontinho.
Basta perguntar!
Viu como conseguiu.
Continue assim.
Se o problema foi solucionado encerre o tópico, obrigado
Tópico encerrado , respostas não são mais permitidas