O'Connor, Patricia (OTDA)
Patricia.O'Connor at otda.state.ny.us
Wed Nov 21 09:05:54 CST 2007
Arthur
I will give this a try
Thank you
Patti
**************************************************
* Patricia O'Connor
* Associate Computer Programmer Analyst
* OTDA - BDMA
* (W) mailto:Patricia.O'Connor at otda.state.ny.us
* (w) mailto:aa1160 at nysemail.state.ny.us
**************************************************
>
--------------------------------------------------------
This e-mail, including any attachments, may be confidential, privileged or otherwise legally protected. It is intended only for the addressee. If you received this e-mail in error or from someone who was not authorized to send it to you, do not disseminate, copy or otherwise use this e-mail or its attachments. Please notify the sender immediately by reply e-mail and delete the e-mail from your system.
-----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
> Arthur Fuller
> Sent: Tuesday, November 20, 2007 03:36 PM
> To: Access Developers discussion and problem solving
> Subject: Re: [AccessD] Populate field with userid Environ A97 vs A2k+
>
> Will this do?
>
> <Code>
> Option Compare Database
> Option Explicit
> Global Const SW_SHOWNORMAL = 1
>
> Public Declare Function ShellExecute Lib "shell32.dll" Alias
> "ShellExecuteA"
> _
> (ByVal hwnd As Long, _
> ByVal lpOperation As String, _
> ByVal lpFile As String, _
> ByVal lpParameters As String, _
> ByVal lpDirectory As String, _
> ByVal nShowCmd As Long) As Long
>
> 'This code was originally written by Dev Ashish.
> 'It is not to be altered or distributed, 'except as part of
> an application.
> 'You are free to use it in any application, 'provided the
> copyright notice is left unchanged.
> 'Code courtesy of Dev Ashish
> Private Declare Function apiGetUserName Lib "advapi32.dll" Alias _
> "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
>
> Public 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 = ""
> End If
> End Function
> </Code>
>
> hth,
> Arthur
>
> On 11/20/07, O'Connor, Patricia (OTDA)
> <Patricia.O'Connor at otda.state.ny.us>
> wrote:
> >
> > Thank you - I had a feeling there might not be a work around
> >
> > The table was not being updated in, with or by a form when
> the error
> > occurred.
> >
> > Wanted to insure I knew the last person at the record. It was
> > something that worked fine for 10 years - m$ could have
> made it read
> > only if modifying was a problem .
> >
> > **************************************************
> > * Patricia O'Connor
> > * Associate Computer Programmer Analyst
> > * OTDA - BDMA
> > * (W) mailto:Patricia.O'Connor at otda.state.ny.us
> > * (w) mailto:aa1160 at nysemail.state.ny.us
> > **************************************************
> >
> >
> > >
> > --------------------------------------------------------
> > This e-mail, including any attachments, may be confidential,
> > privileged or otherwise legally protected. It is intended
> only for the
> > addressee. If you received this e-mail in error or from someone who
> > was not authorized to send it to you, do not disseminate, copy or
> > otherwise use this e-mail or its attachments. Please notify the
> > sender immediately by reply e-mail and delete the e-mail
> from your system.
> >
> >
> > -----Original Message-----
> >
> > > From: accessd-bounces at databaseadvisors.com
> > > [mailto:accessd-bounces at databaseadvisors.com] On Behalf
> Of Heenan,
> > > Lambert
> > > Sent: Tuesday, November 20, 2007 01:30 PM
> > > To: 'Access Developers discussion and problem solving'
> > > Subject: Re: [AccessD] Populate field with userid Environ A97 vs
> > > A2k+
> > >
> > > Is there a workaround? No. You have to use an API call to get the
> > > user ID.
> > > So quit defaulting these fields in your tables and add a
> tiny bit of
> > > code to the BeforeInsert (for new records) and BeforeUpdate (for
> > > edits) events on your forms.
> > >
> > > There's only a very limited list of functions you can use in the
> > > default value property of field in table design view. It was even
> > > documented once, but I'm damned if I can locate it in the
> Access XP
> > > help file. Oh well.
> > >
> > > BTW it also makes sense to not allow Environ(). Environ
> is a risky
> > > proposition because it is quite easy for a user to change an
> > > environment variable, (like "USERNAME") and so potentially bypass
> > > 'security'.
> > >
> > > Lambert
> > >
> > > -----Original Message-----
> > > From: accessd-bounces at databaseadvisors.com
> > > [mailto:accessd-bounces at databaseadvisors.com] On Behalf
> Of O'Connor,
> > > Patricia (OTDA)
> > > Sent: Tuesday, November 20, 2007 12:34 PM
> > > To: Access Developers discussion and problem solving
> > > Subject: [AccessD] Populate field with userid Environ A97 vs A2k+
> > >
> > >
> > > I am upgrading an Access97 to Access2k to Access2k3. I
> know about
> > > having to create a function to use it in A2k and A2k3 (GRRR)
> > >
> > > I have been using =Environ("UserName") to populate a field
> > > (LastUpdtBy) in a new record in my A97-tables for years.
> > >
> > > I created the function that was recommended and it works in my
> > > vb/vba code portions. It is not working in the table
> field default.
> > > Gives me the runtime error # 3388 "unknown function 'Environ'.
> > >
> > > Is there a workaround? If there is one in the archives,
> please send
> > > a complete link. I have tried finding something suggested
> in mails
> > > but can't find them easily.
> > >
> > > I still think this ban was ridiculous or at least they
> should have
> > > created a valid totally useable workaround
> > >
> > > Thanks - Have a wonderful Thanksgiving ALL Patti
> > > **************************************************
> > > * Patricia O'Connor
> > > * Associate Computer Programmer Analyst
> > > * OTDA - BDMA
> > > * (W) mailto:Patricia.O'Connor at otda.state.ny.us
> > > * (w) mailto:aa1160 at nysemail.state.ny.us
> > > **************************************************
> > > --------------------------------------------------------
> > > This e-mail, including any attachments, may be confidential,
> > > privileged or otherwise legally protected. It is intended
> only for
> > > the addressee. If you received this e-mail in error or
> from someone
> > > who was not authorized to send it to you, do not
> disseminate, copy
> > > or otherwise use this e-mail or its attachments. Please
> notify the
> > > sender immediately by reply e-mail and delete the e-mail
> from your
> > > system.
> > >
> > >
> > > --
> > > 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
> > >
> > >
> >
> >
> > --
> > 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
>
>