USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  OptionBoton
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
     
Página(s): 1/1    

CyberWEB Network Ltda.    © Copyright 2000-2026   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página