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


    [Resolvido]ocultar subform por opção

    avatar
    Convidado
    Convidado


    [Resolvido]ocultar subform por opção Empty ocultar subform por opção

    Mensagem  Convidado Qui Jan 26, 2012 5:44 pm

    Boa noita colegas....
    No form de pedido o usuário tem a opção de preencher o campo "cliente" com um já cadastrado no sistema ou não através de duas caixas de seleção. Abaixo do nome há um subform com campos para contato ao qual está ligado ao cliente cadastrado. quando escolhe preencher com cliente cadastrado no sistema o subform e preenchido com os dados cadastrados. Escolhendo em preencher o campo cliente não cadastrado aparecerá um subform com os campos de contato para preenchimento. O que preciso é ocultar estes subformulários. escolho o cadastrado aparece o subform correspondente, escolha o não cadastrado oculta um e apresenta o outro subform correspondente.... há como?
    avatar
    Convidado
    Convidado


    [Resolvido]ocultar subform por opção Empty Re: [Resolvido]ocultar subform por opção

    Mensagem  Convidado Qui Jan 26, 2012 7:03 pm

    Colegas fiz alguns testes e encontrei a maneira.....

    No evento load (ao carregar) do subform
    Me.Visible = False

    no evento GotFocus(ao receber foco)do botão de opção de nome Cadastrado
    me.subform com dados.visable = true
    me.subform sem dados.visable = false

    no evento GotFocus(ao receber foco)do botão de opção de nome Não Cadastrado
    me.subform com dados.visable = false
    me.subform sem dados.visable = true




    avatar
    Convidad
    Convidado


    [Resolvido]ocultar subform por opção Empty Re: [Resolvido]ocultar subform por opção

    Mensagem  Convidad Qui Jan 26, 2012 7:24 pm


    Olá

    Ao invés de 2 CheckBox vc poderia usar um GrupoDeOpção com 2 CheckBox (com valores 1 e 2) dentro.

    Por padrão, deixe os 2 subforms como Visível Não.

    No evento AfterUpdate do GrupoDeOpção insere código para alterar a propriedade Visible dos subforms conforme o valor escolhido no Grupo:

    Private Sub NomeDoGrupoDeOpção_AfterUpdate()
    If Me.NomeDoGrupoDeOpção = 1 Then
    Me.NomeSubform1.Visible = True
    Me.NomeSubform2.Visible = False
    ElseIf Me.NomeDoGrupoDeOpção = 2 Then
    Me.NomeSubform1.Visible = False
    Me.NomeSubform2.Visible = True
    End If
    End Sub



    Se precisar, coloca código idêntico no evento Current do form.
    avatar
    Convidado
    Convidado


    [Resolvido]ocultar subform por opção Empty Re: [Resolvido]ocultar subform por opção

    Mensagem  Convidado Qui Jan 26, 2012 8:23 pm

    Boa noite Norberto....
    Usei o cógigo no botão e você no grupo.....os dois dão o mesmo resultado.
    Mas vale lembrar que os subform tem que estar visable = false ao carregar.....
    Como diz JPaulo existe várias maneiras de preparar o Neston.......

    Obrigado amigão......

    Conteúdo patrocinado


    [Resolvido]ocultar subform por opção Empty Re: [Resolvido]ocultar subform por opção

    Mensagem  Conteúdo patrocinado


      Data/hora atual: Sex Nov 22, 2024 5:20 am