Issues with audit logger

[newguy86]

I setup an audit logger to log any changes made to records in access. The issue I am having is that whenever the logger runs it is only catching at most 4 changes at a time, but if I step through my code it will log every single change made.

If anyone can help me figure this out it would be greatly appreciated.

Here is my code:

Public Function WriteAudit06(frm As Form, lngID As String) As Boolean
On Error GoTo err_WriteAudit06

    Dim ctlC As Control
    Dim ctlCName As String
    Dim ctlCOldValue As String
    Dim fldF As Field
    Dim strSQL As String
    Dim bOK As Boolean
    Dim strFormID As String
    Dim strUserID As String
    
    bOK = False
    strFormID = "09"
    DoCmd.SetWarnings False
    
    strUserID = GetUserName_TSB
    
    ' For each control.
    For Each ctlC In frm.Controls
        If TypeOf ctlC Is TextBox Or TypeOf ctlC Is ComboBox Or TypeOf ctlC Is CheckBox Then
            ctlCName = ctlC.Name
            If IsNull(ctlC.OldValue) Then
                ctlCOldValue = "Null"
            Else
                ctlCOldValue = ctlC.OldValue
            End If
            If ctlC <> ctlC.OldValue Or IsNull(ctlC.OldValue) Then
                If Not IsNull(ctlC) Then
                    strSQL = "INSERT INTO tblDbLog (RecordID, UserID, DbID, FrmID, ActivityID, FieldChanged, FieldChangedFrom, FieldChangedTo, DateOfHit) " & _
                        "SELECT" & "'" & Form_frmIMStationsNewRequestLog.RequestNumber & "', " & _
                        "'" & strUserID & "', " & _
                        "'" & "06" & "', " & _
                        "'" & strFormID & "', " & _
                        "'" & "01" & "', " & _
                        "'" & ctlCName & "', " & _
                        "'" & Replace(ctlCOldValue, "'", "''") & "', " & _
                        "'" & Replace(ctlC, "'", "''") & "', " & _
                        "'" & Now() & "'"
                    'Debug.Print strSQL
                    DoCmd.RunSQL strSQL
                End If
            End If
        End If
    Next ctlC
    
    WriteAudit06 = bOK
    
exit_WriteAudit06:
    DoCmd.SetWarnings True
    Exit Function
    
err_WriteAudit06:
    'MsgBox Err.Description
    Resume exit_WriteAudit06
    
End Function

Travis

http://www.enterprise.com

"Why would I ever want to learn about programming when Micorsoft products would be able to handle even the simplest of tasks. Oh...wait a minute...something's wrong with that statement!

 

[dhookom]

I would use this code:

                        "Values ('" & Form_frmIMStationsNewRequestLog.RequestNumber & "', " & _
                        "'" & strUserID & "', " & _
                        "'" & "06" & "', " & _
                        "'" & strFormID & "', " & _
                        "'" & "01" & "', " & _
                        "'" & ctlCName & "', " & _
                        "'" & Replace(ctlCOldValue, "'", "''") & "', " & _
                        "'" & Replace(ctlC, "'", "''") & "', " & _
                        "'" & Now() & "')"

Duane
Hook'D on Access
MS Access MVP

 

[newguy86]

I just tried it and I received the same result. Its only recording 4 of the changes.

Travis

http://www.enterprise.com

"Why would I ever want to learn about programming when Micorsoft products would be able to handle even the simplest of tasks. Oh...wait a minute...something's wrong with that statement!

 

[dhookom]

Turn your error handling back on so you can catch them.

Duane
Hook'D on Access
MS Access MVP

 

[newguy86]

I did and it doesn't catch anything.

Don't forget! When I step through the code it records every single change I made. It's only when the code is running at full speed does it not work.

Travis

http://www.enterprise.com

"Why would I ever want to learn about programming when Micorsoft products would be able to handle even the simplest of tasks. Oh...wait a minute...something's wrong with that statement!

 

[dhookom]

It could be a timing issue with too much trying to happen at once. I'm not sure if you can add something to slow it down.

Duane
Hook'D on Access
MS Access MVP

 

[TheAceMan1]

How are ya newguy86 . . .

Post back a [blue]Debug.Print strSQL[/blue] when it fails. I'm suspecting datatype mismatching here. As an example: [blue]Now()[/blue] returns a numeric value ... not a string. Which jives with [blue]DateOfHit[/blue] a date field ... also numeric. Everyting is a string as you have it!

[blue]your Thoughts? . . .[/blue]

See Ya! . . . . . .

Be sure to see thread181-473997 [blue]Worthy Reading![/blue]
Also faq181-2886 [blue]Worthy Reading![/blue]

 

[newguy86]

dhookom,
Thank you for your input. I was thinking it was the same issue so I put in this code:

TWait = 0
Do Until TWait = 25999
  If TWait <> 25999 Then
    TWait = TWait + 1
  Else
    Exit Do
  End If
Loop

and it seems to help the situation but it can still be a little unstable at times.

Do you know of something better that I can use?

TheAceMan1,
I am doing good! How about yourself?

I added in the Debug.Pring strSQL part and I guess this is where my "New Guyness" shines through because evertime I try to use it, nothing ever prints for me.

So do you know what I might be doing wrong?

And if anyone has other suggestions, it would be greatly appreciated.

Travis

http://www.enterprise.com

"Why would I ever want to learn about programming when Micorsoft products would be able to handle even the simplest of tasks. Oh...wait a minute...something's wrong with that statement!

 

[dhookom]

To view the results of debug.Print, you need to open the debug window, press Ctrl+G.

Aceman also asked about some data types of fields which have ignored.

Duane
Hook'D on Access
MS Access MVP

 

[newguy86]

Thanks dhookom!

Using my original code here is what it returned:

INSERT INTO tblDbLog (RecordID, UserID, DbID, FrmID, ActivityID, FieldChanged, FieldChangedFrom, FieldChangedTo, DateOfHit)
SELECT'100113-144832', 'e*****', '06', '09', '01', 'DateTaggedGDSAgent', '3/29/2010 3:31:43 PM', '3/29/2010 3:34:04 PM', '3/29/2010 3:34:12 PM'

INSERT INTO tblDbLog (RecordID, UserID, DbID, FrmID, ActivityID, FieldChanged, FieldChangedFrom, FieldChangedTo, DateOfHit)
SELECT'100113-144832', 'e*****', '06', '09', '01', 'GDSStatus', 'IN-PROGRESS', 'COMPLETED', '3/29/2010 3:34:13 PM'

INSERT INTO tblDbLog (RecordID, UserID, DbID, FrmID, ActivityID, FieldChanged, FieldChangedFrom, FieldChangedTo, DateOfHit)
SELECT'100113-144832', 'e*****', '06', '09', '01', 'GDSCompleted', '0', '-1', '3/29/2010 3:34:13 PM'

INSERT INTO tblDbLog (RecordID, UserID, DbID, FrmID, ActivityID, FieldChanged, FieldChangedFrom, FieldChangedTo, DateOfHit)
SELECT'100113-144832', 'e*****', '06', '09', '01', 'GDSAgent2', 'Null', 'TRAVIS CONOYER', '3/29/2010 3:34:13 PM'

INSERT INTO tblDbLog (RecordID, UserID, DbID, FrmID, ActivityID, FieldChanged, FieldChangedFrom, FieldChangedTo, DateOfHit)
SELECT'100113-144832', 'e*****', '06', '09', '01', 'SABRECompleted', '0', '-1', '3/29/2010 3:34:13 PM'

INSERT INTO tblDbLog (RecordID, UserID, DbID, FrmID, ActivityID, FieldChanged, FieldChangedFrom, FieldChangedTo, DateOfHit)
SELECT'100113-144832', 'e*****', '06', '09', '01', 'WSPANCompleted', '0', '-1', '3/29/2010 3:34:14 PM'

INSERT INTO tblDbLog (RecordID, UserID, DbID, FrmID, ActivityID, FieldChanged, FieldChangedFrom, FieldChangedTo, DateOfHit)
SELECT'100113-144832', 'e*****', '06', '09', '01', 'GPCARCompleted', '0', '-1', '3/29/2010 3:34:14 PM'

INSERT INTO tblDbLog (RecordID, UserID, DbID, FrmID, ActivityID, FieldChanged, FieldChangedFrom, FieldChangedTo, DateOfHit)
SELECT'100113-144832', 'e*****', '06', '09', '01', 'AmadeusCompleted', '0', '-1', '3/29/2010 3:34:14 PM'

INSERT INTO tblDbLog (RecordID, UserID, DbID, FrmID, ActivityID, FieldChanged, FieldChangedFrom, FieldChangedTo, DateOfHit)
SELECT'100113-144832', 'e*****', '06', '09', '01', 'SABRECompletedEmpID', '', 'e*****', '3/29/2010 3:34:14 PM'

INSERT INTO tblDbLog (RecordID, UserID, DbID, FrmID, ActivityID, FieldChanged, FieldChangedFrom, FieldChangedTo, DateOfHit)
SELECT'100113-144832', 'e*****', '06', '09', '01', 'WSPANCompletedEmpID', '', 'e*****', '3/29/2010 3:34:14 PM'

INSERT INTO tblDbLog (RecordID, UserID, DbID, FrmID, ActivityID, FieldChanged, FieldChangedFrom, FieldChangedTo, DateOfHit)
SELECT'100113-144832', 'e*****', '06', '09', '01', 'GPCARCompletedEmpID', '', 'e*****', '3/29/2010 3:34:15 PM'

INSERT INTO tblDbLog (RecordID, UserID, DbID, FrmID, ActivityID, FieldChanged, FieldChangedFrom, FieldChangedTo, DateOfHit)
SELECT'100113-144832', 'e*****', '06', '09', '01', 'AmadeusCompletedEmpID', '', 'e*****', '3/29/2010 3:34:15 PM'

INSERT INTO tblDbLog (RecordID, UserID, DbID, FrmID, ActivityID, FieldChanged, FieldChangedFrom, FieldChangedTo, DateOfHit)
SELECT'100113-144832', 'e*****', '06', '09', '01', 'ATPCoCompleted', '0', '-1', '3/29/2010 3:34:15 PM'

INSERT INTO tblDbLog (RecordID, UserID, DbID, FrmID, ActivityID, FieldChanged, FieldChangedFrom, FieldChangedTo, DateOfHit)
SELECT'100113-144832', 'e*****', '06', '09', '01', 'ATPCoCompletedEmpID', '', 'e*****', '3/29/2010 3:34:15 PM'

INSERT INTO tblDbLog (RecordID, UserID, DbID, FrmID, ActivityID, FieldChanged, FieldChangedFrom, FieldChangedTo, DateOfHit)
SELECT'100113-144832', 'e*****', '06', '09', '01', 'OdysseyCompleted', '0', '-1', '3/29/2010 3:34:15 PM'

INSERT INTO tblDbLog (RecordID, UserID, DbID, FrmID, ActivityID, FieldChanged, FieldChangedFrom, FieldChangedTo, DateOfHit)
SELECT'100113-144832', 'e*****', '06', '09', '01', 'OdysseyCompletedEmpID', '', 'e*****', '3/29/2010 3:34:16 PM'

INSERT INTO tblDbLog (RecordID, UserID, DbID, FrmID, ActivityID, FieldChanged, FieldChangedFrom, FieldChangedTo, DateOfHit)
SELECT'100113-144832', 'e*****', '06', '09', '01', 'AISCompleted', '0', '-1', '3/29/2010 3:34:16 PM'

INSERT INTO tblDbLog (RecordID, UserID, DbID, FrmID, ActivityID, FieldChanged, FieldChangedFrom, FieldChangedTo, DateOfHit)
SELECT'100113-144832', 'e*****', '06', '09', '01', 'AISCompletedEmpID', '', 'e*****', '3/29/2010 3:34:16 PM'

Thoughts?

Travis

http://www.enterprise.com

"Why would I ever want to learn about programming when Micorsoft products would be able to handle even the simplest of tasks. Oh...wait a minute...something's wrong with that statement!

 

[dhookom]

Your code was missing a space after SELECT. However, I suggested using Values ( rather than SELECT in my posting on 26 Mar 10 14:34. I would expect to see:

INSERT INTO tblDbLog (RecordID, UserID, DbID, FrmID, ActivityID, FieldChanged, FieldChangedFrom, FieldChangedTo, DateOfHit) 
VALUES ('100113-144832', 'e*****', '06', '09', '01', 'AISCompletedEmpID', '', 'e*****', '3/29/2010 3:34:16 PM')

I also asked you to explain your data types which you didn't.

If you want assistance, you need to respond to suggestions and questions.

Duane
Hook'D on Access
MS Access MVP

 

[newguy86]

Here is the output using Values instead of SELECT:

INSERT INTO tblDbLog (RecordID, UserID, DbID, FrmID, ActivityID, FieldChanged, FieldChangedFrom, FieldChangedTo, DateOfHit)
Values ('100113-144832', 'e512dq', '06', '09', '01', 'DateTaggedGDSAgent', '3/29/2010 3:34:04 PM', '3/30/2010 5:50:45 PM', '3/30/2010 5:50:52 PM')
INSERT INTO tblDbLog (RecordID, UserID, DbID, FrmID, ActivityID, FieldChanged, FieldChangedFrom, FieldChangedTo, DateOfHit)
Values ('100113-144832', 'e512dq', '06', '09', '01', 'GDSStatus', 'COMPLETED', 'IN-PROGRESS', '3/30/2010 5:50:52 PM')
INSERT INTO tblDbLog (RecordID, UserID, DbID, FrmID, ActivityID, FieldChanged, FieldChangedFrom, FieldChangedTo, DateOfHit)
Values ('100113-144832', 'e512dq', '06', '09', '01', 'GDSCompleted', '-1', '0', '3/30/2010 5:50:52 PM')
INSERT INTO tblDbLog (RecordID, UserID, DbID, FrmID, ActivityID, FieldChanged, FieldChangedFrom, FieldChangedTo, DateOfHit)
Values ('100113-144832', 'e512dq', '06', '09', '01', 'SABRECompleted', '-1', '0', '3/30/2010 5:50:53 PM')
INSERT INTO tblDbLog (RecordID, UserID, DbID, FrmID, ActivityID, FieldChanged, FieldChangedFrom, FieldChangedTo, DateOfHit)
Values ('100113-144832', 'e512dq', '06', '09', '01', 'WSPANCompleted', '-1', '0', '3/30/2010 5:50:53 PM')
INSERT INTO tblDbLog (RecordID, UserID, DbID, FrmID, ActivityID, FieldChanged, FieldChangedFrom, FieldChangedTo, DateOfHit)
Values ('100113-144832', 'e512dq', '06', '09', '01', 'GPCARCompleted', '-1', '0', '3/30/2010 5:50:53 PM')
INSERT INTO tblDbLog (RecordID, UserID, DbID, FrmID, ActivityID, FieldChanged, FieldChangedFrom, FieldChangedTo, DateOfHit)
Values ('100113-144832', 'e512dq', '06', '09', '01', 'AmadeusCompleted', '-1', '0', '3/30/2010 5:50:53 PM')
INSERT INTO tblDbLog (RecordID, UserID, DbID, FrmID, ActivityID, FieldChanged, FieldChangedFrom, FieldChangedTo, DateOfHit)
Values ('100113-144832', 'e512dq', '06', '09', '01', 'SABRECompletedEmpID', 'e512dq', '', '3/30/2010 5:50:53 PM')
INSERT INTO tblDbLog (RecordID, UserID, DbID, FrmID, ActivityID, FieldChanged, FieldChangedFrom, FieldChangedTo, DateOfHit)
Values ('100113-144832', 'e512dq', '06', '09', '01', 'WSPANCompletedEmpID', 'e512dq', '', '3/30/2010 5:50:54 PM')
INSERT INTO tblDbLog (RecordID, UserID, DbID, FrmID, ActivityID, FieldChanged, FieldChangedFrom, FieldChangedTo, DateOfHit)
Values ('100113-144832', 'e512dq', '06', '09', '01', 'GPCARCompletedEmpID', 'e512dq', '', '3/30/2010 5:50:54 PM')
INSERT INTO tblDbLog (RecordID, UserID, DbID, FrmID, ActivityID, FieldChanged, FieldChangedFrom, FieldChangedTo, DateOfHit)
Values ('100113-144832', 'e512dq', '06', '09', '01', 'AmadeusCompletedEmpID', 'e512dq', '', '3/30/2010 5:50:54 PM')
INSERT INTO tblDbLog (RecordID, UserID, DbID, FrmID, ActivityID, FieldChanged, FieldChangedFrom, FieldChangedTo, DateOfHit)
Values ('100113-144832', 'e512dq', '06', '09', '01', 'ATPCoCompleted', '-1', '0', '3/30/2010 5:50:54 PM')
INSERT INTO tblDbLog (RecordID, UserID, DbID, FrmID, ActivityID, FieldChanged, FieldChangedFrom, FieldChangedTo, DateOfHit)
Values ('100113-144832', 'e512dq', '06', '09', '01', 'ATPCoCompletedEmpID', 'e512dq', '', '3/30/2010 5:50:54 PM')
INSERT INTO tblDbLog (RecordID, UserID, DbID, FrmID, ActivityID, FieldChanged, FieldChangedFrom, FieldChangedTo, DateOfHit)
Values ('100113-144832', 'e512dq', '06', '09', '01', 'OdysseyCompleted', '-1', '0', '3/30/2010 5:50:55 PM')
INSERT INTO tblDbLog (RecordID, UserID, DbID, FrmID, ActivityID, FieldChanged, FieldChangedFrom, FieldChangedTo, DateOfHit)
Values ('100113-144832', 'e512dq', '06', '09', '01', 'OdysseyCompletedEmpID', 'e512dq', '', '3/30/2010 5:50:55 PM')
INSERT INTO tblDbLog (RecordID, UserID, DbID, FrmID, ActivityID, FieldChanged, FieldChangedFrom, FieldChangedTo, DateOfHit)
Values ('100113-144832', 'e512dq', '06', '09', '01', 'AISCompleted', '-1', '0', '3/30/2010 5:50:55 PM')
INSERT INTO tblDbLog (RecordID, UserID, DbID, FrmID, ActivityID, FieldChanged, FieldChangedFrom, FieldChangedTo, DateOfHit)
Values ('100113-144832', 'e512dq', '06', '09', '01', 'AISCompletedEmpID', 'e512dq', '', '3/30/2010 5:50:55 PM')

As far as data types go all of the fields are setup as 'Memo' so that they take up as little space as possible.

My apologies for not answering your questions! I was not aware at the time that any were posted.

Travis

http://www.enterprise.com

"Why would I ever want to learn about programming when Micorsoft products would be able to handle even the simplest of tasks. Oh...wait a minute...something's wrong with that statement!

 

[dhookom]

I would change the data types to something other than memo. If your From and To fields might need memo then so be it. Otherwise the fields should be text 255 or date. There is no space savings by using memo fields.

Does your problem go away if you implement these changes?

Duane
Hook'D on Access
MS Access MVP

 

[newguy86]

I am still experiencing the same issue.

Thoughts?

Travis

http://www.enterprise.com

"Why would I ever want to learn about programming when Micorsoft products would be able to handle even the simplest of tasks. Oh...wait a minute...something's wrong with that statement!

 

[dhookom]

Did you change the field types?
Can you share you current code?

Duane
Hook'D on Access
MS Access MVP

 

[newguy86]

Yes I did change the field types.

Public Function WriteAudit06(frm As Form, lngID As String) As Boolean
On Error GoTo err_WriteAudit06

    Dim ctlC As Control
    Dim ctlCName As String
    Dim ctlCOldValue As String
    Dim fldF As Field
    Dim strSQL As String
    Dim bOK As Boolean
    Dim strFormID As String
    Dim strUserID As String
    
    bOK = False
    strFormID = "09"
    DoCmd.SetWarnings False
    
    strUserID = GetUserName_TSB
    
    ' For each control.
    For Each ctlC In frm.Controls
        If TypeOf ctlC Is TextBox Or TypeOf ctlC Is ComboBox Or TypeOf ctlC Is CheckBox Then
            ctlCName = ctlC.Name
            If IsNull(ctlC.OldValue) Then
                ctlCOldValue = "Null"
            Else
                ctlCOldValue = ctlC.OldValue
            End If
            If ctlC <> ctlC.OldValue Or IsNull(ctlC.OldValue) Then
                If Not IsNull(ctlC) Then
                    strSQL = "INSERT INTO tblDbLog (RecordID, UserID, DbID, FrmID, ActivityID, FieldChanged, FieldChangedFrom, FieldChangedTo, DateOfHit) " & _
                        "Values ('" & Form_frmIMStationsEditRequestLog.RequestNumber & "', " & _
                        "'" & strUserID & "', " & _
                        "'" & "06" & "', " & _
                        "'" & strFormID & "', " & _
                        "'" & "01" & "', " & _
                        "'" & ctlCName & "', " & _
                        "'" & Replace(ctlCOldValue, "'", "''") & "', " & _
                        "'" & Replace(ctlC, "'", "''") & "', " & _
                        "'" & Now() & "')"
                    Debug.Print strSQL
                    DoCmd.RunSQL strSQL
                End If
            End If
        End If
    Next ctlC
    
    WriteAudit06 = bOK
    
exit_WriteAudit06:
    DoCmd.SetWarnings True
    Exit Function
    
err_WriteAudit06:
    'MsgBox Err.Description
    Resume exit_WriteAudit06
    
End Function
[\Code]

Travis
[URL unfurl="true"]www.enterprise.com[/URL]

"Why would I ever want to learn about programming when Micorsoft products would be able to handle even the simplest of tasks. Oh...wait a minute...something's wrong with that statement!

 

[newguy86]

Here is a break down of what the data type is for each field:

RecordID - Text 255
UserID - Text 255
DbID - Text 255
FrmID - Text 255
ActivityID - Text 255
FieldChanged - Text 255
FieldChangedFrom - Memo
FieldChangedTo - Memo
DateOfHit - Date/Time

Travis

http://www.enterprise.com

"Why would I ever want to learn about programming when Micorsoft products would be able to handle even the simplest of tasks. Oh...wait a minute...something's wrong with that statement!

 

[dhookom]

I think execute might be a little quicker. You can try replace

                    DoCmd.RunSQL strSQL

With

                    currentdb.execute strSQL

Also, you seem to have taken out the TWait code. I thought it helped some.

Duane
Hook'D on Access
MS Access MVP

 

[newguy86]

dhookom,
I put in the code and now we are getting 6 records to display instead of just 4. But I think I might know what the issue is. If you look at the output I commented with earlier all 17 of the entries were getting logged into the table withing 4 seconds of each other.

Now with the output listed below all 17 entries are getting logged into the table within 6 seconds of each other. So I think that the issue might be that the table is only allowing one record every second to be entered.

Let me dig a little deeper into that theory and I will post back if anything comes of it.

Is there anything else that you think it could be?

INSERT INTO tblDbLog (RecordID, UserID, DbID, FrmID, ActivityID, FieldChanged, FieldChangedFrom, FieldChangedTo, DateOfHit)
Values ('100208-090333', 'e512dq', '06', '09', '01', 'DateTaggedGDSAgent', 'Null', '4/2/2010 10:13:17 AM', '4/2/2010 10:16:30 AM')
INSERT INTO tblDbLog (RecordID, UserID, DbID, FrmID, ActivityID, FieldChanged, FieldChangedFrom, FieldChangedTo, DateOfHit)
Values ('100208-090333', 'e512dq', '06', '09', '01', 'GDSStatus', 'PENDING', 'COMPLETED', '4/2/2010 10:16:31 AM')
INSERT INTO tblDbLog (RecordID, UserID, DbID, FrmID, ActivityID, FieldChanged, FieldChangedFrom, FieldChangedTo, DateOfHit)
Values ('100208-090333', 'e512dq', '06', '09', '01', 'GDSCompleted', '0', '-1', '4/2/2010 10:16:31 AM')
INSERT INTO tblDbLog (RecordID, UserID, DbID, FrmID, ActivityID, FieldChanged, FieldChangedFrom, FieldChangedTo, DateOfHit)
Values ('100208-090333', 'e512dq', '06', '09', '01', 'GDSAgent', 'Null', 'TRAVIS CONOYER', '4/2/2010 10:16:31 AM')
INSERT INTO tblDbLog (RecordID, UserID, DbID, FrmID, ActivityID, FieldChanged, FieldChangedFrom, FieldChangedTo, DateOfHit)
Values ('100208-090333', 'e512dq', '06', '09', '01', 'SABRECompleted', '0', '-1', '4/2/2010 10:16:32 AM')
INSERT INTO tblDbLog (RecordID, UserID, DbID, FrmID, ActivityID, FieldChanged, FieldChangedFrom, FieldChangedTo, DateOfHit)
Values ('100208-090333', 'e512dq', '06', '09', '01', 'WSPANCompleted', '0', '-1', '4/2/2010 10:16:32 AM')
INSERT INTO tblDbLog (RecordID, UserID, DbID, FrmID, ActivityID, FieldChanged, FieldChangedFrom, FieldChangedTo, DateOfHit)
Values ('100208-090333', 'e512dq', '06', '09', '01', 'GPCARCompleted', '0', '-1', '4/2/2010 10:16:32 AM')
INSERT INTO tblDbLog (RecordID, UserID, DbID, FrmID, ActivityID, FieldChanged, FieldChangedFrom, FieldChangedTo, DateOfHit)
Values ('100208-090333', 'e512dq', '06', '09', '01', 'AmadeusCompleted', '0', '-1', '4/2/2010 10:16:33 AM')
INSERT INTO tblDbLog (RecordID, UserID, DbID, FrmID, ActivityID, FieldChanged, FieldChangedFrom, FieldChangedTo, DateOfHit)
Values ('100208-090333', 'e512dq', '06', '09', '01', 'SABRECompletedEmpID', 'Null', 'e512dq', '4/2/2010 10:16:33 AM')
INSERT INTO tblDbLog (RecordID, UserID, DbID, FrmID, ActivityID, FieldChanged, FieldChangedFrom, FieldChangedTo, DateOfHit)
Values ('100208-090333', 'e512dq', '06', '09', '01', 'WSPANCompletedEmpID', 'Null', 'e512dq', '4/2/2010 10:16:33 AM')
INSERT INTO tblDbLog (RecordID, UserID, DbID, FrmID, ActivityID, FieldChanged, FieldChangedFrom, FieldChangedTo, DateOfHit)
Values ('100208-090333', 'e512dq', '06', '09', '01', 'GPCARCompletedEmpID', 'Null', 'e512dq', '4/2/2010 10:16:34 AM')
INSERT INTO tblDbLog (RecordID, UserID, DbID, FrmID, ActivityID, FieldChanged, FieldChangedFrom, FieldChangedTo, DateOfHit)
Values ('100208-090333', 'e512dq', '06', '09', '01', 'AmadeusCompletedEmpID', 'Null', 'e512dq', '4/2/2010 10:16:34 AM')
INSERT INTO tblDbLog (RecordID, UserID, DbID, FrmID, ActivityID, FieldChanged, FieldChangedFrom, FieldChangedTo, DateOfHit)
Values ('100208-090333', 'e512dq', '06', '09', '01', 'ATPCoCompleted', '0', '-1', '4/2/2010 10:16:34 AM')
INSERT INTO tblDbLog (RecordID, UserID, DbID, FrmID, ActivityID, FieldChanged, FieldChangedFrom, FieldChangedTo, DateOfHit)
Values ('100208-090333', 'e512dq', '06', '09', '01', 'ATPCoCompletedEmpID', 'Null', 'e512dq', '4/2/2010 10:16:35 AM')
INSERT INTO tblDbLog (RecordID, UserID, DbID, FrmID, ActivityID, FieldChanged, FieldChangedFrom, FieldChangedTo, DateOfHit)
Values ('100208-090333', 'e512dq', '06', '09', '01', 'OdysseyCompleted', '0', '-1', '4/2/2010 10:16:35 AM')
INSERT INTO tblDbLog (RecordID, UserID, DbID, FrmID, ActivityID, FieldChanged, FieldChangedFrom, FieldChangedTo, DateOfHit)
Values ('100208-090333', 'e512dq', '06', '09', '01', 'OdysseyCompletedEmpID', 'Null', 'e512dq', '4/2/2010 10:16:35 AM')
INSERT INTO tblDbLog (RecordID, UserID, DbID, FrmID, ActivityID, FieldChanged, FieldChangedFrom, FieldChangedTo, DateOfHit)
Values ('100208-090333', 'e512dq', '06', '09', '01', 'AISCompleted', '0', '-1', '4/2/2010 10:16:36 AM')
INSERT INTO tblDbLog (RecordID, UserID, DbID, FrmID, ActivityID, FieldChanged, FieldChangedFrom, FieldChangedTo, DateOfHit)
Values ('100208-090333', 'e512dq', '06', '09', '01', 'AISCompletedEmpID', 'Null', 'e512dq', '4/2/2010 10:16:36 AM')





Travis

http://www.enterprise.com

"Why would I ever want to learn about programming when Micorsoft products would be able to handle even the simplest of tasks. Oh...wait a minute...something's wrong with that statement!

 

[dhookom]

Is tblDbLog a local or linked Access table?
I wonder if all of these could be wrapped in a transaction and then committed once.

Duane
Hook'D on Access
MS Access MVP