Office: (Office 2003) Globale Funktion

Josef P. · 3. November 2010

Wenn du Werte benötigst, die anwendungsweit gelten sollen, würde ich auf Property-Prozeduren ausweichen.
Diese Prozeduren ermöglichen es dir, dass du nur lesenden Zugriff auf den Usernamen o. ä. erhältst und die Prozedur selbst bei Bedarf den Wert ermittelt. Woher diese Prozedur dann den Namen hat, ist bei deren Verwendung egal.

Beispiel (Luftcode)
Code:

private m_AngemeldeterUser as string
Public Function Login(byval username as string, passwort as string) as boolean
dim bolPasswortIstRichtig as boolean
bolPasswortIstRichtig = PruefePasswort(username, passwort)
if bolPasswortIstRichtig then
m_AngemeldeterUser = username
end if
Login = bolPasswortIstRichtig
end function

Public Property Get CurrentUserName() as String
CurrentUserName = m_AngemeldeterUser
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

=> Der Username wird in der Variablen m_AngemeldeterUser gespeichert. Auf diese Variable kann man von "außen" (außerhalb des einen Codemoduls) nicht zugreifen. Man erhält den Wert nur über die Eigenschaft CurrentUserName, welcher aber nur einen lesenden Zugriff erlaubt.
Ändern kann man den Namen nur durch Neuanmeldung über die Login-Prozedur.

mfg
Josef

Christoph Eick · 4. November 2010

Hallo Josef,
ich werde das mal versuchen und mich mit Deinem Vorschlag näher beschäftigen.
Zur Zeit überarbeite ich meine Anwendung und für den Anwendungsteil der diesem Thread zu Grunde liegt soll noch mit rein, das die Änderungen protokoliert werden. Hier würde dann Dein Vorschlag rein passen.
Hier bin ich gerade am basteln.

Wenn ich da dann bin melde ich mich bestimmt wieder.

Erst mal vielen Dank für die Anregungen und Hilfen.

Gruß
Christoph

Office: (Office 2003) Globale Funktion

Globale Funktion

Globale Funktion

Globale Funktion - Similar Threads - Globale Funktion

Kontextmenü global deaktivieren

Prozeduren über eine globale Vorlage ausführen

Globale Formel für Formatierung

"Globale" Zahlenformatierung

Globale Regeln in Outlook

Globale Absatzanpassungen

Globales Ereignis im Formular