Condividi:        

Access 2007 - Funzione equivalente a Environ()

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Access 2007 - Funzione equivalente a Environ()

Postdi gaetano73 » 06/03/13 15:39

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
gaetano73
Utente Senior
 
Post: 250
Iscritto il: 03/09/02 18:36

Sponsor
 

Re: Access 2007 - Funzione equivalente a Environ()

Postdi Flash30005 » 06/03/13 16:52

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
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Postdi archimede » 06/03/13 18:11

Forse
Codice: Seleziona tutto
Public Function UserID() As String
    UserID = VBA.Environ("username")
End Function
HTH.

Alessandro
archimede
Moderatore
 
Post: 2851
Iscritto il: 07/11/02 12:41
Località: Genova

Re: Access 2007 - Funzione equivalente a Environ()

Postdi gaetano73 » 06/03/13 22:04

Ho modificato la chiave di registro... funziona!
Grazie!
gaetano73
Utente Senior
 
Post: 250
Iscritto il: 03/09/02 18:36


Torna a Applicazioni Office Windows


Topic correlati a "Access 2007 - Funzione equivalente a Environ()":


Chi c’è in linea

Visitano il forum: Marius44 e 26 ospiti