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

    Aplicar um função na opção Click

    Compartilhe
    avatar
    mpsbra
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 35
    Registrado : 21/08/2012

    Aplicar um função na opção Click

    Mensagem  mpsbra em 17/7/2014, 14:33

    Oi pessoal, estou precisando que um campo ao ser clicado, que ele possa bloquear 2 campos e liberar outros 2.

    Po Exemplo;
    Ao clicar no campo Empresa, o CPF e RG são desabilitados e ocultados.
    Sendo assim os Campos CNPJ e Inscrição estadual são apresentados.
    Mas se O campo empresa é desmarcado, ocorre o contrario desta função.
    Eu fiz assim:


    Option Compare Database

    Private Sub Empresa_AfterUpdate()
    If Me.Empresa = "1" Then
    Me.CPF.Enabled = True
    Me.CPF.Locked = False
    Me.CPF.Visible = False
    Me.RG.Enabled = True
    Me.RG.Locked = False
    Me.RG.Visible = False
    Me.CNPJ.Enabled = False
    Me.CNPJ.Locked = True
    Me.CNPJ.Visible = True
    End If
    If Me.Empresa = "0" Then
    Me.CPF.Enabled = False
    Me.CPF.Locked = True
    Me.CPF.Visible = True
    Me.RG.Enabled = False
    Me.RG.Locked = True
    Me.RG.Visible = True
    Me.CNPJ.Enabled = True
    Me.CNPJ.Locked = False
    Me.CNPJ.Visible = False
    End If
    End Sub

    Onde está o pb??
    Desde já agradeço!!!
    avatar
    Fernando Bueno
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1820
    Registrado : 13/04/2012

    Re: Aplicar um função na opção Click

    Mensagem  Fernando Bueno em 17/7/2014, 14:44

    Ola amigo, esse campo empresa é caixa de texto ou botão de opção?


    .................................................................................
    Um abraço
    Fernando Bueno


    O aumento do conhecimento é como uma esfera dilatando-se no espaço
    quanto maior a nossa compreensão,
    maior o nosso contacto com o desconhecido
    [Você precisa estar registrado e conectado para ver esta imagem.]
    avatar
    Fernando Bueno
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1820
    Registrado : 13/04/2012

    Re: Aplicar um função na opção Click

    Mensagem  Fernando Bueno em 17/7/2014, 14:48

    Teste dessa forma:

    Código:
    If Me.Empresa = -1 Then
    Me.CPF.Visible = False
    Me.RG.Visible = False
    Me.CNPJ.Visible = True
    Else
    Me.CPF.Visible = True
    Me.RG.Visible = True
    Me.CNPJ.Visible = False
    End If
    End Sub


    Última edição por Fernando Bueno em 17/7/2014, 15:35, editado 1 vez(es) (Razão : Corrigido o codigo)


    .................................................................................
    Um abraço
    Fernando Bueno


    O aumento do conhecimento é como uma esfera dilatando-se no espaço
    quanto maior a nossa compreensão,
    maior o nosso contacto com o desconhecido
    [Você precisa estar registrado e conectado para ver esta imagem.]
    O autor desta mensagem foi removido do fórum - Ver a mensagem
    O autor desta mensagem foi removido do fórum - Ver a mensagem
    avatar
    Fernando Bueno
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1820
    Registrado : 13/04/2012

    Re: Aplicar um função na opção Click

    Mensagem  Fernando Bueno em 17/7/2014, 14:57

    Sem problemas Beto, alias você fez uma ótima observação que também não me dei

    conta, não visualizei o comando do colega apenas coloquei -1 e else. E também esta no evento Apos

    Atualizar, o correto seria ao clicar.

    Vamos aguardar


    .................................................................................
    Um abraço
    Fernando Bueno


    O aumento do conhecimento é como uma esfera dilatando-se no espaço
    quanto maior a nossa compreensão,
    maior o nosso contacto com o desconhecido
    [Você precisa estar registrado e conectado para ver esta imagem.]
    avatar
    Fernando Bueno
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1820
    Registrado : 13/04/2012

    Re: Aplicar um função na opção Click

    Mensagem  Fernando Bueno em 17/7/2014, 15:36

    Comando corrigido na mensagem nº3


    .................................................................................
    Um abraço
    Fernando Bueno


    O aumento do conhecimento é como uma esfera dilatando-se no espaço
    quanto maior a nossa compreensão,
    maior o nosso contacto com o desconhecido
    [Você precisa estar registrado e conectado para ver esta imagem.]
    avatar
    mpsbra
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 35
    Registrado : 21/08/2012

    Fiz o Procedimento

    Mensagem  mpsbra em 17/7/2014, 16:46

    Opa eu fiz o procedimento mas não aconteceu como o esperado.

    O Arquivo segue para analize. Office 2010

    Option Compare Database

    Private Sub Empresa_Click()
    If Me.Empresa = 1 Then
    Me.CPF.Visible = False
    Me.RG.Visible = False
    Me.CNPJ.Visible = True
    Else
    Me.CPF.Visible = True
    Me.RG.Visible = True
    Me.CNPJ.Visible = False
    End If
    End Sub
    Anexos
    Controle de Venda e Recebimentos.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (154 Kb) Baixado 8 vez(es)
    avatar
    Fernando Bueno
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1820
    Registrado : 13/04/2012

    Re: Aplicar um função na opção Click

    Mensagem  Fernando Bueno em 17/7/2014, 17:19

    Ve se ta certo..

    Private Sub Empresa_Click()
    If Me.Empresa = -1 Then
    Me.CPF.Visible = False
    Me.RG.Visible = False
    Me.CNPJ.Visible = True
    Else
    Me.CPF.Visible = True
    Me.RG.Visible = True
    Me.CNPJ.Visible = False
    End If
    End Sub
    Anexos
    Controle de Venda e Recebimentos_II.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (167 Kb) Baixado 33 vez(es)


    .................................................................................
    Um abraço
    Fernando Bueno


    O aumento do conhecimento é como uma esfera dilatando-se no espaço
    quanto maior a nossa compreensão,
    maior o nosso contacto com o desconhecido
    [Você precisa estar registrado e conectado para ver esta imagem.]
    avatar
    mpsbra
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 35
    Registrado : 21/08/2012

    Entendi!!!

    Mensagem  mpsbra em 17/7/2014, 18:34

    Entendi, no modo folha de dados não funciona, somente como modo formulário!!!
    Obrigado mesmo!
    avatar
    Fernando Bueno
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1820
    Registrado : 13/04/2012

    Re: Aplicar um função na opção Click

    Mensagem  Fernando Bueno em 17/7/2014, 18:47

    De nada colega, se não houver mais duvidas clique no botão resolvido para

    fecharmos o topico ok.


    .................................................................................
    Um abraço
    Fernando Bueno


    O aumento do conhecimento é como uma esfera dilatando-se no espaço
    quanto maior a nossa compreensão,
    maior o nosso contacto com o desconhecido
    [Você precisa estar registrado e conectado para ver esta imagem.]
    O autor desta mensagem foi removido do fórum - Ver a mensagem

      Data/hora atual: 27/3/2017, 02:41