Office: Tabellenerstellung über Programmierung

Suche nach einer Möglichkeit der Feldbeschriftung durch VBA-Code.

z.B: Dim db As Database, td As TableDef, f As Field
Set db = CurrentDb


Set td = db.CreateTableDef("NWN")
Set f = td.CreateField("f1", dbText, 20)

Hier möchte ich dem Tabellenfeld die Beschriftung

f1_Filiale geben. Der Feldname soll aber weiter f1 lauten!



td.Fields.Append f
Set f = td.CreateField("f2", dbText, 20)
td.Fields.Append f

Hat jemand schon so etwas programmiert ? In der einschlägigen Literatur ist dazu nichts zu finden!

Mit besten Grüssen Felixes

 

Beschriftungen gibst Du nur in Formularen, Berichten usw. an. Da ist es völlig egal, wie das Tabellenfeld heißt. Z.B. kannst du ein Feld mit einem Label "Postleitzahl des Wohnorts" beschriften, wenn daneben ein Textfeld mit dem Datenfeld "Plz" steht.

In einer Tabelle (also der Definition der Feldnamen) gibt es keine "Beschriftung", höchstens einen "Kommentar". Damit könnte es zusammenhängen, daß Du in einschlägiger Literatur nichts darüber gefunden hast. ;-)

Was Du aber machen kannst (und auch grundsätzlich solltest): Arbeite nicht mit der Tabelle direkt, sondern mit einer Abfrage basierend auf der Tabelle.

In einer Abfrage kannst Du Feldnamen "umbenennen". In SQL sieht das dann so aus:

Code:

SELECT feld AS neuername FROM tabelle;

Gruß, Michael