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]Listar todos os Formularios do Sistema na ListaBox

    NADIRONUNES
    avatar
    NADIRONUNES
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 578
    Registrado : 30/08/2010
    • Mensagem nº1

    [Resolvido]Listar todos os Formularios do Sistema na ListaBox Empty [Resolvido]Listar todos os Formularios do Sistema na ListaBox

    Mensagem  NADIRONUNES 13/7/2022, 16:14

    bom dia a Todos

    Como que Faco pra Listar todos os formularios existente no meu sistema em uma listabox
    • Ir para o topo
    NADIRONUNES
    avatar
    NADIRONUNES
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 578
    Registrado : 30/08/2010
    • Mensagem nº2

    [Resolvido]Listar todos os Formularios do Sistema na ListaBox Empty Re: [Resolvido]Listar todos os Formularios do Sistema na ListaBox

    Mensagem  NADIRONUNES 13/7/2022, 18:20

    boa tarde
    consegui resolver

    Public Function ListaFormularios()
    Me!frmx.RowSourceType = "Value List"
    Me!frmx.RowSource = ""
    Me!frmx.ColumnCount = 1
    Me!frmx.ColumnWidths = "3cm"
    For Each frm In Application.CurrentProject.AllForms
    Me!frmx.AddItem frm.Name
    Next
    End Function

    obrigado a todos
    • Ir para o topo
      Data/hora atual: 21/11/2024, 18:57