Audit Issue

[artfulldodger86]

Hi,

i am trying to record the current windows username in an audit field. But all i can get is the Username Admin? any ideas?



Dim MyForm As Form, C As Control, xName As String
Set MyForm = Screen.ActiveForm






'Set date and current user if form has been updated.
MyForm!Audit = MyForm!Audit & Chr(13) & Chr(10) & _
"Changes made on " & Now & Date & " by " & CurrentUser() & ";"


'If new record, record it in audit trail and exit sub.
If MyForm.NewRecord = True Then


MyForm!Audit = MyForm!Audit & Chr(13) & Chr(10) & _
"New Record """
End If


'Check each data entry control for change and record
'old value of Control.
For Each C In MyForm.Controls

'Only check data entry type controls.
Select Case C.ControlType
Case acTextBox, acComboBox, acListBox, acOptionGroup
' Skip Audit field.
If C.Name <> "Audit" Then

' If control was previously Null, record "previous
' value was blank."
If IsNull(C.OldValue) Or C.OldValue = "" Then
MyForm!Audit = MyForm!Audit & Chr(13) & _
Chr(10) & C.Name & "--previous value was blank"

' If control had previous value, record previous value.
ElseIf IIf(IsNull(C.Value), "", C.Value) <> C.OldValue Then
MyForm!Audit = MyForm!Audit & Chr(13) & Chr(10) & _
C.Name & "==previous value was " & C.OldValue
End If
End If
End Select
Next C


TryNextC:
Exit Function

Err_Handler:
If Err.Number <> 64535 Then
MsgBox "Error #: " & Err.Number & vbCrLf & "Description: " & Err.Description
End If
Resume TryNextC
End Function

[pbaldy]

That method only works with Access security. You can use the Environ() function orhttp://access.mvps.org/access/api/api0008.htm

[artfulldodger86]

That method only works with Access security. You can use the Environ() function orhttp://access.mvps.org/access/api/api0008.htm

so do i just substitute the currentUser() for Environ()?

[pbaldy]

Yes, though you need the appropriate argument for Environ().