OPTIONBOTTON

USUARIO.EXCLUIDOS 23/06/2004 10:01:32
#30813
é o seguinte: no primeiro IF verefico se os Option estão marcados ou não e mostro a mensagem. Depois que marco aparece os Options do segundo IF, caso não tenha marcado aparece a mensagem. O problema é que esta mostrando sempre a mensagem do primeiro IF e não aciona o CALL. Como posso ajustar?

Private Sub CmdImprimir_Click()
Dim busca As String
Dim busca1 As String

If Op_Data.Value = False And Op_Codigo.Value = False And Op_Geral.Value Or Op_Tela.Value = False And Op_Imp = False Then
busca = MsgBox("é necessário selecionar uma das opções para acionar impressão.", vbInformation, "Amidy - Relatórios")
End If
Exit Sub

If Op_Tela.Value = False And Op_Imp = False Then
busca1 = MsgBox("Marque uma das opções. Tela ou Impressora.", vbInformation, "Amidy - Relatórios")
End If

If Op_Imp.Value = True Then
Call Imprime_Geral1
End If
end Sub
USUARIO.EXCLUIDOS 23/06/2004 10:25:48
#30825 Resposta escolhida
Tire o exit sub depois do primeiro IF

If Op_Data.Value = False And Op_Codigo.Value = False And Op_Geral.Value = False Then
busca = MsgBox("é necessário selecionar uma das opções para acionar impressão.", vbInformation, "Amidy - Relatórios")
End If
rem Exit Sub <<< Tirar isto

If Op_Tela.Value = False And Op_Imp = False Then
busca1 = MsgBox("Marque uma das opções. Tela ou Impressora.", vbInformation, "Amidy - Relatórios")
End If

If Op_Imp.Value = True Then
Call Imprime_Geral1
End If
end Sub
Tópico encerrado , respostas não são mais permitidas
Voltar