[Resolvido]Como Listar todas as Tabelas em uma Combobox

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?

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

Bom dia Alexandre
Não funciona!

Bom dia

Com a dica do Alexandre Neves

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.

O que pretende fazer ?

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

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

Damasceno,

Obrigado. Funciona, menos um obstáculo

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.

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

A Todos o meu muito obrigado pela ajuda e disponibilidade.

Abraços

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.

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.

Boa noite

Eu consigo por a abrir sempre com a mesma tabela.

Mas pelo vistos não serve.

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

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

Boa noite Damasceno,

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

Arquivo da mensagem 7 com as sugestões da mensagem 16

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

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

Obrigado pessoal. Esteve difícil.

O fórum agradece o retorno. Sucesso.