Feldname in Tabelle ändern per VBA

[silentwolf]

Hallo,

ich würde gerne einen VBA code erstellen der mir alle Feldnamen einer Tabelle aktualisiert.
Folgenden Ansatz habe ich schon aber leider weis ich nicht weiter..

Code [Auswählen] Erweitern


Sub Feldnamen()
Dim rs As DAO.Recordset, i As Integer
Dim intPos As Integer

    Set rs = CurrentDb.OpenRecordset("tblObjekteTest")
    intPos = InStr(rs.Fields(i).Name, "_")
    For i = 0 To rs.Fields.Count - 1
   
        Debug.Print Left(rs.Fields(i).Name, intPos - 1)
    Next
End Sub

Im obigen Code finde ich den ersten Unterstrich des Feldnamens .. na ja das wisst ihr ja alle ..
Nur wie kann ich nun im Code alle diese Feldnamen sagen wir mal "Obje" zu "Ob" ändern..
Da ich sehr viele verschiedene Datenbanken habe würde ich diese gern einheitlich gestallten um eine leichter Weiterverwendung der Daten zu erreichen.

Wäre sehr dankbar um eine Hilfe.

Lg
Silentwolf

[el_gomero]

Hallo,

etwa so (ungetestet):

Code [Auswählen] Erweitern


Dim tdf as DAO.Tabledef, fld as DAO.Field

set tdf = currentdb.TableDefs("DeineTablle")
   For each fld in tdf.Fields
       If fld.name like "Obje*" Then fld.name = left(fld.name,2) & mid(fld.name,5, len(fld.name)
   next fld
set tdf = nothing



[silentwolf]

Hi,

el_gomero..

danke ich werde es gleich mal probieren!

Schöne Grüße

Silentwolf