MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


3 participantes

    Preenchimento grupo de opção

    OLDRIVG
    OLDRIVG
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 374
    Registrado : 20/07/2010

    Preenchimento grupo de opção Empty Preenchimento grupo de opção

    Mensagem  OLDRIVG 14/4/2012, 16:42

    Prezados do forum,

    no formulário tem os grupos de opções "ativa" e "falecido" ambos com as opções de Sim(valor 1) ou Não(valor 2) e não é campo com tipo de dados sim/não. Estou querendo condicionar o preenchimento do grupo "falecido" ao prechimento do grupo "ativa". Ou seja, se o grupo "falecido" estiver assinalado Sim(1) o grupo "ativa" só pode ser assinalado Não(2).
    Tentei usar o código abaixo

    If Me.Falecido = 1 then
    Me.Ativa = 2


    mas não está funcionando a contento pois está sendo possíviel mudar/alterar a opção do grupo "ativa" para sim.
    O meu propósito seria "obrigar" a opção Sim permanecer como selecionado caso satisfeita a condição do código.
    Alguém saberia me instruir de como fazer isto através de código?
    Desde já agradeço
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    Preenchimento grupo de opção Empty Re: Preenchimento grupo de opção

    Mensagem  criquio 14/4/2012, 16:58

    Talvez assim no "Após atualizar" do "falecido":

    Me.falecido = -1
    Me.ativo = 0


    E no "Ao clicar" do ativo:

    If Me.falecido = -1 Then
    Me.ativo = 0
    Else
    Ms.ativo = -1
    End If


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    OLDRIVG
    OLDRIVG
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 374
    Registrado : 20/07/2010

    Preenchimento grupo de opção Empty Re: Preenchimento grupo de opção

    Mensagem  OLDRIVG 14/4/2012, 18:17

    Olá Colega,
    não funcionou. O código do "falecido" não deixa selecionar nenhuma opção.
    É preciso primeiro selecionar Sim(1) ou Não(2) no grupo "Falecido" para depois selecionar no grupo "Ativa" Sim(1) ou Não(2).
    A propósito, porque do -1 no código?
    Agradeço
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4772
    Registrado : 06/11/2009

    Preenchimento grupo de opção Empty Re: Preenchimento grupo de opção

    Mensagem  Assis 14/4/2012, 18:27

    olá OLDRI

    Se estiver na versão 2003 poste aqui só o form e a tabela.


    .................................................................................
    *** Só sei que nada sei ***
    OLDRIVG
    OLDRIVG
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 374
    Registrado : 20/07/2010

    Preenchimento grupo de opção Empty Re: Preenchimento grupo de opção

    Mensagem  OLDRIVG 14/4/2012, 18:51

    OK
    avatar
    Convidado
    Convidado


    Preenchimento grupo de opção Empty Re: Preenchimento grupo de opção

    Mensagem  Convidado 16/4/2012, 03:27

    Boa noite colega Oldri, tudo bem...
    Tente assim....
    No grupo de opção "falecido" na opção "Sim" no evento "ao receber foco" escreva: Me.NomeDoControle.Locked = True
    e na opção "Não" do mesmo grupo de opção "falecido" no evento "ao receber foco" escreva : Me.mesmoNomeControleDesabilitado.Locked = False
    Veja o exemplo:

    http://speedy.sh/5prjq/Oldri.rar
    OLDRIVG
    OLDRIVG
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 374
    Registrado : 20/07/2010

    Preenchimento grupo de opção Empty Re: Preenchimento grupo de opção

    Mensagem  OLDRIVG 16/4/2012, 04:28

    Olá colega Caffpr. Bom dia. Tudo beleza!

    Seria quase isto do exemplo que eu preciso.

    No exemplo quando se clica no "Sim" do grupo "falecido" realmente o grupo "ativa" fica bloqueado. Mas tem um porém; se clicarmos no "Sim" do grupo "falecido" e o "Não" do grupo "ativa" estiver clicado(assinalado), se consegue clicar no "Sim" do "ativa" e aí ele trava e não se consegue clicar mais no "Não" do mesmo grupo, que seria a opção que deveria estar assinalada quando o "Sim" do falecido estiver assinalado.

    Na verdade, quando o "Sim" do grupo "falecido" fosse clicado, o "Não" do grupo "Ativa" deveria ficar assinalado automaticamente, o que acontece atualmente com o código que postei. Como escrevi, o que eu pretendia era evitar que o usuário pudesse marcar o "Sim" do grupo "ativa" quando o "Sim" do grupo "falecido" estivesse marcado.

    Mas agradeço a sua atenção e boa vontade.

    Conteúdo patrocinado


    Preenchimento grupo de opção Empty Re: Preenchimento grupo de opção

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 14/5/2024, 17:23