[Resolvido]Se não estiver na caixa de listagem retornar mensagem de aviso

Boa tarde,

Tenho uma caixa de combinação, que de acordo com o valor que eu escolher, filtra a caixa de listagem, e o que eu quero saber, é se tem como colocar algum código para que se o critério que eu escolher na minha caixa de combinação não estiver na minha caixa de listagem, que retorne uma mensagem dizendo que não consta nenhum valor na listagem, de acordo com o critério que eu escolhi.


Obrigado.

Boa Tarde

No acontecimento do formulário "Ao ocorrer erro"


Private Sub Form_Error(DataErr As Integer, Response As Integer)
Response = acDataErrContinue 'inibe msg padr?o do access.
MsgBox "Selecionar dados da Caixa ! ", vbQuestion, "Aviso"
Exit Sub

Response = acDataErrDisplay
Response = acDataErrContinue
Exit Sub
End Sub

Boa tarde.

Coloque uma caixa de texto abaaixo da sua lista com o nome: txt_conta

Insira este código em seu form:

Código:


Private Sub Form_Current()
Me.txt_Conta = Nz(me.SuaLista.ListCount,0)
End Sub


Na sua combo coloque o seguinte código:

Código:


If me.txt_conta = 0 Then
   Msgbox" Não há Registros com o Critério escolhido.", VbInformationa, "Informando"
else
End If


No aguardo...

Postamos juntos Assis.

Claudio,

Em qual evento coloco?

Coloquei no antes de atualizar, até apareceu a mensagem, inclusive para os critérios que tem na caixa de listagem.

If me.txt_conta = 0 Then
  Msgbox" Não há Registros com o Critério escolhido.", VbInformationa, "Informando"
else
End If

Coloque no evento após atualizar da sua combo

Corrija o código,digitei errado, é esse:

Código:


If me.txt_conta = 0 Then
  Msgbox" Não há Registros com o Critério escolhido.", VbInformation, "Informando"
else
End If


Agora sim, muito obrigado Cláudio/Assis.

Resolvido!

Boa tarde.
Obrigado pelo retorno, o fórum agradece.
Abraço