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]Exibir e Ocultar

    avatar
    Ricardo Oliveira
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Ricardo Oliveira 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
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  crysostomo 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


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    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 : Respeito às Regras 100%

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

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

    Mensagem  Ricardo Oliveira 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
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  crysostomo 8/3/2020, 11:34

    Vlw pelo retorno What a Face


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    avatar
    Anslu
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 123
    Registrado : 11/01/2018

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

    Mensagem  Anslu 25/11/2021, 13:53

    Private Sub NCarga_AfterUpdate()
    If Not IsNull(Me.NCarga) Then
          Me.NCarga1.Visible = True
    else
           Me.NCarga1.Visible = False
    End If
    End Sub

    Conteúdo patrocinado


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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 8/12/2024, 00:29