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


3 participantes

    [Resolvido]Desbloquear campo para edição

    avatar
    AMarcos
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 218
    Registrado : 26/07/2016

    [Resolvido]Desbloquear campo para edição Empty [Resolvido]Desbloquear campo para edição

    Mensagem  AMarcos 27/2/2020, 01:40

    Amigos mestres tem formulários com mais de 10 campos em média cada um. Para um certo usuário que precisa somente visualizar os valores dentro deste campo eu coloquei o seguinte comando:

    If txt_CtrlGrupo = "Chefe" Then
    Me.AllowEdits = False
    End If


    Seria perfeito se entre esses mais de 10 campos eu não precisaria liberar uma caixa de combinação que funciona como filtro de seleção.

    Será que existe algum jeito de liberar apenas um campo para edição e permanecer com todos os outros bloqueados?


    Att,


    AMarcos
    =>Nois
    =>Nois
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 979
    Registrado : 09/11/2012

    [Resolvido]Desbloquear campo para edição Empty Re: [Resolvido]Desbloquear campo para edição

    Mensagem  =>Nois 27/2/2020, 15:38

    ao inves de generalizar bloqueia um por um, e chama em um ou dois botões para bloquear ou desbloquear

    me.cbo.enable = true
    me.cbo1.enable = true
    me.cbo1.enable = true
    me.cbo1.enable = true
    .....


    me.cbo.enable = false





    .................................................................................
    Att. Nois

    Se tudo não der certo... tente de novo drunken
    avatar
    AMarcos
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 218
    Registrado : 26/07/2016

    [Resolvido]Desbloquear campo para edição Empty Re: [Resolvido]Desbloquear campo para edição

    Mensagem  AMarcos 27/2/2020, 21:47

    Obg amigo pela pronta ajuda, mas eu preferi generalizar poi s eu atribuo isso a um grupo de usuários. Pq se eu for fazer bloqueio um a um, o código ficará muito extenso e aumenta o risco de erro.

    Mas é claro, se não houver outra solução, terei que fazer isso mesmo. O que era que estava sendo feito qdo achei melhor em substituir tudo por um única linha de comando.

    Depois como vi que havia necessidade de ter uma exceção do bloqueio, tentei achar no fórum, como não encontrei recorri aos mestres amigos.


    Vou dar mais uma busca e aguardar quem sabe alguém ter uma nova idéia para compartilhar com todos.

    Obg!!!


    AMarcos
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3845
    Registrado : 22/11/2016

    [Resolvido]Desbloquear campo para edição Empty Re: [Resolvido]Desbloquear campo para edição

    Mensagem  DamascenoJr. 27/2/2020, 23:04

    tente no evento ao receber foco do tal campo fazer o processo inverso, desbloqueando o formulário.

    Código:
    If txt_CtrlGrupo = "Chefe" Then
    Me.AllowEdits = True
    End If

    e ao perder foco

    Código:
    If txt_CtrlGrupo = "Chefe" Then
    Me.AllowEdits = False
    End If


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.

    Lindomar18 gosta desta mensagem

    avatar
    AMarcos
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 218
    Registrado : 26/07/2016

    [Resolvido]Desbloquear campo para edição Empty Re: [Resolvido]Desbloquear campo para edição

    Mensagem  AMarcos 28/2/2020, 16:45

    Obrigado Mestre Damasceno por mais essa ajuda!!!

    Td certo no procedimento.


    Um abraço.



    AMarcos
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3845
    Registrado : 22/11/2016

    [Resolvido]Desbloquear campo para edição Empty Re: [Resolvido]Desbloquear campo para edição

    Mensagem  DamascenoJr. 28/2/2020, 22:14

    O fórum agradece o retorno. Sucesso.


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.

    Conteúdo patrocinado


    [Resolvido]Desbloquear campo para edição Empty Re: [Resolvido]Desbloquear campo para edição

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 13/5/2024, 08:25