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

    rubenscouto
    rubenscouto
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  rubenscouto 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?
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  FabioPaes 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!
    rubenscouto
    rubenscouto
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  rubenscouto 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
    [Resolvido]Listar Nomes dos campos em Caixa de combinação AttachmentFiltro em Todos os Campo Tabela.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (59 Kb) Baixado 35 vez(es)
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  FabioPaes 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!
    rubenscouto
    rubenscouto
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  rubenscouto 24/3/2017, 02:33

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


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  FabioPaes 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!
    rubenscouto
    rubenscouto
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  rubenscouto 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.
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  FabioPaes 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!
    rubenscouto
    rubenscouto
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  rubenscouto 25/3/2017, 07:21

    Resolvido!!!!

    Conteúdo patrocinado


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

    Mensagem  Conteúdo patrocinado


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