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
Don DeCarlo's avatar
Don DeCarlo
Brass Contributor
Oct 09, 2016

I use the System.DirectoryServices.AccountManagement object to get user information on my apps.

 

In VB (I don't use VBA but very simliar syntax) the UserContext object give you all the information about the signed in user (Current) you need.

 

Imports System.DirectoryServices.AccountManagement

Dim User As UserPrincipal = UserPrincipal.Current

Dim UserContext As PrincipalContext = User.Context

 

Hope that helps.

Luc Debois's avatar
Luc Debois
Iron Contributor
Oct 11, 2016

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

         

Resources