MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Exibir e Ocultar

    avatar
    Ricardo Oliveira
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 7
    Registrado : 08/08/2017

    [Resolvido]Exibir e Ocultar Empty [Resolvido]Exibir e Ocultar

    Mensagem  Ricardo Oliveira em 28/2/2020, 20:25

    Boa tarde a todos,
    Estou com um form continuo e com alguns campos como NCarga; NCarga2; NCarga3 e NCarga4, alem de outros. preciso que a medida que eu digite em cada campo o outro seja exibido e as demais colunas sejam realinhadas.

    Código:
    Private Sub NCarga_AfterUpdate()
    If IsNull(Me!NCarga) Then
    Me.NCarga2.Visible = False
    Me.R_Carga2.Visible = False

    Else
    Me.NCarga2.Visible = True
    Me.R_Carga2.Visible = True
    End If
    End Sub

    Private Sub NCarga2_AfterUpdate()
    If IsNull(Me!NCarga2) Then
    Me.NCarga3.Visible = False
    Me.R_Carga3.Visible = False

    Else
    Me.NCarga3.Visible = True
    Me.R_Carga3.Visible = True
    End If
    End Sub

    Private Sub NCarga3_AfterUpdate()
    If IsNull(Me!NCarga3) Then
    Me.NCarga4.Visible = False
    Me.R_Carga4.Visible = False

    Else
    Me.NCarga4.Visible = True
    Me.R_Carga4.Visible = True

    End If
    End Sub

    Grato.
    crysostomo
    crysostomo
    VIP
    VIP

    Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1472
    Registrado : 23/01/2018

    [Resolvido]Exibir e Ocultar Empty Re: [Resolvido]Exibir e Ocultar

    Mensagem  crysostomo em 29/2/2020, 04:10

    Boa noite Ricardo. Ao abri o formulário coloque essas NCargas invisíveis, ao digitar os campos ela exibi.
    Código:
    Private Sub NCarga_AfterUpdate()
    If Not IsNull(Me.NCarga) Then
           Me.NCarga1.Visible = True
    End If
    End Sub
    e assim em seguida com outros


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    avatar
    Ricardo Oliveira
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 7
    Registrado : 08/08/2017

    [Resolvido]Exibir e Ocultar Empty Re: [Resolvido]Exibir e Ocultar

    Mensagem  Ricardo Oliveira em 6/3/2020, 01:28

    Boa noite Crysostomo, funcionou porém quando eu fecho o form. as colunas mesmo com dados ficam ocultas, como posso resolver essa questão?

    Grato meu caro.
    crysostomo
    crysostomo
    VIP
    VIP

    Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1472
    Registrado : 23/01/2018

    [Resolvido]Exibir e Ocultar Empty Re: [Resolvido]Exibir e Ocultar

    Mensagem  crysostomo em 8/3/2020, 11:34

    Vlw pelo retorno What a Face


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.

      Data/hora atual: 5/12/2020, 08:53