Office: (Office 2016) Probleme Umstellung WIN10 "Username"

Hallo,

die Umstellung erfolgte auf einen komplett neuen PC mit WIN10. Danach wurde Microsoft Office Professional 2019 installiert. Es waren mehrere PC. An einem funktioniert nun der Benutzername "Environ ("Username") nicht mehr. Wir verwenden dazu die "GetUserNameA" Funktion. Alle Verweise stimmen.
Kann es sein, dass hier die "AdvAPI32.dll" defekt ist? Wie kann diese repariert werden?
Wer hat hier Erfahrungen?

Danke

:)

 

Also was wird jetzt genutzte.
Environ ("Username") oder GetUserNameA?

Gehen beide Funktionen nicht?
Gibts bei einer von beiden eine Fehlermeldung?

Wenn die dll ein Problem hätte, müsste es eine Fehlermeldung geben.
Hast du bei der Access Datei schon mal ein decompile versucht?

 

Hallo,

Environ ("Username") Basis ist die Funktion "GetUserNameA" (siehe Modul).

Es gibt die Fehlermeldung, wenn der Username in die Tabelle geschrieben dass es die Funktion nicht gibt. "decompile" ja keine Fehlermeldungen.
Makro sind auch alle aktiv.

Modul
Private Declare Function GetUserName Lib "advapi32.dll" Alias _
"GetUserNameA" (ByVal lpBuffer As String, nSize As Long) _
As Long

Function Username() As String
Dim strName As String
Dim nSize As Long
Dim lngResult As Long

nSize = 100
strName = Space$(100)

lngResult = GetUserName(strName, nSize)
If lngResult 0 Then
Username = Left$(strName, nSize - 1)
End If
End Function


Das alles weitere Info.

 

Das Thema wurde vor längerem schon mal eingestellt.
Vielleicht findest Du da etwas Brauchbares...

https://www.ms-office-forum.net/foru...Win10+Username

 

Hallo Jan,

Danke für den Hinweis. Denke hier nicht die Lösung - 32 Bit-Umgebung.
Hier ein Hinweis aus dem Netz:
LongPtr ist kein richtiger Datentyp, weil er in einer 32-Bit-Umgebung in den Datentyp Long bzw. in einer 64-Bit-Umgebung in den Datentyp LongLong umgewandelt wird. Mithilfe von LongPtr können Sie portablen Code schreiben, der sowohl in 32-Bit- als auch in 64-Bit-Umgebungen ausgeführt werden kann. Verwenden Sie LongPtr für Zeiger und Handles.

Bei mir tritt der Fehler nicht auf, dass die "Dll" nicht geladen werden kann.

Gruß Kramer

 

Wie lautet der exakte Fehlertext?

 

Hallo!

Bist du dir sicher?

Zum Ausprobieren:
Code:

Falls du in der Messagebox "xyz" erwartest, wirst du enttäuscht werden.
Vielleicht verwechselst du die Environ-Funktion mit der Eval-Funktion.

Zitat docs.microsoft.com:

mfg
Josef

 

Hallo zusammen,

wir schreiben den User in eine Tabelle als Textfeld. Vorgabe ist, dass dieses
Feld nicht leer sein darf. Es kommt also nur die Meldung: "Darf keine Zeichenfolge der Länge null sein".

Befehl: [KAPCId] = Environ("Username")

Da der Befehl nicht funktioniert, gibt es diesen Fehler.

Grüsse

 

Danke für die Info.

Diese Funktion funktioniert schon viele Jahre bei sehr vielen Anwendung.
Nur jetzt bei der Umstellung auf WIN10 klappt es bei 2 PC und bei weiteren 2 PC tritt dieser Fehler auf.

 

Hallo!

Nochmal in anderen Worten:
Wenn du Environ("Username") verwendest, ist es vollkommen egal, woher sich eine Funktion mit dem Namen "Username" die Daten holt. Das hängt nicht zusammen.

Wenn Environ("Username") keinen Wert liefert, dann wird auf diesem PC in der Betriebssystem-Umgebungsvariable kein Wert stehen.
Die API (bzw. deine Funktion "Username()") wird vermutlich schon einen Usernamen liefern.

=>
statt
Befehl: [KAPCId] = Environ("Username")
teste:
Befehl: [KAPCId] = Username()


mfg
Josef

 

Hallo,

warum sollte der API Aufruf auf einmal nicht mehr gehen, sofern es keine Probleme bezüglich der Bitbreite 32/64 gibt?
Man könnte ja mal den Returncode des API Aufrufes komplett auswerten, anstatt einfach nur auf 0 zu prüfen. Dafür gibt es im Fehlerfall auch den DLL Errorcode!

Die Umgebungsvariable kann man nutzen, bietet aber eine Angriffsfläche, weil diese relativ einfach verändert werden kann.

Ulrich

 

Hallo!

@Urlich:

Meine Vermutung auf Basis

und dem gezeigten Code der Funktion "Username()".

Ich vermute, dass im Code Environ("Username") verwendet wird und dabei (fälschlicherweise) davon ausgegangen wird, dass die Werte aus der VBA-Funktion "Username" geholt werden, welche die API nutzt.
Der OP folgert nun meiner Meinung nach, dass die API nicht funktioniert, weil Environ("Username") nicht den passenden Wert liefert.

mfg
Josef

 

\@Josef: Habe ich wohl übersehen.

Grüße Ulrich

 

Hallo zusammen,

[KAPCId] = Username() diese Version funktioniert auch in einer Umgebung wo es bisher funktioniert hat.

Erste Lösung um den Fehler zu vermeiden war nun, dass wir in der Tabelle die
Funktion "leere Zeichenfolge" auf ja gesetzt haben.

Nun testen wir morgen weiter ob diese so funktioniert.

Grüße vom Bodensee

 

Der genannte Fehler wird dann (wohl) nicht mehr auftreten,
aber welchen Sinn macht es dann???

Ich hatte gedacht, es soll sich bei der Tabelle um eine Art Logbuch handeln (User, LoginTime, LogoutTime).