Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Usuário não registr...
 
Notifications
Clear all

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
866 Visualizações
RSS
 hpernaf
(@hpernaf)
Posts: 0
New 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
 
Postado : 28/09/2016 9:25 am
 hpernaf
(@hpernaf)
Posts: 0
New Member
Topic starter
 

Mais uma vez, muito obrigado Basole.

 
Postado : 28/09/2016 12:48 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico