[Resolvido]Problemas em abrir relatório

Boa tarde, tenho um relatório que abre apartir de uma consulta por parâmetro, tenho de introduxir o codigo e faço ok, e o codigo funciona bem abrindo o respectivo relatório. Mas se eu dicidir cancelar da me um erro, pois o codigo não consegue entrar no codigo:DoCmd.OpenReport Me!cboLista2.Column(2), acViewPreview
Quero que em vez de um erro quando eu cancelar o acess detecta a condição que foi cancelada e dá me um aviso.
Agradeço a ajuda. Apresento o codigo.
Private Sub cboLista2_AfterUpdate()
If IsNull(Me!cboLista2.Value) Then
MsgBox "Selecione um relatório da lista...", vbInformation, "Aviso"
Exit Sub
End If
DoCmd.OpenReport Me!cboLista2.Column(2), acViewPreview
End Sub

Já tentou fazer o tratamento de erro? Trata-se de um botão?

É com uma combo, então teste assim:

Private Sub cboLista2_AfterUpdate()
If IsNull(Me!cboLista2)Or Me!cboLista2="" Then
MsgBox "Selecione um relatório da lista...", vbInformation, "Aviso"
Exit Sub
End If
DoCmd.OpenReport Me!cboLista2.Column(2), acViewPreview
End Sub

Obrigado, mas continua a dar o mesmo erro.
Estou a falar de uma combo em que seleciono um relatório, antes de abrir o relatório introduzo o codigo no valor do parametro, pois o relatório tem como origem uma consulta por parametro se faço ok abre o relatório perfeitamente mas se faço cancelar recebo o erro: a acção Openreport foi cancelada.
Em vez desse erro eu queria pôr uma mensagem: a dizer q foi cancelada ou simplesmente Fechar a form

Agora entendi.

Private Sub cboLista2_AfterUpdate()
On Error Resume Next
If IsNull(Me!cboLista2)Or Me!cboLista2="" Then
MsgBox "Selecione um relatório da lista...", vbInformation, "Aviso"
Exit Sub
End If
DoCmd.OpenReport Me!cboLista2.Column(2), acViewPreview
End Sub

Pode fazer o tratamento de erro também no próprio Relatório que é o indicado

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

Ola Vieira, perfeito!
Obrigado pela dica.
Já funciona!

Afinal era bem mais simples e a gente só complicou...rsrsrsrs...Abração.