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

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

    mpsbra
    mpsbra
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  mpsbra 17/7/2014, 11: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
    Fernando Bueno
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Fernando Bueno 17/7/2014, 11: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
    Aplicar um função na opção Click 16rzeq
    Fernando Bueno
    Fernando Bueno
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Fernando Bueno 17/7/2014, 11: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, 12:35, editado 1 vez(es) (Motivo da ediçã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
    Aplicar um função na opção Click 16rzeq
    avatar
    Convidado
    Convidado


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

    Mensagem  Convidado 17/7/2014, 11:50

    Olá, só uma observação, se vc vai ocultar os controles não precisa desabilitá-lo, pois ao ocultá-los, eles já ficam sem acesso
    Private Sub Empresa_Click()
    Me.CPF.Visible = False
    Me.RG.Visible = False
    MeCNPJ.Visible = True
    Me. Inscrição.Visible = True
    End Sub


    Última edição por Beto Givoni em 17/7/2014, 11:54, editado 1 vez(es)
    avatar
    Convidado
    Convidado


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

    Mensagem  Convidado 17/7/2014, 11:51

    Opa Fernando não vi que já tinhas respondido.
    Fernando Bueno
    Fernando Bueno
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Fernando Bueno 17/7/2014, 11: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
    Aplicar um função na opção Click 16rzeq
    Fernando Bueno
    Fernando Bueno
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Fernando Bueno 17/7/2014, 12: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
    Aplicar um função na opção Click 16rzeq
    mpsbra
    mpsbra
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    Aplicar um função na opção Click Empty Fiz o Procedimento

    Mensagem  mpsbra 17/7/2014, 13: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
    Aplicar um função na opção Click AttachmentControle 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
    Fernando Bueno
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Fernando Bueno 17/7/2014, 14: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


    .................................................................................
    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
    Aplicar um função na opção Click 16rzeq
    mpsbra
    mpsbra
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    Aplicar um função na opção Click Empty Entendi!!!

    Mensagem  mpsbra 17/7/2014, 15:34

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


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Fernando Bueno 17/7/2014, 15: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
    Aplicar um função na opção Click 16rzeq
    avatar
    Convidado
    Convidado


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

    Mensagem  Convidado 17/7/2014, 17:12

    É possivel sim ocultar e exibir as colunas em modo datasheet (folha de dados). Basta trocar o "visible" de cada campo por "ColumnHidden", False para ocultar e True para torná-lo visível.

    Conteúdo patrocinado


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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 16:00