Problemstellung:

Für 32Bit und 64Bit Office Versionen

Wie kann ich mit der Statuszeile in Formularen arbeiten?

Lösung:
Das SysCmd-Objekt hat 2 Methoden dafür.
SYSCMD_SETSTATUS        zum Setzen eines Wertes und
SYSCMD_CLEARSTATUS  zum Löschen eines Wertes

1. Funktion zum Setzen eines Wertes in der Statuszeile:

Function SetStatusBar(sText As String)
    Dim vStatus
    vStatus = SysCmd(SYSCMD_SETSTATUS, sText)
End Function 

Der Variablen sText wird der Wert der in der Statuszeile erscheinen soll übergeben.
Aufruf z.B.:

SetStatusBar "Das ist ein Statustext!"

Ergebnis:

2. Funktion zum Löschen eines Wertes in der Statuszeile:

Function ClearStatusBar()
    Dim vStatus
    vStatus = SysCmd(SYSCMD_CLEARSTATUS)
End Function

Aufruf z.B.:

ClearStatusBar

Ergebnis:

• Große und farbige Checkboxen
• Auslesen von eingebauten und benutzerdefinierten CommandBars aus externen DB's
• Beliebigen Cursor in Formularen anzeigen
• Hand-Cursor in Formularen anzeigen
• Einlesen von Dateien in eine MS-Access Datenbank