[Resolvido]Impedir abertura de relatório sem dados no cabeçalho do relatório

Boa tarde a todos.

Tenho um relatório com quatro caixas de texto não acopladas, no cabeçalho do relatório.

TxtDe - TxtPara - DtDe - DtPara

Gostaria de impedir a visualização do relatório caso qualquer uma delas estejam sem preenchimento.

agradeço auxilio.

Boa noite.
If IsNull(Me.TxtDe ) Or IsNull(Me.DtDe) or isnull(me.DtPara) Then

MsgBox "Não a dados"
DoCmd.Close
End If
End Sub

Olá obrigado pelo retorno.

Deu certo uma parte e outra não.

é acionada a mensagem sobre a falta de preenchimento, porem o relatório continua abrindo para visualização.

Lembrando que coloquei o "if IsNull" no cabeçalho do relatório que é onde estão os campos não acoplados.

Gostaria que o relatório não abra e o foco volte para o campo no formulário.

mas não estou conseguindo.


obrigado.

Boa noite, existe um evento que ja fecha o relatório se ele estiver vazio totalmente, mas como o seu te condições.

Não entendi a lógia da mudaça que fiz  aqui, mas deu certo.
No formulario que abri a reletorio colocar

Código:

On Error GoTo erro_mdb
   DoCmd.OpenReport "relatorio", acViewPreview
erro_mdb:
End Sub

No relatório no evento ao abrir

Código:

On Error GoTo erro_mdb
If IsNull(Me.Embalagem)  or IsNull(Me.QNT) Then
Else
   MsgBox "Não a dados"
DoCmd.CancelEvent
End If
erro_mdb:

Olá meu amigo, bom dia.

coloquei no evento click do botão que abre o relatório e funcionou.

"Private Sub Comando11_Click()
On Error GoTo Err_Comando11_Click

Dim stDocName As String
If IsNull(Me.DataDe) Or IsNull(Me.DataPara) Or IsNull(Me.TecnicoDe) Or IsNull(Me.TecnicoPara) Then

MsgBox "Falta preencher os campos", vbInformation, "Erro de preenchimento"
DoCmd.CancelEvent
Else
stDocName = "RltPlantao"
DoCmd.OpenReport stDocName, acPreview
End If
Exit_Comando11_Click:
Exit Sub

Err_Comando11_Click:
MsgBox Err.Description
Resume Exit_Comando11_Click

End Sub"

obrigado pela colaboração.

Sucesso.