Ola pessoal ! vou ser bem brevena minha duvida.

Tenho um form com 2 frame , cade frame tem 2option button, e quando quero gravaralgo no bd pelo menos 2 option tem que estar true ! o negocio nao esta funcionando pois fiz um tratamento para que isso ocorra tipo:

 If Option_ComissaoVendedor.Value = False And Option_ComissaoComprador.Value = False And _
       Option_FreteVendedor.Value = False And Option_FreteComprador.Value = False Then
      
       MsgBox "Verifique se as opções Comissão e Frete estão selecionadas.", vbInformation
    Else
    If Option_ComissaoVendedor.Value = True And Option_ComissaoComprador.Value = False And _
       Option_FreteVendedor.Value = False And Option_FreteComprador.Value = False Then
      
       MsgBox "Verifique se umas das opções de Frete está selecionada.", vbInformation
      
ElseIf Option_ComissaoVendedor.Value = False And Option_ComissaoComprador.Value = True And _
       Option_FreteVendedor.Value = False And Option_FreteComprador.Value = False Then
      
       MsgBox "Verifique se uma das opções de Frete está selecionada.", vbInformation
      
ElseIf Option_ComissaoVendedor.Value = False And Option_ComissaoVendedor.Value = False And _
       Option_FreteVendedor.Value = True And Option_FreteComprador.Value = False Then
       
       MsgBox "Verifique se uma das opções de Comissão está selecionada.", vbInformation
      
ElseIf Option_ComissaoVendedor.Value = False And Option_ComissaoVendedor.Value = False And _
       Option_FreteVendedor.Value = False And Option_FreteComprador.Value = True Then
       
       MsgBox "Verifique se uma das opções de Comissão está selecionada.", vbInformation
      
ElseIf Option_ComissaoVendedor.Value = True And Option_ComissaoComprador.Value = False And _
       Option_FreteVendedor.Value = True And Option_FreteComprador.Value = False Then
    executa o comando >>>

ElseIf Option_ComissaoVendedor.Value = True And Option_ComissaoComprador.Value = False And _
       Option_FreteVendedor.Value = False And Option_FreteComprador.Value = True Then
    executa o comando >>>

ElseIf Option_ComissaoVendedor.Value = False And Option_ComissaoComprador.Value = True And _
       Option_FreteVendedor.Value = True And Option_FreteComprador.Value = False Then
executa o comando >>>

ElseIf Option_ComissaoVendedor.Value = False And Option_ComissaoComprador.Value = True And _
       Option_FreteVendedor.Value = False And Option_FreteComprador.Value = True Then
executao comando >>>

 

                  Sera que alguem pode me dar uma luz ,o porque nao esta funcionando !?

                

 

 

                  Obrigado, Joao Carlos

 

Joao carlos

 

não precisava nem tratar, basta recortar os options

 

Exemplo:

 

dentro do frame 1 esta o option1 e optiion2

selecione os dois e recorte

agora selecione o frame e mande colar

agora em seguida abilite a propriedada value de um dos dois para true

pronto obrigatóriamente um dos dois vai estar como true.

 

faça o mesmo com os outros controles

 

 

Ola amigo ! Agradeço mesmo sua atencao.

Mais , tipo meu problema esta na hora de gravar no bd ex.

Se seleciono o op1 e op3 blz ai grava no bd , mais se seleciono o op2 e o op3, ele me da a msg que falta eu selecionar uns dos op1 ou op2.

                 Valeu

                             Joaoa Carlos.

Galera preciso algoa respeito disto , se alguem puder ajudar agradeco !

                                                                 Joao CArlos