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]Adicionar item a uma combobox

    avatar
    Helio13
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 36
    Registrado : 11/07/2012

    [Resolvido]Adicionar item a uma combobox Empty [Resolvido]Adicionar item a uma combobox

    Mensagem  Helio13 1/10/2012, 22:22

    Boa noite!

    Estou com um problema e gostava de saber se alguém me pode ajudar...!?

    É o seguinte: tenho uma combobox que está a ir buscar valores referentes ao "Tipo de Achado", e gostava de colocar na combobox um titulo como se fosse uma legenda, que se pudesse ler dentro da combobox antes de clicar nela para ir buscar os valores...
    Do género, aparecer dentro da combobox antes de se clicar "Tipo de Achado"...

    Sei que é adicionar um item com o índex 0...mas não estou a conseguir...alguém me pode ajudar como se faz isso em vba??

    Aguardo resposta, obrigado
    Cumprimentos
    Hélio Miranda
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Adicionar item a uma combobox Empty Re: [Resolvido]Adicionar item a uma combobox

    Mensagem  criquio 1/10/2012, 22:27

    Você pode colocar o texto como título da combobox. Se ela é preenchida via código, pode colocar assim:

    Me.NomeDaCombo.ColumnHeads = True

    Assim, a primeira linha passa a ser o título da combo.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    avatar
    Helio13
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 36
    Registrado : 11/07/2012

    [Resolvido]Adicionar item a uma combobox Empty Re: [Resolvido]Adicionar item a uma combobox

    Mensagem  Helio13 1/10/2012, 22:48

    Sim, percebi...mas queria ser eu a definir qual o nome...
    Por exemplo, quero por na combobox para se ler, tipo legenda dentro da combobox, escrito "Tipo de Achado"
    Como posso fazer isso?
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Adicionar item a uma combobox Empty Re: [Resolvido]Adicionar item a uma combobox

    Mensagem  criquio 1/10/2012, 22:56

    Tente carregar ela via vba. Na origem dela deve ter uma instrução SQL. Tente recortar essa instrução para passar via VBA:

    Código:
    Dim rs As Recordset
    Set rs = CurrentDb.OpenRecordset("SELECT NomeCampo1, NomeCampo2SeMaisDeUm FROM NomeDaTabela WHERE CondiçãoSeHouver")

    Me.NomeDaCombo.RowSourceType = "Value List"
    Me.NomeDaCombo.RowSource = ""

    Me.NomeDaCombo.AddItem "Cabeçalho"

    Do While Not rs.EOF
    Me.NomeDaCombo.AddItem rs!NomeCampo & ";" & rs!NomeCampo2SeHouver
    rs.MoveNext
    Loop

    Me.NomeDaCombo.ColumnHeads = True

    rs.Close
    Set rs = Nothing


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    avatar
    Helio13
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 36
    Registrado : 11/07/2012

    [Resolvido]Adicionar item a uma combobox Empty Re: [Resolvido]Adicionar item a uma combobox

    Mensagem  Helio13 1/10/2012, 23:05

    E meto esse código num evento da combobox certo? Em qual evento?
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Adicionar item a uma combobox Empty Re: [Resolvido]Adicionar item a uma combobox

    Mensagem  criquio 1/10/2012, 23:46

    O evento é o que melhor lhe atender. Se o formulário precisar ser aberto já com ela carregada, será no "Ao carregar" do formulário. Se for outro, você que deve saber qual seria.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.


    Conteúdo patrocinado


    [Resolvido]Adicionar item a uma combobox Empty Re: [Resolvido]Adicionar item a uma combobox

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 8/9/2024, 02:48