Bom dia, amigos!
Gostaria e saber como faço para ao digitar um CPF ele me informe se este já existe na base.
montei um formulário de cadastro de clientes e gostaria de saber se qnd um novo cadastro for realizado ao digitar o CPF ele procure nós registros e caso encontre avise e retorne o cursos para o textbox já vazia!
obrigado
Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Busca na planilha através e textbox
-
- Colaborador
- Mensagens: 52
- Registrado em: Ter Set 01, 2015 11:16 am
Re: Busca na planilha através e textbox
Bruno, vê se tenta adaptar.
On Error Resume Next
Dim Pesq As String
Pesq = Textbox1.Text
Sheets("Plan1").Select
If Pesq <> "" Then
Cells.Find(What:=Pesq, After:=ActiveCell, _
LookIn:=xlFormulas, LookAt:=xlPart, _
SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Activate
If Err = 0 Then
Coloque a rotina
End If
If Err <> 0 Then
MsgBox "mensagem"
Pesc.Value = ""
Pesc.SetFocus
Exit Sub
End If
On Error Resume Next
Dim Pesq As String
Pesq = Textbox1.Text
Sheets("Plan1").Select
If Pesq <> "" Then
Cells.Find(What:=Pesq, After:=ActiveCell, _
LookIn:=xlFormulas, LookAt:=xlPart, _
SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Activate
If Err = 0 Then
Coloque a rotina
End If
If Err <> 0 Then
MsgBox "mensagem"
Pesc.Value = ""
Pesc.SetFocus
Exit Sub
End If
Re: Busca na planilha através e textbox
Cara, vai ter que pegar o valor da sua text box e fazer uma rotina de busca na base dados, sem muito segredo.
Coloca um botão pra ativar essa busca, pode ser o mesmo do cadastro, porem incluir a verificação na base antes do cadastro em si.
Se o CPF informado estiver cadastrado avisa o usuário, caso contrario libera o cadastro.
Coloca um botão pra ativar essa busca, pode ser o mesmo do cadastro, porem incluir a verificação na base antes do cadastro em si.
Se o CPF informado estiver cadastrado avisa o usuário, caso contrario libera o cadastro.