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]Listar Nomes dos campos em Caixa de combinação

    Compartilhe
    avatar
    rubenscouto
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 620
    Registrado : 02/10/2011

    [Resolvido]Listar Nomes dos campos em Caixa de combinação

    Mensagem  rubenscouto em 15/3/2017, 09:26

    Prezados Senhores:
    como devo fazer para listar os nomes dos campos de uma tabela em uma caixa de combinação?
    Ex: TabelaA
    Campo1
    Campo2
    Campo3

    Gostaria de preencher uma Caixa de combinação com os nomes desta tabela. Isto é uma consulta ou um codigo VBA?
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3904
    Registrado : 14/08/2013

    Re: [Resolvido]Listar Nomes dos campos em Caixa de combinação

    Mensagem  FabioPaes em 15/3/2017, 13:39

    AlexandreNeves escreveu:
    Sub MostraCampos(strTabela As String)
    'criado por Alexandre Neves Em 2011-05-15 para Domingos do fórum MaximoAccess

    Dim I As Integer
    Dim F As String

    F = ""

    For I = 1 To CurrentDb.TableDefs(strTabela).Fields.Count
    F = F & "," & CurrentDb.TableDefs(strTabela).Fields(I - 1).Name
    Next
    MsgBox Right(F, Len(F) - 1) 'Remove a ,Anes do Primeiro Campo

    End Sub


    '---------------------------------------------------

    Para Testar, em um botão coloque:
    MostraCampos ("NomeTabela")


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    avatar
    rubenscouto
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 620
    Registrado : 02/10/2011

    Re: [Resolvido]Listar Nomes dos campos em Caixa de combinação

    Mensagem  rubenscouto em 23/3/2017, 20:43

    Obrigado pela atenção, Fabio Paes, mas o que pretendo é melhorar a busca da caixa de combinação "cboCampo" do frmInicial do arquivo em anexo. Ele lista manualmente os campos da tabela, porém gostaria de implementar isto com o uso de uma função que buscasse a sequencia dos campos de uma determinada tabela. Deu pra entender?
    Anexos
    Filtro em Todos os Campo Tabela.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (59 Kb) Baixado 16 vez(es)
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3904
    Registrado : 14/08/2013

    Re: [Resolvido]Listar Nomes dos campos em Caixa de combinação

    Mensagem  FabioPaes em 24/3/2017, 01:47

    Mas vc chegou a testar o codigo que postei? Pois ele faz isso... Para add em uma Cx de Combinacao acredito que basta usar a propriedade .addItens.


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    avatar
    rubenscouto
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 620
    Registrado : 02/10/2011

    Re: [Resolvido]Listar Nomes dos campos em Caixa de combinação

    Mensagem  rubenscouto em 24/3/2017, 02:33

    testei. emitiu a mensagem com os nomes dos campos mas não preencheu a combobox com os nomes.
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3904
    Registrado : 14/08/2013

    Re: [Resolvido]Listar Nomes dos campos em Caixa de combinação

    Mensagem  FabioPaes em 24/3/2017, 12:10

    Sim Rubens! Mas esse era o Esperado! Posteio codigo que era pra vc adaptar o preenchimento!


    Para realizar o Preenchimento de uma Combobox, no evento ao receber foco coloque:

    Código:
    Dim I As Integer
    Dim F As String

    F = ""

    For I = 1 To CurrentDb.TableDefs("tbveiculos").Fields.Count
    F = F & ";" & CurrentDb.TableDefs("tbveiculos").Fields(I - 1).Name
    Next
    F = Right(F, Len(F) - 1)
    Me.cbo1.RowSource = F

    Obs:
    Nome da Combobox é cbo1;
    A combobox deve ter o tipo de Origem da Linha = Lista de Valores;
    O nome da tabela é tbVeiculos.



    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    avatar
    rubenscouto
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 620
    Registrado : 02/10/2011

    Re: [Resolvido]Listar Nomes dos campos em Caixa de combinação

    Mensagem  rubenscouto em 24/3/2017, 15:51

    Prezado Fabio paz,
    como resultado do seu conhecimento, segue exemplo para partilhar com o forum. Mais Uma deste grande forum Maximo Access.
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3904
    Registrado : 14/08/2013

    Re: [Resolvido]Listar Nomes dos campos em Caixa de combinação

    Mensagem  FabioPaes em 24/3/2017, 17:48

    Chegamos ao resultado esperado então meu amigo?
    Se sim, marque como Resolvido!!

    Nesse exemplo que fiz, eu optei por digitar manualmente para uma melhor apresentação ao Usuário final, pois alguns campos tem nomes que não serão interessantes mostrar o Usuário. Como por exemplo: "NOcorrencia" fica melhor mostrar "Nº Ocorrência"


    Até a próxima se Deus quiser!


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    avatar
    rubenscouto
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 620
    Registrado : 02/10/2011

    Re: [Resolvido]Listar Nomes dos campos em Caixa de combinação

    Mensagem  rubenscouto em 25/3/2017, 07:21

    Resolvido!!!!

      Data/hora atual: 15/11/2018, 04:45