<div>
What is &quot;group name&quot;?<br />
<br />
You can use the Environ() function to find out the user logged into the computer or the computer name.<br />
<br />
strUser = Environ(&quot;UserName&quot;)<br />
<br />
If you are using your own security as I do, then instead of closing the log in form, hide it. &nbsp;That will allow you to reference the login form whenever you need the user name of the logged in user.
</div>


<div>
I mean Access security Group accounts.<br />
i want to know which group a user belongs.
</div>


<div>
Access hasn't fully supported ULS since A2003 was replaced with A2007 which was 9 years ago. &nbsp;I have erased most information regarding the details of ULS from memory. &nbsp;Time to implement your own security and stop using ULS so you can move to the .accdb format.<br />
<br />
I attached the text of a post along with it's link. &nbsp;This was the only reference I found that used VBA to do anything with ULS. &nbsp;It may give you direction.<br />
<a href="https://filedb.experts-exchange.com/incoming/2016/08_w32/1109709/ReadSystemMDW.docx" target="_blank" class="file-inline" title="ReadSystemMDW.docx (12 KB)"><svg xmlns="http://www.w3.org/2000/svg" viewBox="0 0 512 512"><path d="M67.508 468.467c-58.005-58.013-58.016-151.92 0-209.943l225.011-225.04c44.643-44.645 117.279-44.645 161.92 0 44.743 44.749 44.753 117.186 0 161.944l-189.465 189.49c-31.41 31.413-82.518 31.412-113.926.001-31.479-31.482-31.49-82.453 0-113.944L311.51 110.491c4.687-4.687 12.286-4.687 16.972 0l16.967 16.971c4.685 4.686 4.685 12.283 0 16.969L184.983 304.917c-12.724 12.724-12.73 33.328 0 46.058 12.696 12.697 33.356 12.699 46.054-.001l189.465-189.489c25.987-25.989 25.994-68.06.001-94.056-25.931-25.934-68.119-25.932-94.049 0l-225.01 225.039c-39.249 39.252-39.258 102.795-.001 142.057 39.285 39.29 102.885 39.287 142.162-.028A739446.174 739446.174 0 0 1 439.497 238.49c4.686-4.687 12.282-4.684 16.969.004l16.967 16.971c4.685 4.686 4.689 12.279.004 16.965a755654.128 755654.128 0 0 0-195.881 195.996c-58.034 58.092-152.004 58.093-210.048.041z"/></svg>ReadSystemMDW.docx</a>
</div>


ReadSystemMDW.docx

<div>
Do you mean Active Directory?<br />
You can get information out of Active Directory via VBA.<br />
Most users belong to many AD groups, though.
</div>


<div>
I already found what I wanted and I changed it a little for my needs.<br />
Thank you all<br />
<br />
Function IsUserInGroup(strUser As String, strGroup As String) As Boolean<br />
&nbsp; &nbsp; <br />
&nbsp; &nbsp; 'Returns True if the user is in the group.<br />
&nbsp; &nbsp; 'Example: IsUserInGroup(CurrentUser(<wbr />), &quot;Admins&quot;)<br />
&nbsp; &nbsp; Dim wk As Workspace, grx As Groups, grp As Group, usx As Users, usr As User<br />
&nbsp; &nbsp; Dim wFoundSw As Integer<br />
&nbsp; &nbsp; <br />
&nbsp; &nbsp; Set grx = DBEngine(0).Groups<br />
&nbsp; &nbsp; For Each grp In grx<br />
&nbsp; &nbsp; &nbsp; &nbsp; If wFoundSw = 1 Then Exit For<br />
&nbsp; &nbsp; &nbsp; &nbsp; If grp.Name = strGroup Then<br />
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Set usx = grp.Users<br />
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;For Each usr In usx<br />
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;If usr.Name = strUser Then<br />
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; IsUserInGroup = True<br />
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; wFoundSw = 1<br />
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Exit For<br />
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;End If<br />
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Next<br />
&nbsp; &nbsp; &nbsp; &nbsp;End If<br />
&nbsp; &nbsp; Next<br />
<br />
&nbsp; &nbsp; Set usr = Nothing: Set usx = Nothing: Set grp = Nothing: Set grx = Nothing<br />
&nbsp; &nbsp; <br />
End Function
</div>


<div>
<div class="content wysiwyg-content">
Hello All,<br />
<br />
How can I find out the group name of a user? (In code)<br />
Thanks
</div>
</div>


Hello All,

How can I find out the group name of a user? (In code)
Thanks

ms Access

Microsoft Access is a rapid application development (RAD) relational database tool. Access can be used for both desktop and web-based applications, and uses VBA (Visual Basic for Applications) as its coding language.