Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Validação de Option Button [RESOLVIDO]
- Fabio Trindade
- Manda bem
- Mensagens: 161
- Registrado em: Dom Abr 24, 2011 4:07 pm
Validação de Option Button [RESOLVIDO]
Boa noite, Galera.
Estou com novas duvidas sobre validação de OptionButton, onde tenho algumas opções em Option Button e um deles deve estar selecionado para depois passar para o proximo campo. No caso o que estou tentando fazer seria uma verificação, com Text Box foi tranquilo mas com Option Button esta complicado não consegui muito avanço sobre o assunto ... Mas caso alguem tenha alguma ideia pra ajudar estamos aberto a discusões, grato.
Segue anexo de exemplo!
Estou com novas duvidas sobre validação de OptionButton, onde tenho algumas opções em Option Button e um deles deve estar selecionado para depois passar para o proximo campo. No caso o que estou tentando fazer seria uma verificação, com Text Box foi tranquilo mas com Option Button esta complicado não consegui muito avanço sobre o assunto ... Mas caso alguem tenha alguma ideia pra ajudar estamos aberto a discusões, grato.
Segue anexo de exemplo!
- Anexos
-
- Option Button.rar
- Option Button
- (31.26 KiB) Baixado 814 vezes
Editado pela última vez por Fabio Trindade em Dom Out 30, 2011 9:10 am, em um total de 1 vez.
- joseA
- Jedi
- Mensagens: 1048
- Registrado em: Qui Out 22, 2009 7:22 am
- Localização: Cel. Fabriciano - MG
Re: Validação de Option Button
Aqui vc terá a resposta para qual controle foi selecionado.
Código: Selecionar todos
Private Sub CommandButton1_Click()
Dim C As Object
For Each C In Controls
If TypeName(C) = "OptionButton" Then
If C.Value = True Then
MsgBox C.Caption
End If
End If
Next C
End Sub
- Fabio Trindade
- Manda bem
- Mensagens: 161
- Registrado em: Dom Abr 24, 2011 4:07 pm
Re: Validação de Option Button
joseA,
Muito bacana seu código, mas não é bem isso que eu quero, na verdade eu quero um verificador que identifique se todos os Option Button estão vazio, quando feita a rotina verificando que todos estão vazio ele me avise com msgbox para selecionar um deles.
Qualquer duvida estou a disposição.
Muito bacana seu código, mas não é bem isso que eu quero, na verdade eu quero um verificador que identifique se todos os Option Button estão vazio, quando feita a rotina verificando que todos estão vazio ele me avise com msgbox para selecionar um deles.
Qualquer duvida estou a disposição.
- joseA
- Jedi
- Mensagens: 1048
- Registrado em: Qui Out 22, 2009 7:22 am
- Localização: Cel. Fabriciano - MG
Re: Validação de Option Button
Aquele era um caminho a ser seguido...
Penso que essa é a solução:
Penso que essa é a solução:
Código: Selecionar todos
Private Sub CommandButton1_Click()
Dim Checar As Boolean
Dim C As Object
Checar = False
For Each C In Controls
If TypeName(C) = "OptionButton" Then
If C.Value = True Then
Checar = True
End If
End If
Next C
'se não encontar nenhum opttionbutton selecionado interrompe o proc...
If Checar = False Then
MsgBox "Selecione uma opção...", vbCritical, "A T E N Ç Ã O! ! !..."
Exit Sub
End If
End Sub
- Fabio Trindade
- Manda bem
- Mensagens: 161
- Registrado em: Dom Abr 24, 2011 4:07 pm
Re: Validação de Option Button
===============================================joseA escreveu:Aquele era um caminho a ser seguido...
Penso que essa é a solução:
Código: Selecionar todos
Private Sub CommandButton1_Click() Dim Checar As Boolean Dim C As Object Checar = False For Each C In Controls If TypeName(C) = "OptionButton" Then If C.Value = True Then Checar = True End If End If Next C 'se não encontar nenhum opttionbutton selecionado interrompe o proc... If Checar = False Then MsgBox "Selecione uma opção...", vbCritical, "A T E N Ç Ã O! ! !..." Exit Sub End If End Sub
joseA,
Muito obrigado por ter paciencia em olhar minha mensagem e ter uma solução para meu problema. Devo agradecimento a vc, Mauro Coutinho e Tomás o qual tiveram paciencia em olhar meus topicos e responderem minhas duvidas, fico muito agradecidos pela ajuda de todos.
Obrigado !!!
Re: Validação de Option Button [RESOLVIDO]
Boa tarde!
Passando só para parabenizar vocês, pois essa solução me ajudou também!
Passando só para parabenizar vocês, pois essa solução me ajudou também!