[Resolvido]Código VBA com botões de opção

Boa noite a todos

Coloco nova questão porque não stou a conseguir dar a volta a isto.
Estou a tentar construir um formulário que sirva de calculador de um score médico chamado SOFA.
Esse score engloba 5 grupos de variáveis. Em cada grupo há 4 opçõs para escolher uma e cada vale de 1 a 4 pontos de gravidade. O score é dado pelo somatório dos pontos dos 5 grupos. Este formulário funcionará de forma independente.
Criei até ao momento 2 grupos de opções, cada com 4 botões de opção. Tentei testar isto criando um módulo com o seguinte código, a ser activado por um botão de comando no formulário:

Sub sofa()

Dim cardio As Integer
Dim pulmao As Integer

If Opção10 = True Then cardio = 1
If Opção12 = True Then cardio = 2
If Opção14 = True Then cardio = 3
If Opção16 = True Then cardio = 4
If Opção29 = True Then pulmao = 1
If Opção31 = True Then pulmao = 2
If Opção33 = True Then pulmao = 3
If Opção35 = True Then pulmao = 4
MsgBox cardio + pulmao
End Sub

Esta foi a última versão das muitas experiencias que fiz. A caixa de mensagem retorna 0 porque o valor das opções não está a ser reconhecido. Já fiz imensas buscas na net e consultei manuais de access e VBA mas não estou a dar a volta a isto

Peço a vossa ajuda para resolver as minhas limitações de mero utilizador que gosta de se meter nestes sarilhos

Cumprimentos

jess

Ola Eduardo, bom dia !

O que será isto ? "If Opção10 = True"

Opção10 é uma chekbox ? Campo sim/não ?

Aguardo

Bom dia caro JPaulo.

Trata-se de botões de opção. Inicialmente escrevi o código assim: If Me.Opção10.value = true then cardio =1, e assim sucessivamente. Surgiu erro de má aplicação do "Me". Também pensei que se pudesse classificar o valor dos botões de opção como true ou false. Após uma sucessão de erros resolvi pedir ajuda.

Cumprimentos

jess

Se você inseriu um Controle Grupo de Opções no seu formulario, tem de ser assim;


Private Sub SeuGrupoOpcoes_AfterUpdate()
Select Case SeuGrupoOpcoes
Case 1
Me.cardio = 1
Case 2
Me.cardio = 2
Case 3
Me.cardio = 3
Case 4
Me.cardio = 4
Case 5
Me.pulmao = 1
Case 6
Me.pulmao = 2
Case 7
Me.pulmao = 3
Case 8
Me.pulmao = 4
End Select
End Sub

Veja o simples;

http://dl.dropbox.com/u/771097/GrupoOpcoes.rar

Caro JPaulo

Muito obrigado pelo seu esclarecimento e ainda por cima ilustrado com um exemplo prático.
É mesmo disto que eu preciso. Agora é só dar umas afinadelas e já está.
De facto quem não sabe é como quem não vê! Tinha chegado a um ponto em que tudo o que experimentava dava erro pelo que achei melhor perguntar a quem sabe.

Mais uma vez muito obrigado

Cumprimentos

jess

Obrigado pelo retorno, o fórum agradece.

Ola,

Tenho uma duvida similar a essa.

Em meu banco de dados tenho o cadastro de meus funcionários e um relatorio com 20 botões de opção (não agrupados). Cada botão tem um peso e ao serem selecionados eles somarão os valores para que ao final eu tenha uma nota de desempenho. Sendo que uma das opções se selecionada zera o relatório todo.

Essa analise sera mensal e a nota devera ficar no histórico do funcionário. è possivel?


Att,