MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

  • Novo Tópico
  • Responder ao tópico

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

Compartilhe

jess
Intermediário
Intermediário

Respeito às Regras 100%

Sexo : Masculino
Localização : Portugal
Mensagens : 77
Registrado : 17/09/2010

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

Mensagem  jess em Ter 05 Out 2010, 23:08

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 Very Happy

Cumprimentos

jess
avatar
JPaulo
Moderador
Moderador

Respeito às Regras 100%

Sexo : Masculino
Localização : Portugal
Mensagens : 9798
Registrado : 04/11/2009

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

Mensagem  JPaulo em Qua 06 Out 2010, 09:34

Ola Eduardo, bom dia !

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

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

Aguardo


.................................................................................
Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

[Você precisa estar registrado e conectado para ver este link.]
[Você precisa estar registrado e conectado para ver este link.]

Sucesso e Bons Estudos
Success and Good Studies

[Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
[Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
[Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

jess
Intermediário
Intermediário

Respeito às Regras 100%

Sexo : Masculino
Localização : Portugal
Mensagens : 77
Registrado : 17/09/2010

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

Mensagem  jess em Qua 06 Out 2010, 10:09

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
avatar
JPaulo
Moderador
Moderador

Respeito às Regras 100%

Sexo : Masculino
Localização : Portugal
Mensagens : 9798
Registrado : 04/11/2009

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

Mensagem  JPaulo em Qua 06 Out 2010, 11:39

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


Última edição por JPaulo em Qua 06 Out 2010, 11:48, editado 3 vez(es)


.................................................................................
Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

[Você precisa estar registrado e conectado para ver este link.]
[Você precisa estar registrado e conectado para ver este link.]

Sucesso e Bons Estudos
Success and Good Studies

[Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
[Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
[Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
avatar
JPaulo
Moderador
Moderador

Respeito às Regras 100%

Sexo : Masculino
Localização : Portugal
Mensagens : 9798
Registrado : 04/11/2009

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

Mensagem  JPaulo em Qua 06 Out 2010, 11:45

Veja o simples;

[Você precisa estar registrado e conectado para ver este link.]



.................................................................................
Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

[Você precisa estar registrado e conectado para ver este link.]
[Você precisa estar registrado e conectado para ver este link.]

Sucesso e Bons Estudos
Success and Good Studies

[Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
[Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
[Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

jess
Intermediário
Intermediário

Respeito às Regras 100%

Sexo : Masculino
Localização : Portugal
Mensagens : 77
Registrado : 17/09/2010

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

Mensagem  jess em Qua 06 Out 2010, 12:22

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ê! Very Happy 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

avatar
JPaulo
Moderador
Moderador

Respeito às Regras 100%

Sexo : Masculino
Localização : Portugal
Mensagens : 9798
Registrado : 04/11/2009

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

Mensagem  JPaulo em Qua 06 Out 2010, 12:25

Obrigado pelo retorno, o fórum agradece.


.................................................................................
Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

[Você precisa estar registrado e conectado para ver este link.]
[Você precisa estar registrado e conectado para ver este link.]

Sucesso e Bons Estudos
Success and Good Studies

[Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
[Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
[Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

sabryn@
Novato
Novato

Respeito às Regras 100%

Sexo : Feminino
Localização : Brasil
Mensagens : 29
Registrado : 26/04/2015

VBA com botão de opções

Mensagem  sabryn@ em Dom 26 Abr 2015, 00:40

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,
  • Novo Tópico
  • Responder ao tópico

Data/hora atual: Seg 21 Maio 2018, 04:04