Tabelle von Feldnamen

[kingjordan]

Hallo Leute,

Ich würde gerne wissen wie man in Access eine neue Tabelle aus Feldnamen von einer anderen Tabelle mit vba erstellen kann. z.B.

Tabelle1 :

montag | dienstag | mitwoch | donnerstag|

1 | 3 | 1 | 2 |

2 | 4 | 3 | 1 |

2 | 1 | 2 | 4 |

Tabelle2 ist dann :

montag

dienstag

mittwoch

donnerstag

danke an allen...

[kingjordan]

hallo,

ich hab die Lösung gefunden. hier ist es :

Public Function Feldnamen(ByVal OPTable) As String

Dim x

Dim meldung As String

Dim tek As Variant

Dim db As Database

Dim rs As Recordset

Set db = CurrentDb

Set rs = db.OpenRecordset("header")

For x = 0 To CurrentDb.TableDefs(OPTable).Fields.Count - 1

rs.AddNew

meldung = CurrentDb.TableDefs(OPTable).Fields(x).Name

rs![Feld1] = meldung

rs.Update

Next

End Function