Usuário não registrado (Mensagem fazer buscas).

2024 - VBA & Macros

Post Recente por hpernaf 8 anos atrás

3 Posts

2 Usuários

0 Reactions

874 Visualizações

RSS

hpernaf

(@hpernaf)

Posts: 8

Active Member

Topic starter

Olá a todos!

Estou usando o seguinte codigo para fazer buscas em meu banco de dados.

Private Sub btn_consultar_Click()
Dim EmpFound As Range

With Range("nomefantasia")

Set EmpFound = .Find(Me.txtnomefantasia_cons.Value)

If EmpFound Is Nothing Then
MsgBox "Insira um nome para buscar", vbCritical, "Busca"
Me.txtnomefantasia_cons.Value = ""

Contudo, ele só serve para me mostrar uma mensagem caso o campo de busca esteja em branco.
Como ficaria o código em caso de digitar um valor no campo de busca e dizer que o cadastrado não foi encontrado?

Postado : 28/09/2016 8:54 am

Basole

(@basole)

Posts: 487

Reputable Member

Ficaria mais ou menos assim:

Private Sub btn_consultar_Click()
    Dim EmpFound As Range

    With ThisWorkbook.Sheets("banco")

        If Me.txtnomefantasia_cons.Text = "" Then MsgBox "Insira o nome fantasia e Tente novamente! ", vbCritical, "Busca": Exit Sub

        Set EmpFound = .Columns(1).Find(VBA.Trim(Me.txtnomefantasia_cons.Text), LookIn:=xlValues, LookAt:=xlPart)

        If EmpFound Is Nothing Then
            MsgBox Me.txtnomefantasia_cons.Text & "  não encontrado! Verifique! e Tente novamente! ", vbCritical, "Busca"
            Me.txtnomefantasia_cons.Text = ""
            Exit Sub
   Else
 ' continua aqui seu codigo............
'.............................
'.............
end sub

Click em se a resposta foi util!