[Resolvido]Limite função If elseif

Olá amigos gostaria de saber se existe um limite para a função elseif porque estou percebendo que quando passo de 4 linhas não funciona mais, caso não, aguém pode verificar qual é o erro.
Problema: As linha marcadas de azul abaixo não são execultadas
Obrigado.

Private Sub cmdVisualizar_Click()
On Error Resume Next
'verifica se há uma opção selecionada
If gpRelatorio.value <> 0 Then
'define duas variáveis para o nome do relatório e o filtro
Dim rel As String
Dim filtro As String
filtro = ""
'verifica qual opção foi selecionada
Select Case gpRelatorio.value
Case 1
'checa qual tipo de relatório foi selecionado
If lstRelaLicitacoes.ItemsSelected.Count = 0 Or IsNull(Me.txtAnoLicitacao.value) Then
MsgBox "Selecione o tipo de Relação. Ex: Resumida, Completa, etc e digite o ano com quatro algarismos", vbInformation, "Atenção"
lstRelaLicitacoes.SetFocus
ElseIf Me.lstRelaLicitacoes.Column(0) = "Não Concluída" Then
rel = "rptProcessosEmAndamento"
ElseIf lstRelaLicitacoes.Column(0) = "Resumida" Then
rel = "rptDadosdoProcesso"
ElseIf lstRelaLicitacoes.Column(0) = "Completa" Then
rel = "rptDadosdoProcessoComp"
ElseIf lstRelaLicitacoes.Column(0) = "Do Mês" Then
rel = "rptRelacaoProcessosMes"
ElseIf lstRelaLicitacoes.Column(0) = "Por SRP" Then
rel = "rptSRP"
ElseIf lstRelaLicitacoes.Column(0) = "Concluída" Then
rel = "rptProcessoConcluido"
Exit Sub
End If

Case 2
'checa se há opção para o processo selecionado
If lstProcesso.ItemsSelected.Count = 0 Or IsNull(Me.txtAnoLicitacao.value) Then
MsgBox "Selecione o tipo de Relação. Ex: Resumida, Completa, etc e digite o ano com quatro algarismos", vbInformation, "Atenção"
lstProcesso.SetFocus
ElseIf lstProcesso.Column(0) = "Por responsável" Then
rel = "rptResponsavelpeloProcesso"
ElseIf lstProcesso.Column(0) = "Por setor requisitante" Then
rel = "rptSetor"
ElseIf lstProcesso.Column(0) = "Pela sua cronologia" Then
rel = "rptPrazos"
ElseIf lstProcesso.Column(0) = "Por histórico" Then
rel = "rptHistProcesso"
ElseIf lstProcesso.Column(0) = "Por arquivamento" Then
rel = "rptArquivo"
Exit Sub
End If

Case 4
If IsNull(Me.txtAnoLicitacao.value) Then
MsgBox "Digite o ano com quatro algarismos", vbInformation, "Atenção"
Me.txtAnoLicitacao.SetFocus
Else
rel = "rptContratacao"
End If

Case 5
rel = "rptCapadoProcesso"

End Select
'Abre o relatório do modo visualizar impressão
DoCmd.OpenReport rel, acViewPreview, , filtro
Me.txtAnoLicitacao = ""
Me.txtAnoLicitacaoFinal = ""
Me.cboMesLicitacao = ""
Me.txtNumeroLicitacao = ""

Else
MsgBox "Selecione um relatório", vbInformation, "Atenção"
'move o foco para o controle
gpRelatorio.SetFocus
End If

End Sub

Depois de todos ElseIf adicione um else com outra condição.

Você também pode testar seu If assim:

'checa qual tipo de relatório foi selecionado
If lstRelaLicitacoes.ItemsSelected.Count = 0 Or IsNull(Me.txtAnoLicitacao.value) Then
MsgBox "Selecione o tipo de Relação. Ex: Resumida, Completa, etc e digite o ano com quatro algarismos", vbInformation, "Atenção"
lstRelaLicitacoes.SetFocus

ElseIf Me.lstRelaLicitacoes.Column(0) = "Não Concluída" Then
rel = "rptProcessosEmAndamento"
msgbox"Selecionado " & rel

ElseIf lstRelaLicitacoes.Column(0) = "Resumida" Then
rel = "rptDadosdoProcesso"
msgbox"Selecionado " & rel

ElseIf lstRelaLicitacoes.Column(0) = "Completa" Then
rel = "rptDadosdoProcessoComp"
msgbox"Selecionado " & rel

ElseIf lstRelaLicitacoes.Column(0) = "Do Mês" Then
rel = "rptRelacaoProcessosMes"
msgbox"Selecionado " & rel

ElseIf lstRelaLicitacoes.Column(0) = "Por SRP" Then
rel = "rptSRP"
msgbox"Selecionado " & rel

ElseIf lstRelaLicitacoes.Column(0) = "Concluída" Then
rel = "rptProcessoConcluido"
msgbox"Selecionado " & rel
else
msgbox"Nenhuma das opções"

Exit Sub
End If

Seu código ficará bem mais simples se vc criar mais uma coluna(oculta) nas listas e assim não precisaria desses IF´s

Bastaria para lista de relatórios :

rel = lstRelaLicitacoes.Column(1)

Aguardamos

Gilberto Rocha, muito obrigado, deu certo. Conclusão: então toda função if..elseif tem que terminar com else?

Ms. Avelino, não sei fazer da maneira que você falou, mas gostaria de aprender. Tem como clarear mais um pouco, pois sou iniciante. - a propósito, foi eu que te enviei uns emails querendo adquirir seu Kit Access e estava com problema no Office (daniel20_adm@yahoo.copm.br).

Obrigado.

Esse ultimo else serve para que se nenhuma das condições atender, lhe da outra condição!

Entenda a função If

If (Se) a=b then (faça isso)

elseif(ou se for) Then (faça isso)

else (Caso não seja nenhuma Faça isso)

Endif

Avelino,

A lista é criada a partir de uma tabela.

Aproveitando o assunto, estou estudando os filtros do seu BD Maestro_v5, confesso que está difícil, no entanto, é uma aprendizagem a cada dia. Avelino, o seu kit explica o passo a passo?

Muito obrigado pela a ajuda!, vocês são imediatos na resposta, valeu mesmo.

Problema resolvido! Obrigado amigos.