Office: (Office 2016) Feldname in Abfrage per VBA ändern

Hallo,
ich möchte Feldnamen in Abfragen per VBA ändern, ähnlich folgender Zeile für das Gleiche in Tabellen.

CurrentDb.TableDefs("Tabelle1").Fields("AlterName").Name = "NeuerName"

Hat jemand eine Lösung dafür?
Mike

:)

 

Code:

 

Hallo Eberhard,
danke für die schnelle Antwort.
Ich möchte einen Feldnamen gezielt ändern. Wenn ich das mit Replace im SQL-String mache, werden u. U. auch andere Textteile geändert, was ja nicht sein soll. Deshalb mein Ziel es so änderbar zu machen wie es bei Tabellen geht.
Mike

 

Eine andere Definition hat eine Abfrage nicht. Eine SQL-Anweisung ist schlichter Text. Also kann man da Methoden der Textverarbeitung anwenden. Das könnte auch ein Replace sein, ggf. auch ein leistungsfähigeres Replace über RegEx, womit man gezielt auf Worte und nicht nur auf Textbestandteile an sich einwirken kann.

 

Die Idee mit RegEx werde ich aufgreifen, danke.
Mike

 

Mit einem einzigen SQL Befehl klappt es wohl nicht.
Aber mit diesen dreien nacheinander ...
Code:

Oder so: Code:

Feldnamen in Abfragen:
Code:

 

Es war hier nicht das Ändern der Tabellendefinition gefragt, sondern das Ändern der Abfragedefinition.

 

Ja, großer Meister, hab ich auch gerade gemerkt und nachgetragen.

 

Abgesehen von der Technik: Mir fällt kein vernünftiger Grund ein, einzelne Feldnamen in einer Abfrage per VBA, also programmatisch wiederholt, zu ändern - es sei denn, es muss ein nicht so optimales Datenmodell auf Dauer nachgebügelt werden.

 

Danke für eure Mühe.

@Eberhard: "Abgesehen von der Technik: Mir fällt kein vernünftiger Grund ein, einzelne Feldnamen in einer Abfrage per VBA, also programmatisch wiederholt, zu ändern - es sei denn, es muss ein nicht so optimales Datenmodell auf Dauer nachgebügelt werden."
Ein Grund ist Texte in Abfragen, wie auch in anderen Objekten von Access per vba ändern zu können.

@hans-Christian: Das Problem dabei ist, dass nicht nur das gewünschte Feld geändert wird, sondern alle anderen Textteile auch.

 

Danke für eure Mühe.

@hans-Christian: Mit Replace werden u. U. auch andere Textteile geändert, was ja nicht sein soll.
@Eberhard: Der 'vernünftige Grund' ist, eine Suchen/Ersetzen-Routine zu schreiben, mit der man Abfragen ändern kann.

Mike

 

Du willst also Find&Replace von Rick Fisher nachbauen?

Einzelne Feldnamen durch andere ersetzen? Wenn man normalisiert hat, enthält ein Feld ureigene Informationen und ist in einer Abfrage, und erst recht, wenn man über den SELECT-Teil oder den WHERE-Teil (dynamischer Filter) hinausdenkt, nicht einfach austauschbar. Ein anderes Feld würde also ein ganz anderes und vmtl. unerwartetes Ergebnis nach sich ziehen oder schlicht Fehler werfen.

Ein Ersetzen von Feldnamen kann ich mir nur vorstellen, wenn man während der Entwicklung sein Bezeichnungsregime umstellt. Das sind aber dann regelmäßig einmalige Aktionen, und einen Teil davon deckt bereits die standardmäßig aktivierte Objektnamen-Autokorrektur ab (=> Performancebremse).
Mit fortschreitender Entwicklererfahrung sollte so etwas aber nicht mehr so häufig vorkommen, wenn man seinen Stil gefunden hat.

Das oben genannte Tool erfasst dann auch SQL-Anweisungen, die in VBA-Code eingebettet sind.

Das Ersetzen in den genannten Varianten erfasst aber die ganze Datei und nicht nur eine einzelne Abfrage.

Vielleicht kannst Du aber auch ein richtiges Beispiel für eine Notwendigkeit nennen, das außerhalb meiner Betrachtungen liegt. Unsereiner will ja auch was lernen.

Zweites vielleicht: Über Aliase kommt man auch zu neuen Feldnamen.

 

"Du willst also Find&Replace von Rick Fisher nachbauen?" Ja
Der Gedanke dabei war einfach nur, dass es genauso gehen könnte wie bei Tabellen:
CurrentDb.TableDefs("Tabelle1").Fields("AlterName").Name = "NeuerName"
CurrentDb.QueryDefs("Abfrage1").Fields("AlterName").Name = "NeuerName"
Aber genau das geht so nicht.

Mike

 

Ich habe es erst einmal folgend gelöst (keine optimale Lösung, aber für vieles ausreichend:

Public Sub RenameQueryWord(strQueryName As String, strWort As String, strWortNeu As String)
Dim DB As DAO.Database
Dim qdf As DAO.QueryDef
Dim SQL As String

Set DB = CurrentDb
Set qdf = DB.QueryDefs(strQueryName)
SQL = qdf.SQL

SQL = Replace(SQL, ".", " ~ ")
SQL = Replace(SQL, vbCrLf, " ")
SQL = ReplaceWord(SQL, strWort, strWortNeu)
SQL = Replace(SQL, " ~ ", ".")

qdf.SQL = SQL
End Sub

 

Ein Beispiel für RegExReplace findest Du z.B. hier: "Intelligente" Textanalyse