executing query from code

[hawk7890]

I have done alot of research on this problem but I am unable to figure it out.

I have a table created with the following fields
ID
UserID (domain account)
UserName (full name of person)
UserRights(the user's rights)

to this table I have attached a query with a where clause on USERID
=Where Environ("username")

Basically when I run this query it will return the row for the current logged user.

Here is what I want to do.

On the first form to open I place some code that will run this query and then assign the string in UserName to a public variable and Assign the string in UserRights to a public variable.

The purpose of this is to have an "updated by" field in the main database that will display the full username. Also certain forms have administrator buttons that would be hidden to users that have UserRights set to "user"

This is going to be a shared database.

Thank you

Marc

[jaxjagfan]

I have done alot of research on this problem but I am unable to figure it out.

I have a table created with the following fields
ID
UserID (domain account)
UserName (full name of person)
UserRights(the user's rights)

to this table I have attached a query with a where clause on USERID
=Where Environ("username")

Basically when I run this query it will return the row for the current logged user.

Here is what I want to do.

On the first form to open I place some code that will run this query and then assign the string in UserName to a public variable and Assign the string in UserRights to a public variable.

The purpose of this is to have an "updated by" field in the main database that will display the full username. Also certain forms have administrator buttons that would be hidden to users that have UserRights set to "user"

This is going to be a shared database.

Thank you

Marc

Here is a function that I use in a module and just call GetUserName():

Declare Function Win32GetUserName Lib "advapi32.dll" Alias "GetUserNameA" _
    (ByVal lpBuffer As String, nSize As Long) As Long
 
Public Function GetUserName() As String
'requires system-call defined
Dim lLen As Long, s As String, sText As String, lResult As Long
 
lLen = 255
s = String$(lLen, 0)
lResult = Win32GetUserName(s, lLen)
If (1 = lResult) Then
    sText = StringFromDLL(s)
Else
    sText = ""
End If
GetUserName = sText
End Function
 
 

This function grabs the current user logged into the pc. You can set your variable to something like varUserID = GetUserName(). You could use a DLookup:
varUserName = DLookup("[UserName]","tblUsers", "[UserID]='" & GetUserName() & "'"
Or you can use the GetUserName function in your query and link to your users table to get the full name.

[hawk7890]

That is perfect, the Dlookup worked like a charm. The answer was so simple that it was eluding me.

Marc