-----------------------------------------------------------------------------------
Is this correct?
strUserID = Environ("USERNAME")
strComputername = Environ("Computername")
Select Case UserAction
Case "EDIT"
For Each ctl In Screen.ActiveForm.Controls...
, Yes new record input, here is function;
Private Sub Form_BeforeUpdate(Cancel As Integer)
If Me.NewRecord Then
'Calls modAuditSub function to record new data to Audit Trail
Call AuditChangesSub("SubformPrimaryKey", "NEW") 'original
Else
'Calls modAuditSub function to record...
Hello Sir,
I have another problem with code. I recently notice on tblaudittrail log is not showing new data input on NewValue. So when users enters new data on form and is not show on NewValue field on tblaudittrail. Thank you.
Hello Sir,
I am new on this access database code and i don't know if am doing right way. can you see if this is correct;
Sub AuditChanges(IDField As String, UserAction As String)
On Error GoTo AuditChanges_Err
Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset
Dim ctl As...
Hello Sir,
Thank you for your help, your mod/submod audit trail works perfect on my database.
Only think i need is how to add 'pcname' on tblaudittrail. I would like also to track pcname on audit. Thanks again.