Pfad und Dateiname in Titelleiste

Verwirrte Professoren und multitaskingfähige Entwickler haben das gleiche Problem: Sie wollen mal eben schnell wissen, wo die Datenbank, mit der sie gerade arbeiten, gespeichert ist. Wer zu faul ist oder aus anderen Gründen nicht die Zeile Debug.Print CurrentProject.Path im Direktfenster eingeben kann, weiß es vielleicht zu schätzen, wenn Pfad und Dateiname in der Titelleiste stehen.

Problem

Die Titelleiste lässt sich standardmäßig nur mit einer festen, in den Access-Optionen festzulegenden Zeichenfolge füllen. Schön wäre, wenn hier der komplette Pfad zur Datenbank sowie der Dateiname stünde.

Lösung

Die Lösung besteht in einer kleinen VBA-Routine, die beim Öffnen der Datenbank etwa über das AutoExec-Makro aufgerufen wird und welche die betroffene Eigenschaft der aktuellen Datenbank einstellt.

Legen Sie in einem Standardmodul die folgende Funktion an:

Public Function TitelEinstellen()

Dim strTitel As String

Dim db As DAO.Database

strTitel = CurrentProject.Path & "\" & CurrentProject.Name

Set db = CurrentDb

On Error Resume Next

db.Properties("AppTitle") = strTitel

If Err.Number = 3270 Then

db.Properties.Append db.CreateProperty("AppTitle", dbText, strTitel)

End If

End Function

Damit Access die Funktion beim Öffnen der Datenbank ausführt, legen Sie ein Makros namens AutoExec an und fügen diesem die Makroaktion AusführenCode mit dem Argument TitelEinstellen() hinzu.

Beim nächsten Start zeigt die Datenbank in der Titelleiste den Pfad und den Dateinamen der Datenbankdatei an.