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

    Campo dependente

    avatar
    Mateusmfa
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1
    Registrado : 23/10/2015

    Campo dependente Empty Campo dependente

    Mensagem  Mateusmfa 23/10/2015, 13:16

    Olá, sou novato em questão de desenvolvimento em ACCESS e preciso de uma ajuda de vocês.


    Eu preciso criar um campo aonde ele só habilitara se outro campo for acionado, ou seja, Se um determinado campo tiver a marcação o outro se habilitara para poder ser editado.




    Desde já agradeço  Very Happy
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7922
    Registrado : 15/03/2013

    Campo dependente Empty Re: Campo dependente

    Mensagem  Alvaro Teixeira 23/10/2015, 14:11

    Olá Mateus Ferreira, bem-vindo ao fórum.

    Para fazer o que pretende terá que utilizar o VBA, veja o código:

    Código:
    Private Sub Form_Current()
        Call fncCampoDependente
    End Sub

    Private Sub NomeCampoPreenchido_AfterUpdate()
        Call fncCampoDependente
    End Sub


    Function fncCampoDependente()
    'ahteixeira - 2015 maximoaccess
        
        'aqui verifica se campo está preenchido
        If Len(Me.NomeCampoPreenchido & "") > 0 Then
            'se sim vai colocar com activo
            Me.NomeCampoDependente.Enabled = True
        Else
            'se não coloca como inactivo
            Me.NomeCampoDependente.Enabled = False
        End If
        
        'actualizar
        DoCmd.RunCommand acCmdRefresh
    End Function

    Segue pequeno exemplo campoDependente.zip

    Teste alterando o campo "remetente"

    Abraço

      Data/hora atual: 20/5/2024, 00:17