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

    [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 : 9382
    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 : 9382
    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 : 9382
    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 : 9382
    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,

      Data/hora atual: Sab 19 Ago 2017, 16:00