acreca de uma MsgBox

[Amadeufm 0]

boas!!!

 

Estou usando uma datagrid ao qual lhe juntei uma pesquisa rapida para tornar mais facil para o utilizador.

ao qual usei o seguinte codigo:

 

Private Sub cmmd13Produto_Click()

 

If txtProduto28.Text = "" Then

Adodceventosordensmanutencao.CommandType = adCmdTable

Adodceventosordensmanutencao.RecordSource = "tbeventosordensmanutencao"

Else

Adodceventosordensmanutencao.CommandType = adCmdText

Adodceventosordensmanutencao.RecordSource = "select Nomelinha, NomeProduto, DataEvento from tbeventosordensmanutencao where NomeProduto like '%" & UCase(txtProduto28.Text) & "%'"

End If

Adodceventosordensmanutencao.Refresh

DGEventosOrdensManutencao.Refresh

End Sub

 

até aqui tudo bem funciona lindamente, o problema é k nao tou conseguindo por uma msgbox a informar quando nao encontra nada dentro da dataGrid

 

ou seja

 

 

preciso de ajuda para por aperecer uma msgbox a dizer "Nao foi encontrado nenhum nome?"

Como faço iss

 

Respondam por favor é urgente http://forum.imasters.com.br/public/style_emoticons/default/excl.gif

[Paulo Mendes 0]

MsgBox "Não Foi Encontardo Nenhum Nome", vbInformation, "Titulo"

 

Tena Ae.

 

Paulo Mendes.

[Amadeufm 0]

Obrigado...

 

tentei doutra forma...

 

dessa forma n daria, o k interessa é k ja ta a dar

 

mais uma vez obrigada na mesma