ATENÇÃO NOVOS USUÁRIOS

Se registrou recentemente? Seu cadastro será avaliado e mendiante aprovação, a conta será ativada e você poderá usufruir do fórum. O tempo de avaliação gira em torno de 24 a 48 horas.

Esqueceu sua senha?

Você pode usar o mecanismo de lembrete neste link: Recuperar senha

Você receberá um link de reativação no email cadastrado.

Não recebeu o email? Lembre-se checar o Lixo Eletrônico.

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: 45
Registrado em: Ter Set 01, 2015 11:16 am

Busca na planilha através e textbox

Mensagem por Bruno Capelli » Qui Jun 18, 2020 2:30 am

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: 140
Registrado em: Sáb Jun 02, 2012 12:55 pm

Re: Busca na planilha através e textbox

Mensagem por Adonias » Qui Jun 18, 2020 11:34 am

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
Colaborador
Colaborador
Mensagens: 13
Registrado em: Sex Jan 31, 2020 8:06 pm

Re: Busca na planilha através e textbox

Mensagem por Raygsson » Sex Jun 19, 2020 1:20 am

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