MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    Como Listar todas as Tabelas em uma Combobox

    avatar
    jacajose
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 15
    Registrado : 30/07/2013

    Como Listar todas as Tabelas em uma Combobox Empty Como Listar todas as Tabelas em uma Combobox

    Mensagem  jacajose em 19/1/2020, 10:18

    Olá pessoal,

    Gostava de uma ajuda no seguinte:
    tenho uma comobox num formulário e queria que a comobox listasse todas as tabelas do banco de dados, é possível?
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    Como Listar todas as Tabelas em uma Combobox Empty Re: Como Listar todas as Tabelas em uma Combobox

    Mensagem  Alexandre Neves em 19/1/2020, 10:29

    Bom dia
    Na origem da Caixa de Combinação
    select name from msysobjects where type=6


    .................................................................................
    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
    jacajose
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 15
    Registrado : 30/07/2013

    Como Listar todas as Tabelas em uma Combobox Empty Re: Como Listar todas as Tabelas em uma Combobox

    Mensagem  jacajose em 19/1/2020, 10:34

    Bom dia Alexandre
    Não funciona!
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4198
    Registrado : 06/11/2009

    Como Listar todas as Tabelas em uma Combobox Empty Re: Como Listar todas as Tabelas em uma Combobox

    Mensagem  Assis em 19/1/2020, 10:56

    Bom dia

    Com a dica do Alexandre Neves


    Como Listar todas as Tabelas em uma Combobox Forum10


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    jacajose
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 15
    Registrado : 30/07/2013

    Como Listar todas as Tabelas em uma Combobox Empty Re: Como Listar todas as Tabelas em uma Combobox

    Mensagem  jacajose em 19/1/2020, 11:01

    Bom dia Assis
    Obrigado pela ajuda, já lista as tabelas, acontece que depois de fechar o formulário, e abrindo novamente a tabela selecionada não está mais. O campo fica em branco, sendo necessário escolher novamente.
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4198
    Registrado : 06/11/2009

    Como Listar todas as Tabelas em uma Combobox Empty Re: Como Listar todas as Tabelas em uma Combobox

    Mensagem  Assis em 19/1/2020, 13:12

    O que pretende fazer ?



    .................................................................................
    *** Só sei que nada sei ***
    avatar
    jacajose
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 15
    Registrado : 30/07/2013

    Como Listar todas as Tabelas em uma Combobox Empty Re: Como Listar todas as Tabelas em uma Combobox

    Mensagem  jacajose em 19/1/2020, 14:00

    Assis,
    Necessito para:
    1º para selecionar e manter mesmo que fechado o form.
    2º escolher consulta a exportar para excel, clicando no botão
    Anexo o form
    Anexos
    Como Listar todas as Tabelas em uma Combobox AttachmentTeste.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (55 Kb) Baixado 16 vez(es)
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2097
    Registrado : 22/11/2016

    Como Listar todas as Tabelas em uma Combobox Empty Re: Como Listar todas as Tabelas em uma Combobox

    Mensagem  DamascenoJr. em 19/1/2020, 19:10

    No evento ao fechar do formulário, coloque o código
    Código:
    If Nz(Me!Comb1.Value) <> "" Then Call TempVars.Add("tbSel", Me!Comb1.Value)

    No evento ao carregar do formulário, coloque o código
    Código:
    Me!Comb1.Value = nz(TempVars!tbSel.value,"")

    Isso garante que fechando o formulário, ao abrir novamente, a tabela inicialmente selecionada está novamente marcada


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    avatar
    jacajose
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 15
    Registrado : 30/07/2013

    Como Listar todas as Tabelas em uma Combobox Empty Re: Como Listar todas as Tabelas em uma Combobox

    Mensagem  jacajose em 19/1/2020, 19:37

    Damasceno,

    Obrigado. Funciona, menos um obstáculo
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2097
    Registrado : 22/11/2016

    Como Listar todas as Tabelas em uma Combobox Empty Re: Como Listar todas as Tabelas em uma Combobox

    Mensagem  DamascenoJr. em 19/1/2020, 19:44

    Faltou dar o tópico como resolvido.

    Se houver outra dúvida/obstáculo, será necessário abrir outro tópico pois as dúvidas/obstáculos relacionadas ao título deste tópico já foram solucionadas.

    Com isso mantemos a organização do fórum facilitando futuras buscas para outros usuários. Very Happy

    Veja como dar o tópico como resolvido no link abaixo
    https://www.maximoaccess.com/t860-resolucao-de-topicos


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    avatar
    jacajose
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 15
    Registrado : 30/07/2013

    Como Listar todas as Tabelas em uma Combobox Empty Re: Como Listar todas as Tabelas em uma Combobox

    Mensagem  jacajose em 19/1/2020, 19:50

    A Todos o meu muito obrigado pela ajuda e disponibilidade.

    Abraços
    avatar
    jacajose
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 15
    Registrado : 30/07/2013

    Como Listar todas as Tabelas em uma Combobox Empty Re: Como Listar todas as Tabelas em uma Combobox

    Mensagem  jacajose em 20/1/2020, 18:08

    Damasceno,

    Verifiquei hoje que ao abrir a formulário os campos estão em branco, novamente, só guarda se fechar o formulário e voltar abrir. Caso feche a base dados e volte a abrir os dados não estão.
    avatar
    jacajose
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 15
    Registrado : 30/07/2013

    Como Listar todas as Tabelas em uma Combobox Empty Re: Como Listar todas as Tabelas em uma Combobox

    Mensagem  jacajose em 20/1/2020, 20:04

    Assis,
    Boa noite.

    A combobox deve pegar uma tabela seleccionada, que, depois de fechar o formulário, deve-a manter mesmo que feche a base de dados. Ou seja, assim que abra novamente a base de dados essa tabela esteja seleccionada na comobox.
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4198
    Registrado : 06/11/2009

    Como Listar todas as Tabelas em uma Combobox Empty Re: Como Listar todas as Tabelas em uma Combobox

    Mensagem  Assis em 20/1/2020, 20:10

    Boa noite

    Eu consigo por a abrir sempre com a mesma tabela.

    Mas pelo vistos não serve.
    Anexos
    Como Listar todas as Tabelas em uma Combobox AttachmentTeste_Assis.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (84 Kb) Baixado 4 vez(es)


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    jacajose
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 15
    Registrado : 30/07/2013

    Como Listar todas as Tabelas em uma Combobox Empty Re: Como Listar todas as Tabelas em uma Combobox

    Mensagem  jacajose em 20/1/2020, 20:36

    Assis,
    Assim como valor padrão não. Não serve.
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2097
    Registrado : 22/11/2016

    Como Listar todas as Tabelas em uma Combobox Empty Re: Como Listar todas as Tabelas em uma Combobox

    Mensagem  DamascenoJr. em 20/1/2020, 23:00

    Remova as codificações passadas anteriormente e use as passadas abaixo

    No evento "ao carregar" do formulário
    Código:
    Private Sub Form_Load()
    On Error Resume Next

        Me!Comb1.Value = CurrentDb.Properties!ValorEterno.Value
       
    End Sub

    No evento "ao fechar" do formulário
    Código:
    Private Sub Form_Close()
    On Error Resume Next

        If Nz(Me!Comb1.Value) = "" Then CurrentDb.Properties.Delete ("ValorEterno")

    End Sub

    No evento "após atualizar" da caixa de combinação que lista as tabelas
    Código:
    Private Sub Comb1_AfterUpdate()
    On Error GoTo trataErro

        If Nz(Me!Comb1.Value) <> "" Then CurrentDb.Properties!ValorEterno.Value = Nz(Me!Comb1.Value)
       
    sair:
        Exit Sub
       
    trataErro:
        Dim nvPrp As Property
        Set nvPrp = CurrentDb.CreateProperty("ValorEterno", dbText, Me!Comb1.Value)
        Call CurrentDb.Properties.Append(nvPrp)
        Resume sair

    End Sub


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    avatar
    jacajose
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 15
    Registrado : 30/07/2013

    Como Listar todas as Tabelas em uma Combobox Empty Re: Como Listar todas as Tabelas em uma Combobox

    Mensagem  jacajose em 21/1/2020, 22:17

    Boa noite Damasceno,

    Dá erro "tipos incompativeis" nas seguintes linhas;
    Set nvPrp = CurrentDb.CreateProperty("ValorEterno", dbText, Me.Comb1.Value)
    Call CurrentDb.Properties.Append(nvPrp)
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2097
    Registrado : 22/11/2016

    Como Listar todas as Tabelas em uma Combobox Empty Re: Como Listar todas as Tabelas em uma Combobox

    Mensagem  DamascenoJr. em 21/1/2020, 23:02

    Arquivo da mensagem 7 com as sugestões da mensagem 16
    Anexos
    Como Listar todas as Tabelas em uma Combobox AttachmentTeste_rev.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (55 Kb) Baixado 7 vez(es)


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4198
    Registrado : 06/11/2009

    Como Listar todas as Tabelas em uma Combobox Empty Re: Como Listar todas as Tabelas em uma Combobox

    Mensagem  Assis em 22/1/2020, 08:44

    Bom dia Damasceno

    Quando abro o formulário a Comb1 não lista as tabelas ?

    Fiz o download da última Msg

    Meu Office 2013 32

    Obrigado

    Como Listar todas as Tabelas em uma Combobox Forum11


    .................................................................................
    *** Só sei que nada sei ***
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2097
    Registrado : 22/11/2016

    Como Listar todas as Tabelas em uma Combobox Empty Re: Como Listar todas as Tabelas em uma Combobox

    Mensagem  DamascenoJr. em 22/1/2020, 20:33

    O mesmo aconteceu comigo quando usei a dica do Alexandre
    Código:
    SELECT name FROM msysobjects WHERE type=6;

    Precisei alterar para o filtro abaixo para que as tabelas fossem listadas, ficando
    Código:
    SELECT name FROM msysobjects WHERE type=1;


    Não sei o que pode ter sido. Mas para evitar essas variações, aconselho que algumas propriedades da caixa de combinação sejam alteradas
    Tipo de origem da linha --> Lista de valores
    Origem da linha --> (Deixar em branco)

    Depois usar o código abaixo no evento "ao carregar" do formulário

    Código:
    Private Sub Form_Load()
    On Error Resume Next

        Dim tbl As TableDef
       
        Me!Comb1.RowSource = ""
        For Each tbl In CurrentDb.TableDefs
            If Eval("""" & Left(tbl.Name, 4) & """ not in(""usys"", ""msys"")") Then
                Me!Comb1.AddItem tbl.Name
            End If
        Next tbl
       
        Me!Comb1.Value = CurrentDb.Properties!ValorEterno.Value
       
    End Sub


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.

      Data/hora atual: 5/7/2020, 14:22