VBA ověření uživatele   otázka

VB.NET, VB6/VBA

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
nahlásit spamnahlásit spam 0 odpovědětodpovědět

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)

nahlásit spamnahlásit spam 0 odpovědětodpovědět

děkuji za pomoc fungovalo to :)

nahlásit spamnahlásit spam 0 odpovědětodpovědět
                       
Nadpis:
Antispam: Komu se občas házejí perly?
Příspěvek bude publikován pod identitou   anonym.
  • Administrátoři si vyhrazují právo komentáře upravovat či mazat bez udání důvodu.
    Mazány budou zejména komentáře obsahující vulgarity nebo porušující pravidla publikování.
  • Pokud nejste zaregistrováni, Vaše IP adresa bude zveřejněna. Pokud s tímto nesouhlasíte, příspěvek neodesílejte.

přihlásit pomocí externího účtu

přihlásit pomocí jména a hesla

Uživatel:
Heslo:

zapomenuté heslo

 

založit nový uživatelský účet

zaregistrujte se

 
zavřít

Nahlásit spam

Opravdu chcete tento příspěvek nahlásit pro porušování pravidel fóra?

Nahlásit Zrušit

Chyba

zavřít

feedback