Página 1 de 1

Validação de Option Button [RESOLVIDO]

Enviado: Qui Out 27, 2011 10:15 pm
por Fabio Trindade
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!

Re: Validação de Option Button

Enviado: Sex Out 28, 2011 8:35 am
por joseA
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

Re: Validação de Option Button

Enviado: Sex Out 28, 2011 7:20 pm
por Fabio Trindade
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.

Re: Validação de Option Button

Enviado: Sáb Out 29, 2011 10:16 am
por joseA
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

Re: Validação de Option Button

Enviado: Dom Out 30, 2011 9:09 am
por Fabio Trindade
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]

Enviado: Dom Out 30, 2011 6:10 pm
por joseA
Vlw Fabião,

Estando ao alcance disponha. ;)

Re: Validação de Option Button [RESOLVIDO]

Enviado: Sex Nov 26, 2021 3:27 pm
por M@theu5
Boa tarde!

Passando só para parabenizar vocês, pois essa solução me ajudou também!