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

    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 Qui 17 Jul - 10: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!!!

    Fernando Bueno
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1819
    Registrado : 12/04/2012

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

    Mensagem  Fernando Bueno em Qui 17 Jul - 10: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.]

    Fernando Bueno
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1819
    Registrado : 12/04/2012

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

    Mensagem  Fernando Bueno em Qui 17 Jul - 10: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 Qui 17 Jul - 11: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

    Fernando Bueno
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1819
    Registrado : 12/04/2012

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

    Mensagem  Fernando Bueno em Qui 17 Jul - 10: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.]

    Fernando Bueno
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1819
    Registrado : 12/04/2012

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

    Mensagem  Fernando Bueno em Qui 17 Jul - 11: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.]

    mpsbra
    Novato
    Novato

    Respeito às Regras 100%

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

    Fiz o Procedimento

    Mensagem  mpsbra em Qui 17 Jul - 12: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)

    Fernando Bueno
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1819
    Registrado : 12/04/2012

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

    Mensagem  Fernando Bueno em Qui 17 Jul - 13: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 29 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.]

    mpsbra
    Novato
    Novato

    Respeito às Regras 100%

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

    Entendi!!!

    Mensagem  mpsbra em Qui 17 Jul - 14:34

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

    Fernando Bueno
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1819
    Registrado : 12/04/2012

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

    Mensagem  Fernando Bueno em Qui 17 Jul - 14: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: Qua 7 Dez - 14:13