MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

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

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8907
    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


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

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8907
    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)


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

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8907
    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.]



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


    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8907
    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.


    .................................................................................
    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: Seg 05 Dez 2016, 16:35