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

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")

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