Pessoal, bom dia!
Tenho um formulário com vários textbox e 3 optionbuttons
Para os textbox eu consegui resolver, quando a pessoa não digitar não consegue salvar os dados na tabela, pois são preenchimentos obrigatórios, mas agora para os optionsbuttons como eu faço isso?
Nos options eu tenho as opcões: "SIM", "NÃO" e "NÃO ATENDIDO" se a pessoa digitar todos os campos do textbox e não selecionar nenhuma opção do optionbutton ela salva na tabela, mas não quero isso. Quero que salve se apenas uma das opções forem escolhidas. Gostaria de saber como pode ser feito isso!
Eu tentei usar o seguinte código, mas isso só funcionou com a terceira opção:
If OptionButton1.Value = False or OptionButton2.Value = False or OptionButton3.Value = False Then
MsgBox "ESCOLHER STATUS DO SCREENING", vbExclamation, "AVISO"
Exit Sub
End If
Aguardo retorno de vcs!
Obrigado!
Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
FUNÇÃO PARA OPTIONBUTTON **RESOLVIDO**
FUNÇÃO PARA OPTIONBUTTON **RESOLVIDO**
Editado pela última vez por RUSSO_RP em Seg Mar 16, 2020 10:13 pm, em um total de 1 vez.
- Reinaldo
- Jedi
- Mensagens: 1537
- Registrado em: Sex Ago 01, 2014 4:09 pm
- Localização: Garça - SP / SCS - SP
Re: FUNÇÃO PARA OPTIONBUTTON
Ao utilizar um "IF composto" deve-se levar em consideração que, a primeira ocorrência atendida e dada a expressão como "OK";
dos 3 "buttons" sempre terá 2 como false o que inviabiliza utilizar "OR"
Varias são as formas que pode-se utilizar, dependento principalmente do escopo do projeto
Talvez:
Outra possibilidade e "eleger" uma das alternativas como Default, por exemplo "NÃO ATENDIDO" , e na inicialização do registro esse button inicie como "True"
Ou ainda inserir um quarto button, preferivelmente oculto, que inicie como "True", assim validar apenas esse na hora de salvar
dos 3 "buttons" sempre terá 2 como false o que inviabiliza utilizar "OR"
Varias são as formas que pode-se utilizar, dependento principalmente do escopo do projeto
Talvez:
Código: Selecionar todos
If OptionButton1.Value = False AND OptionButton2.Value = False AND OptionButton3.Value = False Then
MsgBox "ESCOLHER STATUS DO SCREENING", vbExclamation, "AVISO"
Exit Sub
End If
Ou ainda inserir um quarto button, preferivelmente oculto, que inicie como "True", assim validar apenas esse na hora de salvar