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

    Campo oculto em subformulário

    Compartilhe

    angelomonteiro1981
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 46
    Registrado : 16/04/2017

    Campo oculto em subformulário

    Mensagem  angelomonteiro1981 em Seg Jun 05, 2017 7:48 am

    Bom dia. Estou com uma dúvida e preciso de ajuda. Já procurei no fórum mas não achei algo tão específico o quanto preciso.

    Pois bem....

    Tenho um Formulário principal (FrmPrincipal) com dois Subformulários (SubFrm1 e SubFrm2).

    No "SubFrm1" tenho o campo "Categoria" (ComboxCategoria) que é uma caixa de combinação que tem as seguintes opções disponíveis para serem selecionadas: Categoria 1, Categoria 2, Categoria 3, Categoria 4, etc...

    No "SubFrm2" tenho os campos "Descrição", "Quantidade" (txtQntd), "Peso" (txtPeso), "UnidadeMedida" (ComboxUnMed).

    O que preciso?

    Preciso que os campos do "SubFrm2" (SOMENTE ESTES: Quantidade, Peso e UnidadeMedida) fiquem ocultos, e que, ao selecionar SOMENTE as categorias (Categoria 1 OU Categoria 2) no "SbuFrm1" eles apareçam, ou seja, fiquem habilitados, de modo que eu possa preencher a "Quantidade", o "Peso" e a "UnidadeMedida".

    avatar
    Emerson73
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 71
    Registrado : 22/05/2017

    Re: Campo oculto em subformulário

    Mensagem  Emerson73 em Qui Jun 08, 2017 3:10 am

    Boa noite Angelo. Testa o seguinte:

    Na propriedade dos campos Quantidade, Peso e Medida do SubFrm2, tu coloca o "Ativado" como NÃO.

    No evento No Atual do SubFrm2 coloca:

    If [Forms]![frmPrincipal]![SubFrm1]![Categoria] = "Categoria 1" or [Forms]![frmPrincipal]![SubFrm1]![Categoria] = "Categoria 2" then
    me.txtQntd.enabled = True
    me.txtPeso.enabled = True
    me.ComboxUnMed.enabled = True
    Else
    me.txtQntd.enabled = false
    me.txtPeso.enabled = false
    me.ComboxUnMed.enabled = false
    End If

    Depois no evento Após Atualizar do campo Descrição no SubFrm1 tu coloca:

    If me.Categoria = "Categoria 1" or me.Categoria = "Categoria 2" then
    [Forms]![frmPrincipal]![SubFrm2]![txtQntd].enabled = True
    [Forms]![frmPrincipal]![SubFrm2]!txtPeso].enabled = True
    [Forms]![frmPrincipal]![SubFrm2]![ComboxUnMed].enabled = True
    Else
    [Forms]![frmPrincipal]![SubFrm2]![txtQntd].enabled = False
    [Forms]![frmPrincipal]![SubFrm2]!txtPeso].enabled = False
    [Forms]![frmPrincipal]![SubFrm2]![ComboxUnMed].enabled = False
    End If

    Tu testa e veja se vai dar certo.

    Att.
    Emerson

    angelomonteiro1981
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 46
    Registrado : 16/04/2017

    Re: Campo oculto em subformulário

    Mensagem  angelomonteiro1981 em Qui Jun 08, 2017 6:05 pm

    Olá Emerso, obrigado pela intenção em ajudar, mas infelizmente está apresentando algum tipo de erro e não oculta os campos.
    avatar
    Emerson73
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 71
    Registrado : 22/05/2017

    Re: Campo oculto em subformulário

    Mensagem  Emerson73 em Sex Jun 09, 2017 6:20 pm

    Poste esta parte do BD, fica mais fácil de entender. Acredito que seja simples de resolver.

    Emerson
    avatar
    tauron
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 697
    Registrado : 07/12/2011

    Re: Campo oculto em subformulário

    Mensagem  tauron em Sex Jun 09, 2017 9:59 pm

    Veja este exemplo:
    Anexos
    ocultacampo.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (27 Kb) Baixado 9 vez(es)

      Data/hora atual: Qua Nov 22, 2017 9:00 am