Irenko
|
BELO HORIZONTE MG - BRASIL
|
|
Postada em 23/06/2004 10:04 hs
É 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
|
|
|
|