[resolvido] MsgBox caso não encontre produto

Moderador: Avelino Sampaio

Diamantino
Mensagens: 49
Registrado em: 30 Abr 2016, 14:31

[resolvido] MsgBox caso não encontre produto

Mensagempor Diamantino » 06 Fev 2017, 13:56

Pessoal, Bom dia !!

Tenho esse código que uso para procurar um certo produto em minha consulta, o qual está funcionando certinho.
Gostaria de implementar uma MsgBox caso não encontre o produto procurado, pelejei aqui de todas as maneiras não consegui.
Alguém aí pra me dar uma luz??

Caso não tenha o produto "Produto não cadastrado".

Esse código está em uma caixa de texto na ação Ao Alterar.

Código:
Private Sub txtct_AfterUpdate()
On Error Resume Next
txtct.SetFocus
If txtct.Value > 0 Then
Me.Filter = "[Id_item]=" & txtct.Value
Me.FilterOn = True
End If
End Sub


Desde de já agradeço.

Att, Diamantino.

Disable adblock

Precisamos do seu apoio. Faca uma doacao para o site atraves do Paypal.


Avatar do usuário
Avelino Sampaio
Mensagens: 2101
Registrado em: 04 Jun 2015, 18:27
Contato:

Re: MsgBox

Mensagempor Avelino Sampaio » 07 Fev 2017, 08:12

Diamantino,

vc pode testar a quantidade de registros que o formulário retorna, depois da filtragem. Exemplo:

Código:
Private Sub txtct_AfterUpdate()
On Error Resume Next
txtct.SetFocus
If txtct.Value > 0 Then
Me.Filter = "[Id_item]=" & txtct.Value
Me.FilterOn = True
End If
If Me.RecordsetClone.RecordCount = 0 Then
MsgBox "Produto não encontrado...", vbInformation, "Aviso"
DoCmd.RunCommand acCmdRemoveAllFilters
End If

End Sub


Aguardamos
==================================================
Clique no link abaixo e veja um ótimo kit de ensino que tenho para você.
http://www.usandoaccess.com.br
==================================================

Diamantino
Mensagens: 49
Registrado em: 30 Abr 2016, 14:31

Re: MsgBox

Mensagempor Diamantino » 10 Fev 2017, 12:22

Bom dia amigos,

Mais um caso resolvido.

Obrigado, Meste Avelino.

Disable adblock

Precisamos do seu apoio. Faca uma doacao para o site atraves do Paypal.



Voltar para “Consultas”

Quem está online

Usuários neste fórum: Nenhum usuário registrado e 2 visitantes