Mensagem quando não retornar dados

Boa tarde!

Tenho uma combobox CMB_AREA, que tem uma consulta como ORIGEM DE LINHA e que faz uma chamada para um formulário frm_KPIS, gostaria de colocar uma mensagem quando não existirem dados a serem listados. Algo do tipo: "Não há dados para este depósito"

Grata
Janette

Olá Janete,


Você poderia tentar algo do tipo:

If Me.RecordsetClone.RecordCount = 0 Then
MsgBox "Não existe dados para este depóstio", vbExclamation, "Sem Registros!!!!"
Cancel = True 'Cancela a abertura
End If

Se fizeres uma busca aqui no fórum por RecordsetClone ou RecordCount, vai encontrar mais exemplos específicos.


Nivaldo.