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

    avatar
    NADIRONUNES
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 531
    Registrado : 30/08/2010

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

    Mensagem  NADIRONUNES Qua 13 Jul - 12:14

    bom dia a Todos

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


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 531
    Registrado : 30/08/2010

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

    Mensagem  NADIRONUNES Qua 13 Jul - 14: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

      Data/hora atual: Sab 1 Out - 11:56