[Access, Word, Excel, VBA] Schreiben in die Statusleiste

Gepostet am: Jan 22, 2014 2:51:2 PM

Bei Excel und Word kann man recht einfach in die Statusleiste schreiben:

> Application.StatusBar = "Doing"

zum Leeren:

> Application.StatusBar = False

Mit Access lässt sich nicht so einfach in die Statusleiste schreiben.

Ich verwende dazu immer folgende Prodzedur: [Quelle]

Textfeld

Sub Status(pstrStatus As String)     Dim lvarStatus As Variant     If pstrStatus = "" Then         lvarStatus = SysCmd(acSysCmdClearStatus)     Else         lvarStatus = SysCmd(acSysCmdSetStatus, pstrStatus)     End If    End Sub

Der Aufruf erfolgt folgendermaßen:

> Status("Processing Records")

Um die Statusleiste danach wieder zu leeren:

> Status("")