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..
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
Hallo,
etwa so (ungetestet):
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
Hi,
el_gomero..
danke ich werde es gleich mal probieren!
Schöne Grüße
Silentwolf