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


    [Resolvido] Carregar SubForm ao clicar em guia

    Gabriel Brunichaki
    Gabriel Brunichaki
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 138
    Registrado : 11/12/2015

    [Resolvido] Carregar SubForm ao clicar em guia Empty [Resolvido] Carregar SubForm ao clicar em guia

    Mensagem  Gabriel Brunichaki 3/3/2016, 20:39

    Boa tarde!

    Tenho um controle guia com 4 abas e dois subformulários em cada aba, totalizando 8 subformulários no formulário principal.
    Por questões de performance, gostaria de carregar os subformulários somente quando o usuário entrasse na sua guia correspondente.
    Por exemplo: ao clicar na guia "Pagamentos", carrega o subfrmPagamentos1 e subfrmPagamentos2 que estão dentro desta guia.

    Creio que desta maneira a aplicação ficaria mais rápida, pois só carregaria o que o usuário precisasse.
    Há alguma maneira? Valeu!


    .................................................................................
    “Não podemos solucionar problemas usando a mesma forma de raciocínio que usamos quando os criamos.”
    – Albert Einstein
    Gabriel Brunichaki
    Gabriel Brunichaki
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 138
    Registrado : 11/12/2015

    [Resolvido] Carregar SubForm ao clicar em guia Empty Re: [Resolvido] Carregar SubForm ao clicar em guia

    Mensagem  Gabriel Brunichaki 4/3/2016, 14:20

    Resolvido!

    Código:
    Private Sub CtlGuia_Change()
        Select Case Me.CtlGuia.Value
            Case 1
                If Me.Sub1.SourceObject = "" Then
                    Me.Sub1.SourceObject = "Sub1"
                    Me.Sub2.SourceObject = "Sub2"
                End If
            Case 2
                If Me.Sub3.SourceObject = "" Then
                    Me.Sub3.SourceObject = "Sub3"
                    Me.Sub4.SourceObject = "Sub4"
                End If
            Case 3
                If Me.Sub5.SourceObject = "" Then
                    Me.Sub5.SourceObject = "Sub5"
                    Me.Sub6.SourceObject = "Sub6"
                End If
        End Select
    End Sub

    Private Sub Form_Close()
        
        Me.Sub1.SourceObject = ""
        Me.Sub2.SourceObject = ""
        Me.Sub3.SourceObject = ""
        Me.Sub4.SourceObject = ""

    End Sub


    .................................................................................
    “Não podemos solucionar problemas usando a mesma forma de raciocínio que usamos quando os criamos.”
    – Albert Einstein

      Data/hora atual: 12/5/2024, 06:45