Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Validação de Option Button [RESOLVIDO]

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
Avatar do usuário
Fabio Trindade
Manda bem
Manda bem
Mensagens: 161
Registrado em: Dom Abr 24, 2011 4:07 pm

Validação de Option Button [RESOLVIDO]

Mensagem 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!
Anexos
Option Button.rar
Option Button
(31.26 KiB) Baixado 800 vezes
Editado pela última vez por Fabio Trindade em Dom Out 30, 2011 9:10 am, em um total de 1 vez.


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Avatar do usuário
joseA
Jedi
Jedi
Mensagens: 1048
Registrado em: Qui Out 22, 2009 7:22 am
Localização: Cel. Fabriciano - MG

Re: Validação de Option Button

Mensagem 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


Avatar do usuário
Fabio Trindade
Manda bem
Manda bem
Mensagens: 161
Registrado em: Dom Abr 24, 2011 4:07 pm

Re: Validação de Option Button

Mensagem 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.


Avatar do usuário
joseA
Jedi
Jedi
Mensagens: 1048
Registrado em: Qui Out 22, 2009 7:22 am
Localização: Cel. Fabriciano - MG

Re: Validação de Option Button

Mensagem 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


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Avatar do usuário
Fabio Trindade
Manda bem
Manda bem
Mensagens: 161
Registrado em: Dom Abr 24, 2011 4:07 pm

Re: Validação de Option Button

Mensagem 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 !!!


Avatar do usuário
joseA
Jedi
Jedi
Mensagens: 1048
Registrado em: Qui Out 22, 2009 7:22 am
Localização: Cel. Fabriciano - MG

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

Mensagem por joseA »

Vlw Fabião,

Estando ao alcance disponha. ;)


M@theu5
Acabou de chegar
Acabou de chegar
Mensagens: 3
Registrado em: Qua Ago 12, 2020 11:20 am

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

Mensagem por M@theu5 »

Boa tarde!

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


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder