[Resolvido]exibir mensagem no relatorio em caso de valor vazio ou zero

Boa tarde amigos,

Venho novamente com minhas perguntas do "é possivel"... rsrs

Necessito que em um relatório caso o resultado seja vazio ou nulo, ou mesmo zero, que apareça uma textbox com uma msg no relatório que vou escolher ainda, porém somente nestes casos.

Existe essa possibilidade?

Não sei se é isso, mais coloque esse código no evento SEM NEM DADO do seu relatório


Dim strMsg As String, strTitle As String
Dim intStyle As Integer

strMsg = "Não existem dados a visualizar nesse período! "
intStyle = vbOKOnly
strTitle = "Sem dados no sistema"

MsgBox strMsg, intStyle, strTitle
Cancel = True

Sim, existe.
No modo disigner, evento: Se nenhum dado:

On Error Resume Next
MsgBox "Sua Mensagem Personalizada", vbInformation, "Seu Título Personalizado"
DoCmd.CancelEvent

Teste aí

Desculpe gilberlanio, postamos juntos (Mas pensamos igual, rs)

Ola Senhores,

Creio que nao fui muito claro, perdão, o que eu desejo nao é uma msgbox que apareça para a pessoa da ok...

Eu gostaria que no corpo do relatorio essa txtbox aparece-se.

Algo como um titulo e o texto abaixo.

Ex.: Clientes: [txtbox]

Porém ela só aparece-se nesses casos.

Não sei se consequi ser compreensivel agora amigos.

Porém desde já grato

Poderia fazer assim:
Criaria campos não acoplados no relário e definiriam como Invisíveis.(Para não acrecetar dados a tabela)

Evento ao Formatar (Isso na visualização de impressão)
If IsNull(Me.SeuCampoRelatório) Then 'Campo do relatório vazio
Me.SeuCampoRelatório.Visible = False
Me.SeuCampoNãoAcoplado = True 'Campo criado para aparecer caso o campo do relatório estiver Nulo
Else
Me.SeuCampo.Visible = True
Me.SeuCampoNãoAcoplado = False
End If

Marcelo

Obrigado pelo apoio até o momento porém não funfou, apareceu a seguinte mensagem:

Erro de compliação: Método ou membro de dados não encontrado.

Veja como formatei o code:
Private Sub Report_Load()
If IsNull(Me.ÚltimoDeAcidentedeTrabalho) Then
Me.ÚltimoDeAcidentedeTrabalho.Visible = False
Me.Texto279 = True Else
Me.ÚltimoDeAcidentedeTrabalho.Visible = True
Me.Texto279 = False
End If
End Sub


Obrigado pelo apoio kleyton

1- Renomeie seus campos para nomes sem acentos ou caracteres especiaes.
2- O evento que deverá por o código em Ao formatar
3- Observe onde está pondo os campos, pois nos relatórios, detalhe, cabeçalho e rodapé são tratados, digamos que diferentes.
Feito estas observações e não resolvendo poste aqui seu bd de dados que faço para você.

Como não houve retorno, o tópico passa a resolvido. Qualquer coisa reabra, por favor.