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]ComboBox populada por Nomes de Controles

    avatar
    Convidad
    Convidado


    [Resolvido]ComboBox populada por Nomes de Controles Empty [Resolvido]ComboBox populada por Nomes de Controles

    Mensagem  Convidad 5/4/2012, 14:51


    Olá!

    Preciso popular a ComboBox cboListaControles do meu formulário com o Nome de cada um dos controles do subformulário sfProdutos.

    Melhor seria se retornasse a propriedade Legenda do rótulo associado a cada controle.




    Última edição por Norberto Rost em 11/4/2012, 12:36, editado 1 vez(es)
    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]ComboBox populada por Nomes de Controles Empty Re: [Resolvido]ComboBox populada por Nomes de Controles

    Mensagem  Avelino Sampaio 5/4/2012, 15:58

    Olá

    Experimente:

    Dim ctrl As control
    For Each ctrl In Forms!sfProdutos.Form.Controls
    Me.cboListaControles.AddItem ctrl.Name
    Next

    Sucesso!


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


    [Resolvido]ComboBox populada por Nomes de Controles Empty Re: [Resolvido]ComboBox populada por Nomes de Controles

    Mensagem  Convidad 5/4/2012, 16:23


    Deu um branco...

    Limitei para caixas de texto,
    então ficou assim:

    Dim ctrl As control
    For Each ctrl In Forms!sfProdutos.Form.Controls
    If ctrl.ControlType = acTextBox Then
    Me.cboListaControles.AddItem ctrl.Name
    End If
    Next

    Grande Avelino, põe na conta!

    Conteúdo patrocinado


    [Resolvido]ComboBox populada por Nomes de Controles Empty Re: [Resolvido]ComboBox populada por Nomes de Controles

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 8/11/2024, 01:54