Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Busca na planilha através e textbox

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
Bruno Capelli
Colaborador
Colaborador
Mensagens: 52
Registrado em: Ter Set 01, 2015 11:16 am

Busca na planilha através e textbox

Mensagem por Bruno Capelli »

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


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Adonias
Manda bem
Manda bem
Mensagens: 167
Registrado em: Sáb Jun 02, 2012 12:55 pm

Re: Busca na planilha através e textbox

Mensagem por Adonias »

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


Raygsson
Manda bem
Manda bem
Mensagens: 118
Registrado em: Sex Jan 31, 2020 8:06 pm

Re: Busca na planilha através e textbox

Mensagem por Raygsson »

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.


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder