How does SharePoint know who I Am? Does Access? (1 Viewer)

Private Sub btn_Wells_Click()
Dim UserLogin As String
Dim MyTablename As String
Dim MyField2Match As String
Dim NodeIDValue As Variant
10        On Error Resume Next
20          UserLogin = Trim(Environ("username"))
30          MyTablename = "tbl_Users"                 ' name of table to lookup the value for match
40          MyField2Match = "Regulatory"
50          NodeIDValue = DLookup(MyField2Match, MyTablename, "[User_ID] = '" & UserLogin & "'")         '& intPrimaryKeyID)
                ' example of using number with blank If DLookup("AllowPermitStartDt", "Ed_SwType", "Ed_IDSWType =" & Nz(Me.SW_Type, 0)) = "A" Then
60        If NodeIDValue = "A" Then
            ' The line above checks the tbl_User Table Regulatory field. An "A" for that user it opens Regulatory
            ' once ED main form is ready, un-comment this code and add the name.
70          If fIsLoaded("ED_Home_2") = True Then ' What ever ED main form is called
80              MsgBox "Please Close the Regulatory Wells Window before starting Environmental", vbOKOnly, "One DB at a time Rule"
90          Else
100                DoCmd.OpenForm "Home_2"
110         End If
120       Else
        ' An "I" or blank for that user will not open the form.
            MsgBox "This User does not have rights to Regulatory. Please ask supervisor to add or change tbl_Users - Regulatory column", vbOKOnly, "User Rights Prevent Regulatory from opening"
130             Exit Sub
140       End If
        
    'DoCmd.OpenForm "Home_2"
150   Exit Sub


End Sub

'---------------------------------------------------------------------------------------
'  Create table named tLogUsage2
'  Add field (date/ time) UseDate, strFormName, CallingProc, Username, ControlName
'  use: in code, typically at command buttons or other key areas, add code to log
'   the name of the form, the calling procedure, and the control name
'   in no time, there will be users stats to show what parts the users like the most in your application
'    Example:  Call LogUsage("frmMainSwitchboard", "cmdOpenReport_click", "cmdOpenReport")
Function LogUsage2(ByVal strFormName As String, _
    strCallingProc As String, Optional DelayTime) As Boolean
10       On Error GoTo Err_LogUsage2
          Dim Rst As DAO.Recordset  ' The tLogUsage table
20            Set Rst = CurrentDb.OpenRecordset("tLogUsage2", 2, dbAppendOnly + dbSeeChanges)
30            Rst.AddNew
40                Rst![UseDate] = Now()
50                Rst![strFormName] = strFormName
60                Rst![CallingProc] = strCallingProc
70                Rst![UserName] = Environ("username")
80                If Not IsMissing(DelayTime) Then
90                    Rst![DelayTime] = Left(DelayTime, 75)
100               End If
110           Rst.Update
120           Rst.Close
130           LogUsage2 = True

Exit_LogUsage2:
140       Set Rst = Nothing
150       Exit Function

Err_LogUsage2:
          ' just resume next and the usage is not logged
  'MsgBox Err.Number & Err.Description
160       Err.Clear
170       Resume Exit_LogUsage2
End Function

CreateObject("wscript.network").UserName