2014-09-04 55 views
0

嗨,大家好,我有一個表調用註冊這就好比是MS訪問SQL如何選擇所有列標題,並列出它們作爲列

Registrants 
Name id school class entrydate 
yoyo  1 np   3  31/9/2013 

但是我希望它表明這樣反而

Registrants 
Columns 
Name 
id 
school 
class 
entrydate 

請幫助我,因爲我想將它們填充到組合框中。非常感謝您

+0

所以,你想要的組合框列出所有的信息,在一行上每個註冊登記人?您是否希望所有內容僅在下拉列表中顯示,或者是否希望在註冊者被選中後顯示在組合框中? – 2014-09-04 07:22:34

+0

只是列出哈哈不是一個真正的組合框更像下拉列表... – 2014-09-08 03:45:47

回答

1

你需要一個VBA函數

Public Function ColumnNames(tableName As String) As Variant 
    Dim retVal() As String 
    Dim table As Variant 
    For Each table In CurrentDb.TableDefs 
     If table.Name = tableName Then 
      Dim i As Integer 
      ReDim retVal(table.Fields.Count - 1) 
      For i = 0 To table.Fields.Count - 1 
       retVal(i) = table.Fields(i).Name 
      Next 
     End If 
    Next 
    ColumnNames = retVal 
End Function 
相關問題