Forum Discussion

Schulleitung Attinghausen's avatar
Schulleitung Attinghausen
Copper Contributor
Sep 20, 2016

Username from Office-Account with VBA (Access2016)?

I want to read the username of the current logged in Office account in MS Access 2016 with VBA  (not Windows or network username). The logged in user appears indeed in the Office2016 applications res...
2016
access
developer
office 365
Luc Debois's avatar
Luc Debois
Iron Contributor

I can help if you explain how to integrate the code you suggested in the Access VBA environment ...

Don DeCarlo's avatar
Don DeCarlo
Brass Contributor
Oct 11, 2016

Yes.

So you would create a object on your form (or other type) i.e. Label

Then you would create some code (i.e. VBA or Visual Basic)

Then you would reference the Netframework dll (using Imports) i think

Then create the sub and event (onLoad maybe) or click

So something like this.  I just don't know the exact syntax in Access

Maybe you can get it working as you suggest.

 

Imports System.DirectoryServices.AccountManagement

 

Private Sub Label12_Click()
Dim User As System.DirectoryServices.AccountManagement.UserPrincipal
User = UserPrincipal.Current
Dim UserContext As System.DirectoryServices.AccountManagement.PrincipalContext
UserContext = User.Context
Label12 = User.DisplayName
End Sub

  • Paul Eller's avatar
    Paul Eller
    Copper Contributor
    Oct 20, 2016

    What means "Imports System.DirectoryServices.AccountManagement" and how can I reference to it that the types are known (MS Access 2016)?

    Thanks for help

    • Don DeCarlo's avatar
      Don DeCarlo
      Brass Contributor
      Oct 20, 2016

      Dear Paul

       

      I did a little more research and remembered that Access has a built in function that allows you to access the CurrentUser (Name and email) through a macro or VBA.  So it is not necessary to use the reference inside your database for the System.DirectoryServices.AccountManagement. 

       

      Attached is a screen shot of how to add that function using a macro.

       

      If you need more help I can prepare a step by step instruction to walk you through your exact requriements.  Let me know.

       

      Thanks

      Don

       

      • Luc Debois's avatar
        Luc Debois
        Iron Contributor
        Oct 20, 2016

        Userdisplayname is only available in Macros not in VBA => UserDisplayName Function

        UserEmailAddress is only available in Macros not in VBA => UserEmailAddress Function

         

        If these functions are only available in Macros it is not interesting for me ...

         

        But if I use these functions with a macro ... and I switch from Account in Office it will show the correct username/useremail?

Resources