[Resolvido]Uso de Opcao para um unico botão fazer referencia a dois relatorios diferentes

Amigos estou tendo problemas com esse codigo ...

Sao dois valores de opcao ao clicar de um botao...

Mas a segunda opcao quando eu clico ela nao corre o código... sera os IF's ?


Private Sub Visualizar_Click()
Dim Msg
Dim IDAlbergado As String

IDAlbergado = Me.NomeAlbergado.Column(0)

If Me!opcao = 1 Then
If IsNull(NomeAlbergado) Then
Msg = MsgBox("É necessário o preenchimento do nome do albergado!", vbOKOnly + vbCritical, "ATENÇÃO")
Me.NomeAlbergado.SetFocus
Else
If IsNull(cboAno) Then
Msg = MsgBox("Preencha os campos Ano para proseguir!", vbOKOnly + vbExclamation, "ATENÇÃO")
Exit Sub
Else
DoCmd.OpenReport "FaltaAlbergado", acViewPreview
DoCmd.Close acForm, "frmFalta_Albergado"
DoCmd.Close acForm, "frmRelatorios"



If Me!opcao = 2 Then
If IsNull(NomeAlbergado) Then
Msg = MsgBox("É necessário o preenchimento do nome do albergado!", vbOKOnly + vbCritical, "ATENÇÃO")
Me.NomeAlbergado.SetFocus
Else
If IsNull(cboAno) Or IsNull(cboMes) Then
Msg = MsgBox("Preencha o campo Ano para proseguir!", vbOKOnly + vbExclamation, "ATENÇÃO")
Exit Sub
Else
DoCmd.OpenReport "FaltaAlbergadoAno", acViewPreview
DoCmd.Close acForm, "frmFalta_Albergado"
DoCmd.Close acForm, "frmRelatorios"
End If
End If
End If
End If
End If
End If
End Sub


Se puderem me ajudar a corrigí-la fico grato

Tente assim:

Private Sub Visualizar_Click()

Dim Msg
Dim IDAlbergado As String

IDAlbergado = Me.NomeAlbergado.Column(0)

If Me!opcao = 1 Then
	If IsNull(NomeAlbergado) Then
		Msg = MsgBox("É necessário o preenchimento do nome do albergado!", vbOKOnly + vbCritical, "ATENÇÃO")
		Me.NomeAlbergado.SetFocus
	ElseIf IsNull(cboAno) Then
		Msg = MsgBox("Preencha os campos Ano para proseguir!", vbOKOnly + vbExclamation, "ATENÇÃO")
		Exit Sub
	Else
		DoCmd.OpenReport "FaltaAlbergado", acViewPreview
		DoCmd.Close acForm, "frmFalta_Albergado"
		DoCmd.Close acForm, "frmRelatorios"
ElseIf Me!opcao = 2 Then
	If IsNull(NomeAlbergado) Then
		Msg = MsgBox("É necessário o preenchimento do nome do albergado!", vbOKOnly + vbCritical, "ATENÇÃO")
		Me.NomeAlbergado.SetFocus
	ElseIf IsNull(cboAno) Or IsNull(cboMes) Then
		Msg = MsgBox("Preencha o campo Ano para proseguir!", vbOKOnly + vbExclamation, "ATENÇÃO")
		Exit Sub
	Else
		DoCmd.OpenReport "FaltaAlbergadoAno", acViewPreview
		DoCmd.Close acForm, "frmFalta_Albergado"
		DoCmd.Close acForm, "frmRelatorios"
	End If
End If

End Sub

Procure escrever seu código seguindo níveis como no exemplo acima, principalmente quando estiver fazendo uso de If ou Select Case. Não sei se no seu aplicativo está assim ou não, mas fica a dica.

Amigão..

Else sem If


ElseIf Me!opcao = 2 Then

Faltou fechar um IF:

Private Sub Visualizar_Click()

Dim Msg
Dim IDAlbergado As String

IDAlbergado = Me.NomeAlbergado.Column(0)

If Me!opcao = 1 Then
	If IsNull(NomeAlbergado) Then
		Msg = MsgBox("É necessário o preenchimento do nome do albergado!", vbOKOnly + vbCritical, "ATENÇÃO")
		Me.NomeAlbergado.SetFocus
	ElseIf IsNull(cboAno) Then
		Msg = MsgBox("Preencha os campos Ano para proseguir!", vbOKOnly + vbExclamation, "ATENÇÃO")
		Exit Sub
	Else
		DoCmd.OpenReport "FaltaAlbergado", acViewPreview
		DoCmd.Close acForm, "frmFalta_Albergado"
		DoCmd.Close acForm, "frmRelatorios"
        End If
ElseIf Me!opcao = 2 Then
	If IsNull(NomeAlbergado) Then
		Msg = MsgBox("É necessário o preenchimento do nome do albergado!", vbOKOnly + vbCritical, "ATENÇÃO")
		Me.NomeAlbergado.SetFocus
	ElseIf IsNull(cboAno) Or IsNull(cboMes) Then
		Msg = MsgBox("Preencha o campo Ano para proseguir!", vbOKOnly + vbExclamation, "ATENÇÃO")
		Exit Sub
	Else
		DoCmd.OpenReport "FaltaAlbergadoAno", acViewPreview
		DoCmd.Close acForm, "frmFalta_Albergado"
		DoCmd.Close acForm, "frmRelatorios"
	End If
End If

End Sub

Amanha continuo com isso amigao

Resolvido Amigão..
Obrigado

Valeu. Se está resolvido, resolvido está