combo com o nome das tabelas

[Pedro Gaz]

Pessoal, tem alguma maneira de criar uma combo "caixa de combinação" que seja preenchida com o nome das tabelas que eu tenho criada?

Editado Abril 14, 2010 por quintelab
Removida descrição por ser idêntica ao título

[Leandro Abbade]

Boa noite Pedro,

Não sei se ajuda, mas vai uma dica...

Clique uma tabela que contenha o nome de todas as tabelas do seu banco.

Exemplo:

Registro 1 - tabela a

Registro 2 - tabela b e assim sucessivamente.

Agora crie uma consulta desta tabela onde mostrará todos os registros.

Agora crie a combo baseada nesta consulta.

Veja se resolve.

[Pedro Gaz]

essa seria minha ultima alternativa... deve ter um outro jeito de fazer isso..

[Alexandre Neves]

Coloque:

Private Sub Caixa_de_combinação_Enter()

'criada por Alexandre Neves

'em 2010-04-24

'para Pedro Gaz

'do fórum ScriptBrasil

Dim I As Integer

For I = 0 To CurrentDb.TableDefs.Count - 1

Caixa_de_combinação.AddItem CurrentDb.TableDefs(I).Name

Next

End Sub