[Resolvido]Listar Tabelas em Combobox

Boa noite

Como listar todas as tabelas de uma BD numa Combobox.

Obrigado

Veja o simples;

http://dl.dropbox.com/u/771097/MostraTabelas.rar

Boa noite JPaulo

Os nomes das tabelas já estáo na Combobox.


A minha ideia era aplicar o valor listado da combobox para colocar nesta sua função

Sub ColocaPrimeiraLetraMaiuscula()
'Muda todas as palavras da tabela para inicial maíuscula
'By JPaulo ® Maximo Access
Dim db As Database, rst As Recordset, camp As Field
Set db = CurrentDb

Set rst = db.OpenRecordset("Aplicar aqui o valor listado pela combobox")


If Not (rst.EOF) Then
Do Until rst.EOF
For Each camp In rst.Fields
If camp.Name <> "Field Name" _
And camp.Value <> "" _
And camp.Type = 10 _
And Not IsNumeric(camp) _
And camp.Attributes = 34 Then
Debug.Print StrConv(camp.Value, vbProperCase);
With rst
.Edit
camp.Value = StrConv(camp.Value, vbProperCase)
.Update
End With
End If
Next
rst.MoveNext
Loop
End If
End Sub


Obrigado

Você na abertura do topico diz:

"Como listar todas as tabelas de uma BD numa Combobox"

Como bom entendedor, meio paragrafo basta para entender.

Agora já diz que as tabelas já estão no Combobox,


A instrução é assim:

Set rst = db.OpenRecordset("select * from " & "[" & SuaCombobox & "]")

Bom dia JPaulo

Quando disse "Os nomes das tabelas já estáo na Combobox", foi depois de ter recebido a sua Função, que o consegui fazer.

Depois eu tentei fazer assim: Set rst = db.OpenRecordset("Colocava aqui o nome combobox")e não funfava.

Mas agora com a sua formula funfa perfeitamente.

Obrigado e um Bom 2011.

Obrigado pelo retorno o forum agradece.