Hi,
I have developed an Access application on my pc, where it works fine,
and then have tried it on another user's, but I get the following error
message: "Undefined function 'ENVIRON' in expression." I use this
statement in my SQL, and it has worked ok until now:
(Employees.userID)=(Environ("USERNAME"))

Would this have something to do with the library set up on the other
pc?

Thanks for any help you can provide,
Louis

Louis:

At first glance one would suspect a References problem, but putting that
aside, the use of the Environ function is not recommended. If you search on
'environ' here you'll find plenty of threads on this with alternative API
call suggestions. Here's my own however:

''''module starts''''
Option Compare Database
Option Explicit

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


Public Function GetUser() As String

Dim strBuffer As String
Dim lngSize As Long, lngRetVal As Long

lngSize = 199
strBuffer = String$(200, 0)

lngRetVal = GetUserName(strBuffer, lngSize)

GetUser = Left$(strBuffer, lngSize - 1)

End Function
''''module ends''''

which you could call in the query with:

Employees.UserID = GetUser()

Or you might like to consider calling the GetUser function at start-up to
update a column in a single row/single column local table, then join that
table to the Employees table in the query.

Ken Sheridan
Stafford, England

"l" wrote:

> Hi,
> I have developed an Access application on my pc, where it works fine,
> and then have tried it on another user's, but I get the following error
> message: "Undefined function 'ENVIRON' in expression." I use this
> statement in my SQL, and it has worked ok until now:
> (Employees.userID)=(Environ("USERNAME"))
>
> Would this have something to do with the library set up on the other
> pc?
>
> Thanks for any help you can provide,
> Louis
>
>

"l" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed)
> Hi,
> I have developed an Access application on my pc, where it works fine,
> and then have tried it on another user's, but I get the following
> error message: "Undefined function 'ENVIRON' in expression." I use
> this statement in my SQL, and it has worked ok until now:
> (Employees.userID)=(Environ("USERNAME"))
>
> Would this have something to do with the library set up on the other
> pc?
>
> Thanks for any help you can provide,
> Louis

My guess is that it's the operation of Jet sandbox mode, which may be
set differently on different PCs:

http://support.microsoft.com/kb/294698/en-us


--
Dirk Goldgar, MS Access MVP
www.datagnostics.com

(please reply to the newsgroup)

Also, Environ is only available in versions later than AC2000.

--
There's ALWAYS more than one way to skin a cat!

Answers/posts based on Access 2000

Message posted via AccessMonster.com
http://www.accessmonster.com/Uwe/For...ccess/200701/1

"missinglinq via AccessMonster.com" <u28780@uwe> wrote in message
news:6c319741fc4c8@uwe...
> Also, Environ is only available in versions later than AC2000.
>

Not so. It was in as long ago as Access 2.0 (I just looked it up in my
Access 2.0 documentation), and I suspect it may have been there from the
beginning.

--
Doug Steele, Microsoft Access MVP
http://I.Am/DougSteele
(no private e-mails, please)

Ken,

I am trying to try this suggestion. I have put the code in its own
module, named GetUser, and then I've put the call in the query
(Employees.UserID = GetUser() ), but when I run the query I get
"Undefined function 'GetUser' in query".

Here is the SQL from the query:

SELECT DISTINCTROW Employees.EmployeeID, Employees.LastName,
Employees.FirstName
FROM Employees
WHERE ((Employees.EmployeeID)=GetUser())
ORDER BY Employees.LastName;


Any ideas are greatly appreciated. Thanks.

========================

Thanks,
Louis


Ken Sheridan wrote:
> Louis:
>
> At first glance one would suspect a References problem, but putting that
> aside, the use of the Environ function is not recommended. If you search on
> 'environ' here you'll find plenty of threads on this with alternative API
> call suggestions. Here's my own however:
>
> ''''module starts''''
> Option Compare Database
> Option Explicit
>
> Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal _
> lpBuffer As String, nSize As Long) As Long
>
>
> Public Function GetUser() As String
>
> Dim strBuffer As String
> Dim lngSize As Long, lngRetVal As Long
>
> lngSize = 199
> strBuffer = String$(200, 0)
>
> lngRetVal = GetUserName(strBuffer, lngSize)
>
> GetUser = Left$(strBuffer, lngSize - 1)
>
> End Function
> ''''module ends''''
>
> which you could call in the query with:
>
> Employees.UserID = GetUser()
>
> Or you might like to consider calling the GetUser function at start-up to
> update a column in a single row/single column local table, then join that
> table to the Employees table in the query.
>
> Ken Sheridan
> Stafford, England
>
> "l" wrote:
>
> > Hi,
> > I have developed an Access application on my pc, where it works fine,
> > and then have tried it on another user's, but I get the following error
> > message: "Undefined function 'ENVIRON' in expression." I use this
> > statement in my SQL, and it has worked ok until now:
> > (Employees.userID)=(Environ("USERNAME"))
> >
> > Would this have something to do with the library set up on the other
> > pc?
> >
> > Thanks for any help you can provide,
> > Louis
> >
> >

ll wrote:
> Ken,
>
> I am trying to try this suggestion. I have put the code in its own
> module, named GetUser, and then I've put the call in the query
> (Employees.UserID = GetUser() ), but when I run the query I get
> "Undefined function 'GetUser' in query".
>
> Here is the SQL from the query:
>
> SELECT DISTINCTROW Employees.EmployeeID, Employees.LastName,
> Employees.FirstName
> FROM Employees
> WHERE ((Employees.EmployeeID)=GetUser())
> ORDER BY Employees.LastName;
>
>
> Any ideas are greatly appreciated. Thanks.
>
> ========================
>
> Thanks,
> Louis
>
>
> Ken Sheridan wrote:
> > Louis:
> >
> > At first glance one would suspect a References problem, but putting that
> > aside, the use of the Environ function is not recommended. If you search on
> > 'environ' here you'll find plenty of threads on this with alternative API
> > call suggestions. Here's my own however:
> >
> > ''''module starts''''
> > Option Compare Database
> > Option Explicit
> >
> > Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal _
> > lpBuffer As String, nSize As Long) As Long
> >
> >
> > Public Function GetUser() As String
> >
> > Dim strBuffer As String
> > Dim lngSize As Long, lngRetVal As Long
> >
> > lngSize = 199
> > strBuffer = String$(200, 0)
> >
> > lngRetVal = GetUserName(strBuffer, lngSize)
> >
> > GetUser = Left$(strBuffer, lngSize - 1)
> >
> > End Function
> > ''''module ends''''
> >
> > which you could call in the query with:
> >
> > Employees.UserID = GetUser()
> >
> > Or you might like to consider calling the GetUser function at start-up to
> > update a column in a single row/single column local table, then join that
> > table to the Employees table in the query.
> >
> > Ken Sheridan
> > Stafford, England
> >
> > "l" wrote:
> >
> > > Hi,
> > > I have developed an Access application on my pc, where it works fine,
> > > and then have tried it on another user's, but I get the following error
> > > message: "Undefined function 'ENVIRON' in expression." I use this
> > > statement in my SQL, and it has worked ok until now:
> > > (Employees.userID)=(Environ("USERNAME"))
> > >
> > > Would this have something to do with the library set up on the other
> > > pc?
> > >
> > > Thanks for any help you can provide,
> > > Louis
> > >
> > >

You can't name the module the same as any of the routines within it.

Rename the module to, say, mdlGetUser.

--
Doug Steele, Microsoft Access MVP
http://I.Am/DougSteele
(no private e-mails, please)


"ll" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
> Ken,
>
> I am trying to try this suggestion. I have put the code in its own
> module, named GetUser, and then I've put the call in the query
> (Employees.UserID = GetUser() ), but when I run the query I get
> "Undefined function 'GetUser' in query".
>
> Here is the SQL from the query:
>
> SELECT DISTINCTROW Employees.EmployeeID, Employees.LastName,
> Employees.FirstName
> FROM Employees
> WHERE ((Employees.EmployeeID)=GetUser())
> ORDER BY Employees.LastName;
>
>
> Any ideas are greatly appreciated. Thanks.
>
> ========================
>
> Thanks,
> Louis
>
>
> Ken Sheridan wrote:
>> Louis:
>>
>> At first glance one would suspect a References problem, but putting that
>> aside, the use of the Environ function is not recommended. If you search
>> on
>> 'environ' here you'll find plenty of threads on this with alternative API
>> call suggestions. Here's my own however:
>>
>> ''''module starts''''
>> Option Compare Database
>> Option Explicit
>>
>> Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA"
>> (ByVal _
>> lpBuffer As String, nSize As Long) As Long
>>
>>
>> Public Function GetUser() As String
>>
>> Dim strBuffer As String
>> Dim lngSize As Long, lngRetVal As Long
>>
>> lngSize = 199
>> strBuffer = String$(200, 0)
>>
>> lngRetVal = GetUserName(strBuffer, lngSize)
>>
>> GetUser = Left$(strBuffer, lngSize - 1)
>>
>> End Function
>> ''''module ends''''
>>
>> which you could call in the query with:
>>
>> Employees.UserID = GetUser()
>>
>> Or you might like to consider calling the GetUser function at start-up to
>> update a column in a single row/single column local table, then join that
>> table to the Employees table in the query.
>>
>> Ken Sheridan
>> Stafford, England
>>
>> "l" wrote:
>>
>> > Hi,
>> > I have developed an Access application on my pc, where it works fine,
>> > and then have tried it on another user's, but I get the following error
>> > message: "Undefined function 'ENVIRON' in expression." I use this
>> > statement in my SQL, and it has worked ok until now:
>> > (Employees.userID)=(Environ("USERNAME"))
>> >
>> > Would this have something to do with the library set up on the other
>> > pc?
>> >
>> > Thanks for any help you can provide,
>> > Louis
>> >
>> >
>

Doug,
Thanks so much - that did the trick!

Louis


Douglas J. Steele wrote:
> You can't name the module the same as any of the routines within it.
>
> Rename the module to, say, mdlGetUser.
>
> --
> Doug Steele, Microsoft Access MVP
> http://I.Am/DougSteele
> (no private e-mails, please)
>
>
> "ll" <(E-Mail Removed)> wrote in message
> news:(E-Mail Removed)...
> > Ken,
> >
> > I am trying to try this suggestion. I have put the code in its own
> > module, named GetUser, and then I've put the call in the query
> > (Employees.UserID = GetUser() ), but when I run the query I get
> > "Undefined function 'GetUser' in query".
> >
> > Here is the SQL from the query:
> >
> > SELECT DISTINCTROW Employees.EmployeeID, Employees.LastName,
> > Employees.FirstName
> > FROM Employees
> > WHERE ((Employees.EmployeeID)=GetUser())
> > ORDER BY Employees.LastName;
> >
> >
> > Any ideas are greatly appreciated. Thanks.
> >
> > ========================
> >
> > Thanks,
> > Louis
> >
> >
> > Ken Sheridan wrote:
> >> Louis:
> >>
> >> At first glance one would suspect a References problem, but putting that
> >> aside, the use of the Environ function is not recommended. If you search
> >> on
> >> 'environ' here you'll find plenty of threads on this with alternative API
> >> call suggestions. Here's my own however:
> >>
> >> ''''module starts''''
> >> Option Compare Database
> >> Option Explicit
> >>
> >> Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA"
> >> (ByVal _
> >> lpBuffer As String, nSize As Long) As Long
> >>
> >>
> >> Public Function GetUser() As String
> >>
> >> Dim strBuffer As String
> >> Dim lngSize As Long, lngRetVal As Long
> >>
> >> lngSize = 199
> >> strBuffer = String$(200, 0)
> >>
> >> lngRetVal = GetUserName(strBuffer, lngSize)
> >>
> >> GetUser = Left$(strBuffer, lngSize - 1)
> >>
> >> End Function
> >> ''''module ends''''
> >>
> >> which you could call in the query with:
> >>
> >> Employees.UserID = GetUser()
> >>
> >> Or you might like to consider calling the GetUser function at start-up to
> >> update a column in a single row/single column local table, then join that
> >> table to the Employees table in the query.
> >>
> >> Ken Sheridan
> >> Stafford, England
> >>
> >> "l" wrote:
> >>
> >> > Hi,
> >> > I have developed an Access application on my pc, where it works fine,
> >> > and then have tried it on another user's, but I get the following error
> >> > message: "Undefined function 'ENVIRON' in expression." I use this
> >> > statement in my SQL, and it has worked ok until now:
> >> > (Employees.userID)=(Environ("USERNAME"))
> >> >
> >> > Would this have something to do with the library set up on the other
> >> > pc?
> >> >
> >> > Thanks for any help you can provide,
> >> > Louis
> >> >
> >> >
> >