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]Passar nome de objeto para uma função e poder referenciar o mesmo na função

    avatar
    Convidado
    Convidado


    [Resolvido]Passar nome de objeto para uma função e poder referenciar o mesmo na função Empty Passar nome de objeto para uma função e poder referenciar o mesmo na função

    Mensagem  Convidado 12/9/2013, 00:28

    Amigos.. como passar o nome de uma listbox por exemplo, para uma função e poder carregar a mesma através da função?

    '---------------------------------------------------------------------------------------
    ' Procedure     : Listar
    ' Author        : Harysohn P. Pina (PILOTO) - Harysohn@hotmail.com
    ' Fórum         : Fórum Máximo Access -  http://maximoaccess.forumeiros.com/
    ' Date          : 11/09/2013
    ' Comentários   : Lista os processos ativos no Windows
    '---------------------------------------------------------------------------------------
    Public Function Listar(NomeLista As String, NomeForm As frm)
    Dim colProcessList
    Dim Lista As Object
    MsgBox Forms!("& NomeForm & ")![ " & NomeLista & "].Name
    Set colProcessList = GetObject("Winmgmts:").ExecQuery("Select * from Win32_Process")
    '-----------------------------------------------------------------------
    'Procura por todos os processos ativos adiquiridos pelo método GetObject
    '-----------------------------------------------------------------------
    For Each objProcess In colProcessList
        '------------------------------------
        'Adiciona na lista o nome do processo
        '------------------------------------
        Lista.AddItem (objProcess.Name)
    Next
    '--------------
    'Limpa o objeto
    '--------------
    Set colProcessList = Nothing
    End Function


    Cumprimentos.
    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]Passar nome de objeto para uma função e poder referenciar o mesmo na função Empty Re: [Resolvido]Passar nome de objeto para uma função e poder referenciar o mesmo na função

    Mensagem  Avelino Sampaio 14/9/2013, 11:16

    Use o tipo CONTROL. Neste meu artigo abaixo tem código mostrando como utilizar.

    http://www.usandoaccess.com.br/tutoriais/tuto53.asp?id=1#inicio

    Bom estudo!




    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso vitalício ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    avatar
    Convidado
    Convidado


    [Resolvido]Passar nome de objeto para uma função e poder referenciar o mesmo na função Empty Re: [Resolvido]Passar nome de objeto para uma função e poder referenciar o mesmo na função

    Mensagem  Convidado 14/9/2013, 14:01

    Claro amigão.. olha que bobeira a minha eu estava tentando como Object.... enquanto o correto era control.

    Obrigado!!

    Conteúdo patrocinado


    [Resolvido]Passar nome de objeto para uma função e poder referenciar o mesmo na função Empty Re: [Resolvido]Passar nome de objeto para uma função e poder referenciar o mesmo na função

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 21/11/2024, 21:00