Feldnamen per DAO ändern

13/06/2008 - 12:07 von Raimo Becker | Report spam
Hallo liebe NG,

Ich habe eine ganze Menge Tabellen mit folgenden Feldnamen

tbl_Medikation1
"ID"
"Medikation1 - 0"
"Medikation1 - 12"
"Medikation1 - 24"
"Medikation1 - 48"

[...]

tbl_Medikation10
"ID"
"Medikation10 - 0"
"Medikation10 - 12"
"Medikation10 - 24"
"Medikation10 - 48"

so ungefàhr sehen die meisten aus.

ich möchte nun die Feldnamen per DAO von dem " - " auf "_"
àndern, weil ich mit den Leerzeichen Probleme befürchte;
insbesondere falls ein Umstieg auf einen SQL Server gewünscht wird.

Ich komme aber mit meinem(naja; nicht meiner) Code nicht weiter

Dim db As DAO.Database
Dim tdf As DAO.TableDef
Dim fld As DAO.Field

Dim ersetzen As String

Dim strTname As String

Set db = CurrentDb
Set tdf = db.TableDefs(strTname)

With tdf
For Each fld In .Fields
If InStr(1, fld.Name, ersetzen, vbTextCompare) > 0 Then
db.TableDefs(strTname).Fields(fld.Name).Name = Replace(fld, " -
", "_")
End If
Next fld
End With


Beim umbenennen kommt der Fehler "unzulàssige Operation", leider kenne ich
mich mit den TableDefs nicht gut aus.

strTname übergebe ich einen natürlich einen gültigen TabNamen.

Wo liegt mein Fehler?

und zweitens: Kann ich in einer Schleife alle Tabellennamen als "strTname"
eintragen und abhandeln?


Vielen Dank im voraus
Raimo Becker
 

Lesen sie die antworten

#1 Mark Doerbandt
13/06/2008 - 12:12 | Warnen spam
Hallo, Raimo,

Raimo Becker:

Ich habe eine ganze Menge Tabellen mit folgenden Feldnamen

tbl_Medikation1
"ID"
"Medikation1 - 0"
"Medikation1 - 12"
"Medikation1 - 24"
"Medikation1 - 48"

[...]

tbl_Medikation10
"ID"
"Medikation10 - 0"
"Medikation10 - 12"
"Medikation10 - 24"
"Medikation10 - 48"

so ungefàhr sehen die meisten aus.

ich möchte nun die Feldnamen per DAO von dem " - " auf "_"
àndern, weil ich mit den Leerzeichen Probleme befürchte;
insbesondere falls ein Umstieg auf einen SQL Server gewünscht wird.



das ist lobenswert - allerdings waere es noch viel besser, wenn die
Tabellen normalisiert werden wuerden. Lies doch mal FAQ Punkt 1.31
(http://www.donkarl.com).

Gruss - Mark

Informationen fuer Neulinge in den Access-Newsgroups unter
http://www.doerbandt.de/Access/Newbie.htm

Bitte keine eMails auf Newsgroup-Beitràge senden.

Ähnliche fragen