Zur Hauptseite ... Zum Onlinearchiv ... Zum Abonnement ... Zum Newsletter ... Zu den Tools ... Zum Impressum ... Zum Login ...

Pfad und Dateiname in Titelleiste

Verwirrte Professoren und multitaskingfhige 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 Grnden nicht die Zeile Debug.Print CurrentProject.Path im Direktfenster eingeben kann, wei es vielleicht zu schtzen, wenn Pfad und Dateiname in der Titelleiste stehen.

Problem

Die Titelleiste lsst sich standardmig nur mit einer festen, in den Access-Optionen festzulegenden Zeichenfolge fllen. Schn wre, wenn hier der komplette Pfad zur Datenbank sowie der Dateiname stnde.

Lsung

Die Lsung 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 ausfhrt, legen Sie ein Makros namens AutoExec an und fgen diesem die Makroaktion AusfhrenCode mit dem Argument TitelEinstellen() hinzu.

Beim nchsten Start zeigt die Datenbank in der Titelleiste den Pfad und den Dateinamen der Datenbankdatei an.

© 2003-2015 André Minhorst Alle Rechte vorbehalten.