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


2 participantes

    [Resolvido]Mostrar em uma Lista box todos os meu forms

    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

    [Resolvido]Mostrar em uma Lista box todos os meu forms Empty [Resolvido]Mostrar em uma Lista box todos os meu forms

    Mensagem  NADIRONUNES Seg 19 Ago 2024, 08:17

    bom dia a todos

    esse codigo mosta todas as tabelas que tenho no banco
    Código:
    SELECT MSysObjects.Name AS NomeTabela
    FROM MSysObjects
    WHERE ((MSysObjects.Type IN (1, 4, 6))
    AND (MSysObjects.Flags = 0));

    eu to precisando de um codigo que mostra todos os meus forms do banco

    alguem consegue me ajudar
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3900
    Registrado : 04/04/2010

    [Resolvido]Mostrar em uma Lista box todos os meu forms Empty Re: [Resolvido]Mostrar em uma Lista box todos os meu forms

    Mensagem  Avelino Sampaio Seg 19 Ago 2024, 13:26

    Olá!

    Experimente:

    Dim strNome As String
    Dim frm As AccessObject

    For Each frm In CurrentProject.AllForms
      strNome = frm.Name & " * " & strNome
    Next

    MsgBox strNome


    Sucesso!


    Última edição por Avelino Sampaio em Dom 08 Set 2024, 03:41, editado 1 vez(es)


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso vitalício ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    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

    [Resolvido]Mostrar em uma Lista box todos os meu forms Empty Re: [Resolvido]Mostrar em uma Lista box todos os meu forms

    Mensagem  NADIRONUNES Ter 20 Ago 2024, 08:19

    muito obrigado Avelino Sampaio

    Conteúdo patrocinado


    [Resolvido]Mostrar em uma Lista box todos os meu forms Empty Re: [Resolvido]Mostrar em uma Lista box todos os meu forms

    Mensagem  Conteúdo patrocinado


      Data/hora atual: Sex 08 Nov 2024, 12:56