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!