Access Form History Field

[psamu]

I am using a template. There are two field, one is "New Comment" and other one " History" Whenever user type in "New Comment" field , it appears in "History field" (For example I type in New Comment field "Test". It appears in History as "[Version: 9/14/2015 5:46:54 PM ] Test" . How do I change it to user name from desktop login name instead of Version: I see the formula is =ColumnHistory([RecordSource],"Comments","[ID]=" & Nz([ID],0)). Thanks

 

[Micron]

I assume you do not already have the user login id as part of your db routine.
You can use the Environ("username") function (not sure of the syntax as I don't use it - it's buggy and can be spoofed). Or you can use a simple API call. This has to go in a standard module. The red part goes in the module's declaration section (at the top) and don't alter it. I can't make sense of the rest of your post, so I'm not sure where you should place & apiGetUserName(). Maybe where you have "[ID]"?:

[COLOR=#ff0000]Private Declare Function GetUserName Lib "advapi32.dll" Alias _ "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long [/COLOR]

Function apiGetUserName() As String   'Call to apiGetUserName returns current user.   

Dim lngResponse As Long 
  Dim strUserName As String * 32 
  lngResponse = GetUserName(strUserName, 32) 
  apiGetUserName = Left(strUserName, InStr(strUserName, Chr$(0)) - 1) 
End Function

In case I mess up the code, it and other useful API calls are here:
10+ of my favorite Windows API functions to use in Office applications - TechRepublic

 

[psamu]

I assume you do not already have the user login id as part of your db routine.
You can use the Environ("username") function (not sure of the syntax as I don't use it - it's buggy and can be spoofed). Or you can use a simple API call. This has to go in a standard module. The red part goes in the module's declaration section (at the top) and don't alter it. I can't make sense of the rest of your post, so I'm not sure where you should place & apiGetUserName(). Maybe where you have "[ID]"?:

[COLOR=#ff0000]Private Declare Function GetUserName Lib "advapi32.dll" Alias _ "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long [/COLOR]

Function apiGetUserName() As String   'Call to apiGetUserName returns current user.   

Dim lngResponse As Long 
  Dim strUserName As String * 32 
  lngResponse = GetUserName(strUserName, 32) 
  apiGetUserName = Left(strUserName, InStr(strUserName, Chr$(0)) - 1) 
End Function

In case I mess up the code, it and other useful API calls are here:
10+ of my favorite Windows API functions to use in Office applications - TechRepublic

Thank you. I will try.