MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Combobox lista de valores via código

    Compartilhe

    Alberto Moura
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 40
    Registrado : 13/01/2015

    [Resolvido]Combobox lista de valores via código

    Mensagem  Alberto Moura em 9/12/2017, 01:33

    Amigos,
    Existe a possibilidade de preencher uma combobox por código?
    Tentei desta forma mais só exibi um texto.

    Private Sub Cbotipo_GotFocus()

       Me.Cbotipo.Value = "texto1"
       Me.Cbotipo.Value = "texto2"                                        
       Me.Cbotipo.Value = "texto3"
       Me.Cbotipo.Value = "texto4"
       Me.Cbotipo.Value = "texto5"
       
      End Select
    avatar
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7053
    Registrado : 05/11/2009

    Re: [Resolvido]Combobox lista de valores via código

    Mensagem  Alexandre Neves em 9/12/2017, 10:11

    Bom dia,
    Vá acompanhando o fórum. Já abordámos várias vezes
    utilize o método Cbotipo.AddItem


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    avatar
    Alexandre Fim
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 553
    Registrado : 13/12/2016

    Re: [Resolvido]Combobox lista de valores via código

    Mensagem  Alexandre Fim em 11/12/2017, 10:12

    Bom dia Alberto,

    Segue procedimento para preenchimento do combobox.

    Private Sub CarregaCombo()

    '==========================================================================
    'Este procedimento é necessários para limpar o combo toda vez
    'que remontá-lo. Do contrário, os dados serão duplicados

    cboDados.RowSource = Empty 'Define a fonte de registro do combobox como vazio
    cboDados.Requery 'Atualiza o combobox vazio

    '============================================================================

    'Adcionando itens ao combo

    With cboDados
    .AddItem "1º item da Lista"
    .AddItem "2º item da Lista"
    .AddItem "3º item da Lista"
    .AddItem "4º item da Lista"
    .AddItem "5º item da Lista"
    End With

    End Sub


    Att,

    Alexandre

    Alberto Moura
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 40
    Registrado : 13/01/2015

    Re: [Resolvido]Combobox lista de valores via código

    Mensagem  Alberto Moura em 12/12/2017, 01:23

    Obrigado amigos exatamente o que estava precisando,
    Coloquei o código no evento "após atualizar" em uma caixa de text anterior gerou certinho.
    Desde já grato pela ajuda aos demais..

      Data/hora atual: 13/12/2018, 18:26