Problemas no código Access VBA

[Douglas Goulart]

Boa noite,
Estou desenvolvendo um programa em VBA Access e estou com dificuldades de quando não existir nenhum dado sobre determinado relatório, ele mandar uma mensagem dizendo que não encontrou nada e daí voltar para o formulário de relatório e quando selecionar os outros, não apresentar tal mensagem. A dificuldade está no Case 2 deste código (que está em negrito)
Eis o código:
Private Sub btnVisualizar_Click()
If gpRelatorios.Value <> 0 Then
    Dim rel As String
    Dim filtro As String
    filtro = ""
    Select Case gpRelatorios.Value
        Case 1
            If IsNull(txtInicial.Value) Or IsNull(txtFinal.Value) Then
                MsgBox "Informe as duas datas", vbInformation, "Atenção!"
                Exit Sub
            End If
            rel = "relPorData"
        Case 2
            If Viaturas.Value = 0 Then
                MsgBox "Selecione uma Viatura", vbInformation, "Atencão!"
                Exit Sub
            Else
                If Viaturas.Value <> "" Then
                MsgBox "Dados não existem!", vbInformation, "Atenção!"
                Viaturas.Enabled = False
                End If
                Viaturas.Enabled = True
                rel = "relPorViatura"
            End If

Alguém pode me dar essa ajuda?
Aguardo em QRX
[]'s

[Alyson Ronnan Martins]

Bom dia Douglas.

Já tentou colocar um evento para depois qur o formulário abrir?

[Douglas Goulart]

Como assim? Se quiser, pode usar o código.