dotNETportal.cz

Dobrý den,

měl bych dotaz má modlu který pomáhá zjistit uživatele ve 32Bit verzi systému pomocí advapi32.dll v jazyce VBA (Access).

Jenže mi to nechce fungovat ve 64 bit systémech prosím o pomoc jak mám problém vyřešit. Kód níže uvádím. Děkuji

Option Compare Database
Option Explicit

Private Declare Function ZjistitUzJmeno Lib _
"advapi32.dll" Alias "GetUserNameA" _
(ByVal IpBuffer As String, nDelka As Long) As Long
Function JmenoUzivatele()


Dim x As Integer
Dim s As String

s = Space$(256)
x = ZjistitUzJmeno(s, 256)
s = RTrim(s)
JmenoUzivatele = Left(s, Len(s) - 1)

End Function

Zkus tohle

Dim jmeno as String

jmeno = Environ("USERNAME")

fce Environ ti vytáhne udaj ze systémových proměnných (v příkazovém řádku příkaz set)

děkuji za pomoc fungovalo to :)