Access 2007 - Funzione equivalente a Environ()

[gaetano73]

Ciao a tutti. Uso Access 2003.
In una tabella del mio DB c'è un campo "Login" che usa la funzione Environ("username").
Ora ho la necessità di utilizzare il DB su una macchina che ha Access 2007 ed Environ non viene riconosciuta perché immagino sia stata deprecata. Come risolvo mio problema?

Grazie

Gaetano

[Flash30005]

Penso debba usare le funzioni Api

Codice: Seleziona tutto

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

Function fOSUserName() As String
Dim lngLen As Long, lngX As Long
Dim strUserName As String
    strUserName = String$(254, 0)
    lngLen = 255
    lngX = apiGetUserName(strUserName, lngLen)
    If ( lngX > 0 ) Then
        fOSUserName = Left$(strUserName, lngLen - 1)
    Else
        fOSUserName = vbNullString
    End If
End Function


Oppure togliere la protezione ad access 2007 (modificando la chiave di registro)
come descritto in questo articolo

Ciao

[archimede]

Forse

Codice: Seleziona tutto

Public Function UserID() As String
    UserID = VBA.Environ("username")
End Function

HTH.

Alessandro

[gaetano73]

Ho modificato la chiave di registro... funziona!
Grazie!