[AccessD] an ACCESS query

[Bob Walsh]

Something like this?

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

Function fOSUserName() As String
' Returns the network login name
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

From: AccessD <accessd-bounces at databaseadvisors.com> On Behalf Of John W. Clark
Sent: Tuesday, March 12, 2019 9:36 AM
To: Access Developers discussion and problem solving <accessd at databaseadvisors.com>
Subject: Re: [AccessD] an ACCESS query

[Attn: This is an external email.]

I haven't been out here in quite a while, but I'm hoping someone can save me. I seem to have forgotten some things and I need to grab a user's Active Directory login ID and put it in a record.

I actually haven't programmed anything in quite a while. I've been playing with VoIP phones and email lately and haven't needed to work with MS Access in a very long time. I still lurk every now and then and read the posts, but I haven't needed to use it.

I'm praying someone has some code I can use to do this quick. I was trying to use a couple of things, like:


Dim strUser as String
strUser = ActiveDirectory.User()
MsgBox "Welcome back, " & strUser

but I get nothing...no errors, just nothing. I've tried variations and some other code I've found as well.

Is the "ActiveDirectory" code above native or should I be invoking something to make it work?


Notice: This electronic transmission is intended for the sole use of the individual or entity to which it is addressed and may contain confidential, privileged or otherwise legally protected information. If you are not the intended recipient, or if you believe you are not the intended recipient, you are hereby notified that any use, disclosure, copying, distribution, or the taking of any action in reliance on the contents of this information, is strictly prohibited. Niagara County is not responsible for the content of any external hyperlink referenced in this email or any email. IF YOU HAVE RECEIVED THIS TRANSMISSION IN ERROR, PLEASE NOTIFY THE SENDER IMMEDIATELY BY EMAIL AND DELETE THE ORIGINAL MESSAGE ALONG WITH ANY PAPER OR ELECTRONIC COPIES. Thank you for your cooperation.
--
AccessD mailing list
AccessD at databaseadvisors.com<mailto:AccessD at databaseadvisors.com>
http://databaseadvisors.com/mailman/listinfo/accessd<http://databaseadvisors.com/mailman/listinfo/accessd>
Website: http://www.databaseadvisors.com<http://www.databaseadvisors.com>

________________________________
HealthInsight is a private, nonprofit, community-based organization dedicated to improving health and health care, with offices in four western states: Nevada, New Mexico, Oregon and Utah. HealthInsight also has operations in Seattle, Wash., and Glendale, Calif., supporting End-Stage Renal Disease Networks in the Western United States. The information and any materials included in this transmission may contain confidential information from HealthInsight. The information is intended for use by the person named on this transmittal. If you are not the intended recipient, be aware that any disclosure, copying, distribution, or use of the contents of this transmission is prohibited. If you have received this message in error, please inform the sender and delete all copies.