With the new era of mobile computing, smartphones and tablets, wireless communications and cloud services, the USDA sought to take advantage of a mobilized workforce and the blurring lines between personal and corporate computing resources.
Option Compare Database Private Declare Function apiGetUserName Lib "advapi32.dll" Alias _ "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long Function fOSUsername() As Long 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 strUserName = Left$(strUserName, lngLen - 1) fOSUsername = Val(Trim(Right(strUserName, 5))) Else fOSUsername = 0 End If End Function
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|Access Query - calculate End of the Month in Query||2||51|
|How to develop custom ribbon bars for each form in an app in Access 2016?||8||58|
|Update Table via VBA SQL with multiple criteria||2||66|
|Importing specific cell from Excel to MS Access||17||50|
Join the community of 500,000 technology professionals and ask your questions.