[Resolvido]Emitir mensagem quando o campo do relatorio foi vazio

Boa tarde meus amigos

Possuo um BD que gostaria quando um determinado campo estivesse vazio no relatorio ele aparece-se uma txtbox dizendo que não ha registros e para isto fiz o seguinte code:

Private Sub Report_Open(Cancel As Integer)
If Dcount ("*","[vazpes]","empresa"] = 0 Then
MsgBox "Atenção - Não existem resgistros para esta pesquisa.", vbOKOnly + vbInformation, "Pesquisa Vazia!!"
End If
End Sub

Porém ao invés de coletar e verificar se esta vazia ele aparece a textbox em todos os relatorios que gero.

Tentei também com a seguinte alinea:

If Dcount ("*","[vazpes]","empresa"] = null Then

Mas ae não aparece para mais nenhuma pesquisa.

Alguém poderia me ajudar?

Grato novamente

If DCount("[vazpes]", "empresa", "[vazpes]= '" & Me![vazpes] & "'") > 0 Then
MsgBox "O exemplo já está cadastrado no sistema..." & vazpes.Text, _
vbInformation, "Aviso"
DoCmd.CancelEvent 'cancela o evento.
End If

Boa tarde Vieira

Esta a dar o seguinte erro:

Erro em tempo de execução '2465'

O BD Não pode localizar o campo 'vazpes' referido em sua expressão.

Grato

mas esse foi o nome que você colocou. Veja se está correcto, por favor

Mas espere, você quer fazer isso no relatório. Mas o Relatório parte de uma tabela.

Então fazemos o check na tabela


f DCount("[nomedocampo]", "nomedatabela", "[nomedocampo]= '" & Me![nomedocampo] & "'") > 0 Then
MsgBox "O exemplo já está cadastrado no sistema..." _
vbInformation, "Aviso"
DoCmd.CancelEvent 'cancela o evento.
End If

Bom dia Vieira,

Tentei hoje solucionar este dilema e não consegui, mandei em vosso email o meu Bd para caso você puder me ajudar.

Grato desde já

Kleyton

Amigo

Só agora tive oportunidade de dar uma vista de olhos. Você estava a fazer isto com uma macro e não com VBA, DE qualquer forma olhe o simples no relatório:

Abra o Relatório no modo estrutura, aceda ao Módulo VBa e cole:

Private Sub Report_NoData(Cancel As Integer)
Dim strMsg As String, strTitle As String
Dim intStyle As Integer

strMsg = "Não existem dados a Visualizar!!! "
intStyle = vbOKOnly
strTitle = "Sem dados no sistema"

MsgBox strMsg, intStyle, strTitle
Cancel = True

End Sub

Grande Vieira

Muitissimo obrigado funcionou perfeitamente.

Grato

Obrigado e bom trabalho

Existe também a opção de criar uma macro com a mensagem e inseri-la na propriedade "Se nenhum dado" do relatório.