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]Habilitar desabilitar campos

    avatar
    Wagner1310
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 44
    Registrado : 25/01/2012

    [Resolvido]Habilitar desabilitar campos Empty [Resolvido]Habilitar desabilitar campos

    Mensagem  Wagner1310 5/7/2012, 19:41

    Boa tarde a todos!
    estou mais uma vez aqui solicitando ajuda.

    Tenho um formulário com os seguintes campos:
    Num Subperíodo
    Situação
    NomeTrabalhador
    IdTrab
    CandNº
    Matrícula

    quando digito o núm do subperíodo aparece automaticamente se a situação é aberta ou suspensa.
    Sendo suspensa os outros campos deveriam ficar inabilitados/bloqueados, ou seja, não permitiria que fossem inserido dados, mas isto não acontece. Uso a função abaixo no evento Após Atualizar do campo Situação. O que está errado?
    Desde já agradeço a todos!

    Private Sub SitSubP_AfterUpdate()
    If Me.SitSubP = "Suspensa" Then
    Me.NomedoTrabalhador.Enabled = False
    Me.DtNascTrab.Enabled = False
    Me.IdTrab.Enabled = False
    Me.CandN.Enabled = False
    Me.Matrícula.Enabled = False
    Else
    Me.NomedoTrabalhador.Enabled = True
    Me.DtNascTrab.Enabled = True
    Me.IdTrab.Enabled = True
    Me.CandN.Enabled = True
    Me.Matrícula.Enabled = True
    End If
    End Sub
    Leandro
    Leandro
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1601
    Registrado : 12/11/2009

    [Resolvido]Habilitar desabilitar campos Empty Re: [Resolvido]Habilitar desabilitar campos

    Mensagem  Leandro 5/7/2012, 21:23

    Faça assim:

    Private Sub subperíodo_AfterUpdate()
    If Me.SitSubP.Value = "Suspensa" Then
    Me.NomedoTrabalhador.Enabled = False
    Me.DtNascTrab.Enabled = False
    Me.IdTrab.Enabled = False
    Me.CandN.Enabled = False
    Me.Matrícula.Enabled = False
    Else
    Me.NomedoTrabalhador.Enabled = True
    Me.DtNascTrab.Enabled = True
    Me.IdTrab.Enabled = True
    Me.CandN.Enabled = True
    Me.Matrícula.Enabled = True
    End If
    End Sub.

    avatar
    Wagner1310
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 44
    Registrado : 25/01/2012

    [Resolvido]Habilitar desabilitar campos Empty Re: [Resolvido]Habilitar desabilitar campos

    Mensagem  Wagner1310 6/7/2012, 12:51

    Ok, Valeu Leandro!

    Funcionou!

    Grato a todos que colaboraram também, mesmo que de forma indireta.

    Conteúdo patrocinado


    [Resolvido]Habilitar desabilitar campos Empty Re: [Resolvido]Habilitar desabilitar campos

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 26/4/2024, 23:44