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


2 participantes

    [Resolvido]Mostrar Ocultar campos

    avatar
    mnascimento1
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 31/05/2012

    [Resolvido]Mostrar Ocultar campos Empty Mostrar Ocultar campos

    Mensagem  mnascimento1 31/5/2012, 18:57

    Ola PessoALL!

    Sou novato em Access, e como todo bom novato, estou com alguma duvidas, mas vou coloca-las em tópicos separados, pra ficar mais fácil de entender.

    Eu estou desenvolvendo um cadastro de clientes e controle de OS e contas a pagar e receber para meu uso próprio, pois sou técnico de informática. Estou desenvolvendo o sistema em Access 2010 com sistema operacional windows 7 64 bits.

    No cadastro de cliente, criei uma função onde através de duas check box (aquela quadradinha que faz um V qdo selecionada), chamada PF, para pessoa física e PJ para Pessoa jurídica. Qdo seleciono PF, o formulário mostra os campos RG, CPF e órgão emissor. e quando seleciono a check box PJ, ele mostra o campo CNPJ e Inscrição Estadual que também estão ocultos.

    Porém o formulário esta permitindo que eu selecione as duas check box ao mesmo tempo, o que faz com que os campos apareçam todos juntos e amontoados, e quando seleciono o PJ, e decido alternar pro PF, sem fazer seleção dupla, os campos não ficam ocultos novamente. Ou seja, uma vez em exibição eles não voltam mais a ficar ocultos.
    E nesta mesma função, quando digito os valores nos campos que são mostrado, de acordo com minha seleção, os valores não são gravados na tabela.

    Abaixo segue o código que estou usando para fazer a função que falei;


    Option Compare Database
    Private Sub Form_Current()
    If Me.NewRecord Then
    Me.PF = 0
    Me.rg = ""
    Me.cpf = ""
    Me.uf_rg = ""
    Me.rg.Visible = False
    Me.cpf.Visible = False
    Me.uf_rg.Visible = False
    Me.PJ = 0
    Me.cnpj = ""
    Me.ie = ""
    Me.cnpj.Visible = False
    Me.ie.Visible = False
    Exit Sub
    End If
    End Sub
    Private Sub PJ_AfterUpdate()
    If PJ = -1 Then
    cnpj.Visible = True
    ie.Visible = True
    Else
    cnpj = Null
    ie = Null
    cnpj = False
    ie = False
    End If
    End Sub
    Private Sub PF_AfterUpdate()
    If PF = -1 Then
    rg.Visible = True
    cpf.Visible = True
    uf_rg.Visible = True
    Else
    rg = Null
    cpf = Null
    uf_rg = Null
    rg = False
    cpf = False
    uf_rg = False
    End If
    End Sub

    Desde já agradeço a quem puder me ajudar. E se não for pedir demais, por ser iniciantes, as vezes não compreendo explicações muito técnicas.

    Qualquer dificuldade em entender meu problema, por favor me perdoem, e estou qui para esclarecer de forma a que possam entender e se for possível me ajudar.

    Marcelo.
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8449
    Registrado : 05/11/2009

    [Resolvido]Mostrar Ocultar campos Empty Re: [Resolvido]Mostrar Ocultar campos

    Mensagem  Alexandre Neves 31/5/2012, 19:05

    Boa tarde, nascimento, e bem-vindo ao fórum

    Para alternar entre as duas caixas de verificação, pode criar um grupo de opções ou colocar código para que uma seja o contrário da outra
    Para tal, coloque DepoisDeActualizar de PF
    If PF Then PJ=False
    coloque DepoisDeActualizar de PJ
    If PJ Then PF=False
    avatar
    mnascimento1
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 31/05/2012

    [Resolvido]Mostrar Ocultar campos Empty Re: [Resolvido]Mostrar Ocultar campos

    Mensagem  mnascimento1 6/6/2012, 00:54

    Oi Alexandre!!!
    Deu certo... obrigado pela ajuda
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8449
    Registrado : 05/11/2009

    [Resolvido]Mostrar Ocultar campos Empty Re: [Resolvido]Mostrar Ocultar campos

    Mensagem  Alexandre Neves 3/9/2012, 10:11

    Estando resolvido, deve ser pressionado o botão adequado.
    Desta, marco-o eu.


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

    Conteúdo patrocinado


    [Resolvido]Mostrar Ocultar campos Empty Re: [Resolvido]Mostrar Ocultar campos

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 7/5/2024, 00:10