[AccessD] an ACCESS query

[Ryan W]

No prob. :)


On Tue, Mar 12, 2019 at 12:02 PM John W. Clark <John.Clark at niagaracounty.com>
wrote:

> Wow, I was overthinking that one just a bit, eh?! Thanks, I think this
> will suffice!
>
> ________________________________
> From: AccessD <accessd-bounces at databaseadvisors.com> on behalf of Ryan W <
> wrwehler at gmail.com>
> Sent: Tuesday, March 12, 2019 12:40 PM
> To: Access Developers discussion and problem solving
> Subject: Re: [AccessD] an ACCESS query
>
> What about just
>
> Environ("Username") ?
>
>
>
> On Tue, Mar 12, 2019 at 11:39 AM Bob Walsh <BWalsh at healthinsight.org>
> wrote:
>
> > 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.
> > --
> > AccessD mailing list
> > AccessD at databaseadvisors.com
> > http://databaseadvisors.com/mailman/listinfo/accessd
> > Website: http://www.databaseadvisors.com
> >
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>
>
> 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
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>