Access object error

G

Guest

I am getting error messages stating that 'the object does not exist' when I
run the following code, used to compare a current record with the last one
for a consecutive increase in at least 2 fields of 15dB or more. I would be
grateful for some help please as I have tried revising this code many times
without success.

'This code for the ongoing comparison to baseline tests..


Dim dbs As Database, rst As Recordset
Dim strSelect As String



Dim L1 As Double, R1 As Double, L2 As Double, R2 As Double, L3 As Double, R3
As Double, L4 As Double, R4 As Double, L5 As Double, R5 As Double

Set dbs = CurrentDb

strSelect = "SELECT * FROM [Audio History]ORDER BY [Audio
History].DateCompleted DESC;"

Set rst = dbs.OpenRecordset(strSelect)






L1 = rst(CDbl([L1000]))
R1 = rst(CDbl([R1000]))
L2 = rst(CDbl([L2000]))
R2 = rst(CDbl([R2000]))
L3 = rst(CDbl([l3000]))
R3 = rst(CDbl([R3000]))
L4 = rst(CDbl([L4000]))
R4 = rst(CDbl([R4000]))
L5 = rst(CDbl([L6000]))
R5 = rst(CDbl([R6000]))


rst.MoveNext

If (L1 > rst([L1000] + 14) And (L2 > rst([L2000] + 14))) Then
[ComparisonWithLast] = "Abnormal Shift"

End If

If (L2 > rst([L2000] + 14) And (L3 > rst([l3000] + 14))) Then
[ComparisonWithLast] = "Abnormal Shift"

End If

If (L3 > rst([l3000] + 14) And (L4 > rst([L4000] + 14))) Then
[ComparisonWithLast] = "Abnormal Shift"

End If

If (L4 > rst([L4000] + 14) And (L5 > rst([L5000] + 14))) Then
[ComparisonWithLast] = "Abnormal Shift"

End If

If (R1 > rst([R1000] + 14) And (R2 > rst([R2000] + 14))) Then
[ComparisonWithLast] = "Abnormal Shift"

End If

If (R2 > rst([R2000] + 14) And (R3 > rst([R3000] + 14))) Then
[ComparisonWithLast] = "Abnormal Shift"

End If

If (R3 > rst([R3000] + 14) And (R4 > rst([R4000] + 14))) Then
[ComparisonWithLast] = "Abnormal Shift"

End If

If (R4 > rst([R4000] + 14) And (R5 > rst([R5000] + 14))) Then
[ComparisonWithLast] = "Abnormal Shift"

Else: [ComparisonWithLast] = "No Change"
rst.Close

End If


End Sub
 
R

RuralGuy

I am getting error messages stating that 'the object does not exist' when I
run the following code, used to compare a current record with the last one
for a consecutive increase in at least 2 fields of 15dB or more. I would be
grateful for some help please as I have tried revising this code many times
without success.

'This code for the ongoing comparison to baseline tests..


Dim dbs As Database, rst As Recordset
Dim strSelect As String



Dim L1 As Double, R1 As Double, L2 As Double, R2 As Double, L3 As Double, R3
As Double, L4 As Double, R4 As Double, L5 As Double, R5 As Double

Set dbs = CurrentDb

strSelect = "SELECT * FROM [Audio History]ORDER BY [Audio
History].DateCompleted DESC;"

Set rst = dbs.OpenRecordset(strSelect)






L1 = rst(CDbl([L1000]))
R1 = rst(CDbl([R1000]))
L2 = rst(CDbl([L2000]))
R2 = rst(CDbl([R2000]))
L3 = rst(CDbl([l3000]))
R3 = rst(CDbl([R3000]))
L4 = rst(CDbl([L4000]))
R4 = rst(CDbl([R4000]))
L5 = rst(CDbl([L6000]))
R5 = rst(CDbl([R6000]))


rst.MoveNext

If (L1 > rst([L1000] + 14) And (L2 > rst([L2000] + 14))) Then
[ComparisonWithLast] = "Abnormal Shift"

End If

If (L2 > rst([L2000] + 14) And (L3 > rst([l3000] + 14))) Then
[ComparisonWithLast] = "Abnormal Shift"

End If

If (L3 > rst([l3000] + 14) And (L4 > rst([L4000] + 14))) Then
[ComparisonWithLast] = "Abnormal Shift"

End If

If (L4 > rst([L4000] + 14) And (L5 > rst([L5000] + 14))) Then
[ComparisonWithLast] = "Abnormal Shift"

End If

If (R1 > rst([R1000] + 14) And (R2 > rst([R2000] + 14))) Then
[ComparisonWithLast] = "Abnormal Shift"

End If

If (R2 > rst([R2000] + 14) And (R3 > rst([R3000] + 14))) Then
[ComparisonWithLast] = "Abnormal Shift"

End If

If (R3 > rst([R3000] + 14) And (R4 > rst([R4000] + 14))) Then
[ComparisonWithLast] = "Abnormal Shift"

End If

If (R4 > rst([R4000] + 14) And (R5 > rst([R5000] + 14))) Then
[ComparisonWithLast] = "Abnormal Shift"

Else: [ComparisonWithLast] = "No Change"
rst.Close

End If

End Sub
Click to expand...

I'm not familiar with the particular syntax you used so I rewrote
your code with syntax I know. I also rearranged some of the
code and added some clean-up at the end.

I also made an assumption that [ComparisonWithLast] was a field
in your recordset. If it is a control on a form then the syntax
would be Me.ComparisonWithLast.

This code also *only* works with the first two records in the
RecordSet.

***** begin code *****

Private Sub YourSub()

Dim dbs As DAO.Database, rst As DAO.Recordset
Dim strSelect As String

Dim L1 As Double, R1 As Double, L2 As Double
Dim R2 As Double, L3 As Double, R3 As Double
Dim L4 As Double, R4 As Double, L5 As Double, R5 As Double

Set dbs = CurrentDb

strSelect = "SELECT * FROM [Audio History] " & _
"ORDER BY [Audio History].DateCompleted DESC;"

Set rst = dbs.OpenRecordset(strSelect)

L1 = CDbl(rst![L1000])
R1 = CDbl(rst![R1000])

L2 = CDbl(rst![L2000])
R2 = CDbl(rst![R2000])

L3 = CDbl(rst![l3000])
R3 = CDbl(rst![R3000])

L4 = CDbl(rst![L4000])
R4 = CDbl(rst![R4000])

L5 = CDbl(rst![L6000])
R5 = CDbl(rst![R6000])

rst.MoveNext

'-- Default the comparison
rst![ComparisonWithLast] = "No Change"

If L1 > (rst![L1000] + 14) And L2 > (rst![L2000] + 14) Then
rst![ComparisonWithLast] = "Abnormal Shift"
End If

If L2 > (rst![L2000] + 14) And L3 > (rst![l3000] + 14) Then
rst![ComparisonWithLast] = "Abnormal Shift"
End If

If L3 > (rst![l3000] + 14) And L4 > (rst![L4000] + 14) Then
rst![ComparisonWithLast] = "Abnormal Shift"
End If

If L4 > (rst![L4000] + 14) And L5 > (rst![L5000] + 14) Then
rst![ComparisonWithLast] = "Abnormal Shift"
End If

If R1 > (rst![R1000] + 14) And R2 > (rst![R2000] + 14) Then
rst![ComparisonWithLast] = "Abnormal Shift"
End If

If R2 > (rst![R2000] + 14) And R3 > (rst![R3000] + 14) Then
rst![ComparisonWithLast] = "Abnormal Shift"
End If

If R3 > (rst![R3000] + 14) And R4 > (rst![R4000] + 14) Then
rst![ComparisonWithLast] = "Abnormal Shift"
End If

If R4 > (rst![R4000] + 14) And R5 > (rst![R5000] + 14) Then
rst![ComparisonWithLast] = "Abnormal Shift"
End If

rst.Close
Set rst = Nothing
Set dbs = Nothing

End Sub

***** end code *****
_______________________________________________
hth - RuralGuy (RG for short)
Please post to the NewsGroup so all may benefit.
 
G

Guest

Hi RG

I truly appreciate your work on this and thanks for your time....when I run
it the code stalls at this line with this error message: "Runtime error 3020
- Update or CancelUpdate Without AddNew or Edit"
line is:
rst![ComparisonWithLast] = "No Change"



RuralGuy said:
I am getting error messages stating that 'the object does not exist' when I
run the following code, used to compare a current record with the last one
for a consecutive increase in at least 2 fields of 15dB or more. I would be
grateful for some help please as I have tried revising this code many times
without success.

'This code for the ongoing comparison to baseline tests..


Dim dbs As Database, rst As Recordset
Dim strSelect As String



Dim L1 As Double, R1 As Double, L2 As Double, R2 As Double, L3 As Double, R3
As Double, L4 As Double, R4 As Double, L5 As Double, R5 As Double

Set dbs = CurrentDb

strSelect = "SELECT * FROM [Audio History]ORDER BY [Audio
History].DateCompleted DESC;"

Set rst = dbs.OpenRecordset(strSelect)






L1 = rst(CDbl([L1000]))
R1 = rst(CDbl([R1000]))
L2 = rst(CDbl([L2000]))
R2 = rst(CDbl([R2000]))
L3 = rst(CDbl([l3000]))
R3 = rst(CDbl([R3000]))
L4 = rst(CDbl([L4000]))
R4 = rst(CDbl([R4000]))
L5 = rst(CDbl([L6000]))
R5 = rst(CDbl([R6000]))


rst.MoveNext

If (L1 > rst([L1000] + 14) And (L2 > rst([L2000] + 14))) Then
[ComparisonWithLast] = "Abnormal Shift"

End If

If (L2 > rst([L2000] + 14) And (L3 > rst([l3000] + 14))) Then
[ComparisonWithLast] = "Abnormal Shift"

End If

If (L3 > rst([l3000] + 14) And (L4 > rst([L4000] + 14))) Then
[ComparisonWithLast] = "Abnormal Shift"

End If

If (L4 > rst([L4000] + 14) And (L5 > rst([L5000] + 14))) Then
[ComparisonWithLast] = "Abnormal Shift"

End If

If (R1 > rst([R1000] + 14) And (R2 > rst([R2000] + 14))) Then
[ComparisonWithLast] = "Abnormal Shift"

End If

If (R2 > rst([R2000] + 14) And (R3 > rst([R3000] + 14))) Then
[ComparisonWithLast] = "Abnormal Shift"

End If

If (R3 > rst([R3000] + 14) And (R4 > rst([R4000] + 14))) Then
[ComparisonWithLast] = "Abnormal Shift"

End If

If (R4 > rst([R4000] + 14) And (R5 > rst([R5000] + 14))) Then
[ComparisonWithLast] = "Abnormal Shift"

Else: [ComparisonWithLast] = "No Change"
rst.Close

End If

End Sub
Click to expand...

I'm not familiar with the particular syntax you used so I rewrote
your code with syntax I know. I also rearranged some of the
code and added some clean-up at the end.

I also made an assumption that [ComparisonWithLast] was a field
in your recordset. If it is a control on a form then the syntax
would be Me.ComparisonWithLast.

This code also *only* works with the first two records in the
RecordSet.

***** begin code *****

Private Sub YourSub()

Dim dbs As DAO.Database, rst As DAO.Recordset
Dim strSelect As String

Dim L1 As Double, R1 As Double, L2 As Double
Dim R2 As Double, L3 As Double, R3 As Double
Dim L4 As Double, R4 As Double, L5 As Double, R5 As Double

Set dbs = CurrentDb

strSelect = "SELECT * FROM [Audio History] " & _
"ORDER BY [Audio History].DateCompleted DESC;"

Set rst = dbs.OpenRecordset(strSelect)

L1 = CDbl(rst![L1000])
R1 = CDbl(rst![R1000])

L2 = CDbl(rst![L2000])
R2 = CDbl(rst![R2000])

L3 = CDbl(rst![l3000])
R3 = CDbl(rst![R3000])

L4 = CDbl(rst![L4000])
R4 = CDbl(rst![R4000])

L5 = CDbl(rst![L6000])
R5 = CDbl(rst![R6000])

rst.MoveNext

'-- Default the comparison
rst![ComparisonWithLast] = "No Change"

If L1 > (rst![L1000] + 14) And L2 > (rst![L2000] + 14) Then
rst![ComparisonWithLast] = "Abnormal Shift"
End If

If L2 > (rst![L2000] + 14) And L3 > (rst![l3000] + 14) Then
rst![ComparisonWithLast] = "Abnormal Shift"
End If

If L3 > (rst![l3000] + 14) And L4 > (rst![L4000] + 14) Then
rst![ComparisonWithLast] = "Abnormal Shift"
End If

If L4 > (rst![L4000] + 14) And L5 > (rst![L5000] + 14) Then
rst![ComparisonWithLast] = "Abnormal Shift"
End If

If R1 > (rst![R1000] + 14) And R2 > (rst![R2000] + 14) Then
rst![ComparisonWithLast] = "Abnormal Shift"
End If

If R2 > (rst![R2000] + 14) And R3 > (rst![R3000] + 14) Then
rst![ComparisonWithLast] = "Abnormal Shift"
End If

If R3 > (rst![R3000] + 14) And R4 > (rst![R4000] + 14) Then
rst![ComparisonWithLast] = "Abnormal Shift"
End If

If R4 > (rst![R4000] + 14) And R5 > (rst![R5000] + 14) Then
rst![ComparisonWithLast] = "Abnormal Shift"
End If

rst.Close
Set rst = Nothing
Set dbs = Nothing

End Sub

***** end code *****
_______________________________________________
hth - RuralGuy (RG for short)
Please post to the NewsGroup so all may benefit.
Click to expand...
 
R

RuralGuy

Is [ComparisonWithLast] a field in your table? If so, we need to change the
Set rst = dbs.OpenRecordset(strSelect) to:
Set rst = dbs.OpenRecordset(strSelect, dbOpenDynaset)

My bad. I should have caught it the first time.

Hi RG

I truly appreciate your work on this and thanks for your time....when I run
it the code stalls at this line with this error message: "Runtime error 3020
- Update or CancelUpdate Without AddNew or Edit"
line is:
rst![ComparisonWithLast] = "No Change"



RuralGuy said:
I am getting error messages stating that 'the object does not exist' when I
run the following code, used to compare a current record with the last one
for a consecutive increase in at least 2 fields of 15dB or more. I would be
grateful for some help please as I have tried revising this code many times
without success.

'This code for the ongoing comparison to baseline tests..


Dim dbs As Database, rst As Recordset
Dim strSelect As String



Dim L1 As Double, R1 As Double, L2 As Double, R2 As Double, L3 As Double, R3
As Double, L4 As Double, R4 As Double, L5 As Double, R5 As Double

Set dbs = CurrentDb

strSelect = "SELECT * FROM [Audio History]ORDER BY [Audio
History].DateCompleted DESC;"

Set rst = dbs.OpenRecordset(strSelect)






L1 = rst(CDbl([L1000]))
R1 = rst(CDbl([R1000]))
L2 = rst(CDbl([L2000]))
R2 = rst(CDbl([R2000]))
L3 = rst(CDbl([l3000]))
R3 = rst(CDbl([R3000]))
L4 = rst(CDbl([L4000]))
R4 = rst(CDbl([R4000]))
L5 = rst(CDbl([L6000]))
R5 = rst(CDbl([R6000]))


rst.MoveNext

If (L1 > rst([L1000] + 14) And (L2 > rst([L2000] + 14))) Then
[ComparisonWithLast] = "Abnormal Shift"

End If

If (L2 > rst([L2000] + 14) And (L3 > rst([l3000] + 14))) Then
[ComparisonWithLast] = "Abnormal Shift"

End If

If (L3 > rst([l3000] + 14) And (L4 > rst([L4000] + 14))) Then
[ComparisonWithLast] = "Abnormal Shift"

End If

If (L4 > rst([L4000] + 14) And (L5 > rst([L5000] + 14))) Then
[ComparisonWithLast] = "Abnormal Shift"

End If

If (R1 > rst([R1000] + 14) And (R2 > rst([R2000] + 14))) Then
[ComparisonWithLast] = "Abnormal Shift"

End If

If (R2 > rst([R2000] + 14) And (R3 > rst([R3000] + 14))) Then
[ComparisonWithLast] = "Abnormal Shift"

End If

If (R3 > rst([R3000] + 14) And (R4 > rst([R4000] + 14))) Then
[ComparisonWithLast] = "Abnormal Shift"

End If

If (R4 > rst([R4000] + 14) And (R5 > rst([R5000] + 14))) Then
[ComparisonWithLast] = "Abnormal Shift"

Else: [ComparisonWithLast] = "No Change"
rst.Close

End If

End Sub
Click to expand...

I'm not familiar with the particular syntax you used so I rewrote
your code with syntax I know. I also rearranged some of the
code and added some clean-up at the end.

I also made an assumption that [ComparisonWithLast] was a field
in your recordset. If it is a control on a form then the syntax
would be Me.ComparisonWithLast.

This code also *only* works with the first two records in the
RecordSet.

***** begin code *****

Private Sub YourSub()

Dim dbs As DAO.Database, rst As DAO.Recordset
Dim strSelect As String

Dim L1 As Double, R1 As Double, L2 As Double
Dim R2 As Double, L3 As Double, R3 As Double
Dim L4 As Double, R4 As Double, L5 As Double, R5 As Double

Set dbs = CurrentDb

strSelect = "SELECT * FROM [Audio History] " & _
"ORDER BY [Audio History].DateCompleted DESC;"

Set rst = dbs.OpenRecordset(strSelect)

L1 = CDbl(rst![L1000])
R1 = CDbl(rst![R1000])

L2 = CDbl(rst![L2000])
R2 = CDbl(rst![R2000])

L3 = CDbl(rst![l3000])
R3 = CDbl(rst![R3000])

L4 = CDbl(rst![L4000])
R4 = CDbl(rst![R4000])

L5 = CDbl(rst![L6000])
R5 = CDbl(rst![R6000])

rst.MoveNext

'-- Default the comparison
rst![ComparisonWithLast] = "No Change"

If L1 > (rst![L1000] + 14) And L2 > (rst![L2000] + 14) Then
rst![ComparisonWithLast] = "Abnormal Shift"
End If

If L2 > (rst![L2000] + 14) And L3 > (rst![l3000] + 14) Then
rst![ComparisonWithLast] = "Abnormal Shift"
End If

If L3 > (rst![l3000] + 14) And L4 > (rst![L4000] + 14) Then
rst![ComparisonWithLast] = "Abnormal Shift"
End If

If L4 > (rst![L4000] + 14) And L5 > (rst![L5000] + 14) Then
rst![ComparisonWithLast] = "Abnormal Shift"
End If

If R1 > (rst![R1000] + 14) And R2 > (rst![R2000] + 14) Then
rst![ComparisonWithLast] = "Abnormal Shift"
End If

If R2 > (rst![R2000] + 14) And R3 > (rst![R3000] + 14) Then
rst![ComparisonWithLast] = "Abnormal Shift"
End If

If R3 > (rst![R3000] + 14) And R4 > (rst![R4000] + 14) Then
rst![ComparisonWithLast] = "Abnormal Shift"
End If

If R4 > (rst![R4000] + 14) And R5 > (rst![R5000] + 14) Then
rst![ComparisonWithLast] = "Abnormal Shift"
End If

rst.Close
Set rst = Nothing
Set dbs = Nothing

End Sub

***** end code *****
_______________________________________________
hth - RuralGuy (RG for short)
Please post to the NewsGroup so all may benefit.
Click to expand...
Click to expand...

_______________________________________________
hth - RuralGuy (RG for short)
Please post to the NewsGroup so all may benefit.
 
G

Guest

RuralGuy said:
I am getting error messages stating that 'the object does not exist' when I
run the following code, used to compare a current record with the last one
for a consecutive increase in at least 2 fields of 15dB or more. I would be
grateful for some help please as I have tried revising this code many times
without success.

'This code for the ongoing comparison to baseline tests..


Dim dbs As Database, rst As Recordset
Dim strSelect As String



Dim L1 As Double, R1 As Double, L2 As Double, R2 As Double, L3 As Double, R3
As Double, L4 As Double, R4 As Double, L5 As Double, R5 As Double

Set dbs = CurrentDb

strSelect = "SELECT * FROM [Audio History]ORDER BY [Audio
History].DateCompleted DESC;"

Set rst = dbs.OpenRecordset(strSelect)






L1 = rst(CDbl([L1000]))
R1 = rst(CDbl([R1000]))
L2 = rst(CDbl([L2000]))
R2 = rst(CDbl([R2000]))
L3 = rst(CDbl([l3000]))
R3 = rst(CDbl([R3000]))
L4 = rst(CDbl([L4000]))
R4 = rst(CDbl([R4000]))
L5 = rst(CDbl([L6000]))
R5 = rst(CDbl([R6000]))


rst.MoveNext

If (L1 > rst([L1000] + 14) And (L2 > rst([L2000] + 14))) Then
[ComparisonWithLast] = "Abnormal Shift"

End If

If (L2 > rst([L2000] + 14) And (L3 > rst([l3000] + 14))) Then
[ComparisonWithLast] = "Abnormal Shift"

End If

If (L3 > rst([l3000] + 14) And (L4 > rst([L4000] + 14))) Then
[ComparisonWithLast] = "Abnormal Shift"

End If

If (L4 > rst([L4000] + 14) And (L5 > rst([L5000] + 14))) Then
[ComparisonWithLast] = "Abnormal Shift"

End If

If (R1 > rst([R1000] + 14) And (R2 > rst([R2000] + 14))) Then
[ComparisonWithLast] = "Abnormal Shift"

End If

If (R2 > rst([R2000] + 14) And (R3 > rst([R3000] + 14))) Then
[ComparisonWithLast] = "Abnormal Shift"

End If

If (R3 > rst([R3000] + 14) And (R4 > rst([R4000] + 14))) Then
[ComparisonWithLast] = "Abnormal Shift"

End If

If (R4 > rst([R4000] + 14) And (R5 > rst([R5000] + 14))) Then
[ComparisonWithLast] = "Abnormal Shift"

Else: [ComparisonWithLast] = "No Change"
rst.Close

End If

End Sub
Click to expand...

I'm not familiar with the particular syntax you used so I rewrote
your code with syntax I know. I also rearranged some of the
code and added some clean-up at the end.

I also made an assumption that [ComparisonWithLast] was a field
in your recordset. If it is a control on a form then the syntax
would be Me.ComparisonWithLast.

This code also *only* works with the first two records in the
RecordSet.

***** begin code *****

Private Sub YourSub()

Dim dbs As DAO.Database, rst As DAO.Recordset
Dim strSelect As String

Dim L1 As Double, R1 As Double, L2 As Double
Dim R2 As Double, L3 As Double, R3 As Double
Dim L4 As Double, R4 As Double, L5 As Double, R5 As Double

Set dbs = CurrentDb

strSelect = "SELECT * FROM [Audio History] " & _
"ORDER BY [Audio History].DateCompleted DESC;"

Set rst = dbs.OpenRecordset(strSelect)

L1 = CDbl(rst![L1000])
R1 = CDbl(rst![R1000])

L2 = CDbl(rst![L2000])
R2 = CDbl(rst![R2000])

L3 = CDbl(rst![l3000])
R3 = CDbl(rst![R3000])

L4 = CDbl(rst![L4000])
R4 = CDbl(rst![R4000])

L5 = CDbl(rst![L6000])
R5 = CDbl(rst![R6000])

rst.MoveNext

'-- Default the comparison
rst![ComparisonWithLast] = "No Change"

If L1 > (rst![L1000] + 14) And L2 > (rst![L2000] + 14) Then
rst![ComparisonWithLast] = "Abnormal Shift"
End If

If L2 > (rst![L2000] + 14) And L3 > (rst![l3000] + 14) Then
rst![ComparisonWithLast] = "Abnormal Shift"
End If

If L3 > (rst![l3000] + 14) And L4 > (rst![L4000] + 14) Then
rst![ComparisonWithLast] = "Abnormal Shift"
End If

If L4 > (rst![L4000] + 14) And L5 > (rst![L5000] + 14) Then
rst![ComparisonWithLast] = "Abnormal Shift"
End If

If R1 > (rst![R1000] + 14) And R2 > (rst![R2000] + 14) Then
rst![ComparisonWithLast] = "Abnormal Shift"
End If

If R2 > (rst![R2000] + 14) And R3 > (rst![R3000] + 14) Then
rst![ComparisonWithLast] = "Abnormal Shift"
End If

If R3 > (rst![R3000] + 14) And R4 > (rst![R4000] + 14) Then
rst![ComparisonWithLast] = "Abnormal Shift"
End If

If R4 > (rst![R4000] + 14) And R5 > (rst![R5000] + 14) Then
rst![ComparisonWithLast] = "Abnormal Shift"
End If

rst.Close
Set rst = Nothing
Set dbs = Nothing

End Sub

***** end code *****
_______________________________________________
hth - RuralGuy (RG for short)
Please post to the NewsGroup so all may benefit.
Click to expand...
 
G

Guest

Thanks again the field [ComparisonWithLast] is in the current table so I
changed the code as suggested but I get the same errormessage - I have
included all the new code and the errormessage by the line it drops to in
Debug.

I really appreciate the time you are taking to help me. Thanks again.

'This code for the ongoing comparison to baseline tests..


Dim dbs As DAO.Database, rst As DAO.Recordset
Dim strSelect As String

Dim L1 As Double, R1 As Double, L2 As Double
Dim R2 As Double, L3 As Double, R3 As Double
Dim L4 As Double, R4 As Double, L5 As Double, R5 As Double

Set dbs = CurrentDb

strSelect = "SELECT * FROM [Audio History]ORDER BY [Audio
History].DateCompleted DESC;"

Set rst = dbs.OpenRecordset(strSelect, dbOpenDynaset)

L1 = CDbl(rst![L1000])
R1 = CDbl(rst![R1000])

L2 = CDbl(rst![L2000])
R2 = CDbl(rst![R2000])

L3 = CDbl(rst![l3000])
R3 = CDbl(rst![R3000])

L4 = CDbl(rst![L4000])
R4 = CDbl(rst![R4000])

L5 = CDbl(rst![L6000])
R5 = CDbl(rst![R6000])

rst.MoveNext

'-- Default the comparison
rst![ComparisonWithLast] = "No Change" 'ERRORMESSAGE Runtime error 3020 -
Update or CancelUpdate without AddNew or Edit




If L1 > (rst![L1000] + 14) And L2 > (rst![L2000] + 14) Then
rst![ComparisonWithLast] = "Abnormal Shift"
End If

If L2 > (rst![L2000] + 14) And L3 > (rst![l3000] + 14) Then
rst![ComparisonWithLast] = "Abnormal Shift"
End If

If L3 > (rst![l3000] + 14) And L4 > (rst![L4000] + 14) Then
rst![ComparisonWithLast] = "Abnormal Shift"
End If

If L4 > (rst![L4000] + 14) And L5 > (rst![L5000] + 14) Then
rst![ComparisonWithLast] = "Abnormal Shift"
End If

If R1 > (rst![R1000] + 14) And R2 > (rst![R2000] + 14) Then
rst![ComparisonWithLast] = "Abnormal Shift"
End If

If R2 > (rst![R2000] + 14) And R3 > (rst![R3000] + 14) Then
rst![ComparisonWithLast] = "Abnormal Shift"
End If

If R3 > (rst![R3000] + 14) And R4 > (rst![R4000] + 14) Then
rst![ComparisonWithLast] = "Abnormal Shift"
End If

If R4 > (rst![R4000] + 14) And R5 > (rst![R5000] + 14) Then
rst![ComparisonWithLast] = "Abnormal Shift"
End If

rst.Close

Set rst = Nothing
Set dbs = Nothing


End Sub



RuralGuy said:
Is [ComparisonWithLast] a field in your table? If so, we need to change the
Set rst = dbs.OpenRecordset(strSelect) to:
Set rst = dbs.OpenRecordset(strSelect, dbOpenDynaset)

My bad. I should have caught it the first time.

Hi RG

I truly appreciate your work on this and thanks for your time....when I run
it the code stalls at this line with this error message: "Runtime error 3020
- Update or CancelUpdate Without AddNew or Edit"
line is:
rst![ComparisonWithLast] = "No Change"



RuralGuy said:
On Tue, 27 Sep 2005 17:18:03 -0700, "Nigel Forge"

I am getting error messages stating that 'the object does not exist' when I
run the following code, used to compare a current record with the last one
for a consecutive increase in at least 2 fields of 15dB or more. I would be
grateful for some help please as I have tried revising this code many times
without success.

'This code for the ongoing comparison to baseline tests..


Dim dbs As Database, rst As Recordset
Dim strSelect As String



Dim L1 As Double, R1 As Double, L2 As Double, R2 As Double, L3 As Double, R3
As Double, L4 As Double, R4 As Double, L5 As Double, R5 As Double

Set dbs = CurrentDb

strSelect = "SELECT * FROM [Audio History]ORDER BY [Audio
History].DateCompleted DESC;"

Set rst = dbs.OpenRecordset(strSelect)






L1 = rst(CDbl([L1000]))
R1 = rst(CDbl([R1000]))
L2 = rst(CDbl([L2000]))
R2 = rst(CDbl([R2000]))
L3 = rst(CDbl([l3000]))
R3 = rst(CDbl([R3000]))
L4 = rst(CDbl([L4000]))
R4 = rst(CDbl([R4000]))
L5 = rst(CDbl([L6000]))
R5 = rst(CDbl([R6000]))


rst.MoveNext

If (L1 > rst([L1000] + 14) And (L2 > rst([L2000] + 14))) Then
[ComparisonWithLast] = "Abnormal Shift"

End If

If (L2 > rst([L2000] + 14) And (L3 > rst([l3000] + 14))) Then
[ComparisonWithLast] = "Abnormal Shift"

End If

If (L3 > rst([l3000] + 14) And (L4 > rst([L4000] + 14))) Then
[ComparisonWithLast] = "Abnormal Shift"

End If

If (L4 > rst([L4000] + 14) And (L5 > rst([L5000] + 14))) Then
[ComparisonWithLast] = "Abnormal Shift"

End If

If (R1 > rst([R1000] + 14) And (R2 > rst([R2000] + 14))) Then
[ComparisonWithLast] = "Abnormal Shift"

End If

If (R2 > rst([R2000] + 14) And (R3 > rst([R3000] + 14))) Then
[ComparisonWithLast] = "Abnormal Shift"

End If

If (R3 > rst([R3000] + 14) And (R4 > rst([R4000] + 14))) Then
[ComparisonWithLast] = "Abnormal Shift"

End If

If (R4 > rst([R4000] + 14) And (R5 > rst([R5000] + 14))) Then
[ComparisonWithLast] = "Abnormal Shift"

Else: [ComparisonWithLast] = "No Change"
rst.Close

End If

End Sub

I'm not familiar with the particular syntax you used so I rewrote
your code with syntax I know. I also rearranged some of the
code and added some clean-up at the end.

I also made an assumption that [ComparisonWithLast] was a field
in your recordset. If it is a control on a form then the syntax
would be Me.ComparisonWithLast.

This code also *only* works with the first two records in the
RecordSet.

***** begin code *****

Private Sub YourSub()

Dim dbs As DAO.Database, rst As DAO.Recordset
Dim strSelect As String

Dim L1 As Double, R1 As Double, L2 As Double
Dim R2 As Double, L3 As Double, R3 As Double
Dim L4 As Double, R4 As Double, L5 As Double, R5 As Double

Set dbs = CurrentDb

strSelect = "SELECT * FROM [Audio History] " & _
"ORDER BY [Audio History].DateCompleted DESC;"

Set rst = dbs.OpenRecordset(strSelect)

L1 = CDbl(rst![L1000])
R1 = CDbl(rst![R1000])

L2 = CDbl(rst![L2000])
R2 = CDbl(rst![R2000])

L3 = CDbl(rst![l3000])
R3 = CDbl(rst![R3000])

L4 = CDbl(rst![L4000])
R4 = CDbl(rst![R4000])

L5 = CDbl(rst![L6000])
R5 = CDbl(rst![R6000])

rst.MoveNext

'-- Default the comparison
rst![ComparisonWithLast] = "No Change"

If L1 > (rst![L1000] + 14) And L2 > (rst![L2000] + 14) Then
rst![ComparisonWithLast] = "Abnormal Shift"
End If

If L2 > (rst![L2000] + 14) And L3 > (rst![l3000] + 14) Then
rst![ComparisonWithLast] = "Abnormal Shift"
End If

If L3 > (rst![l3000] + 14) And L4 > (rst![L4000] + 14) Then
rst![ComparisonWithLast] = "Abnormal Shift"
End If

If L4 > (rst![L4000] + 14) And L5 > (rst![L5000] + 14) Then
rst![ComparisonWithLast] = "Abnormal Shift"
End If

If R1 > (rst![R1000] + 14) And R2 > (rst![R2000] + 14) Then
rst![ComparisonWithLast] = "Abnormal Shift"
End If

If R2 > (rst![R2000] + 14) And R3 > (rst![R3000] + 14) Then
rst![ComparisonWithLast] = "Abnormal Shift"
End If

If R3 > (rst![R3000] + 14) And R4 > (rst![R4000] + 14) Then
rst![ComparisonWithLast] = "Abnormal Shift"
End If

If R4 > (rst![R4000] + 14) And R5 > (rst![R5000] + 14) Then
rst![ComparisonWithLast] = "Abnormal Shift"
End If

rst.Close
Set rst = Nothing
Set dbs = Nothing

End Sub

***** end code *****
_______________________________________________
hth - RuralGuy (RG for short)
Please post to the NewsGroup so all may benefit.
Click to expand...
Click to expand...

_______________________________________________
hth - RuralGuy (RG for short)
Please post to the NewsGroup so all may benefit.
Click to expand...
 
R

RuralGuy

Duhh. My bad. Changes in line!

Thanks again the field [ComparisonWithLast] is in the current table so I
changed the code as suggested but I get the same errormessage - I have
included all the new code and the errormessage by the line it drops to in
Debug.

I really appreciate the time you are taking to help me. Thanks again.

'This code for the ongoing comparison to baseline tests..


Dim dbs As DAO.Database, rst As DAO.Recordset
Dim strSelect As String

Dim L1 As Double, R1 As Double, L2 As Double
Dim R2 As Double, L3 As Double, R3 As Double
Dim L4 As Double, R4 As Double, L5 As Double, R5 As Double

Set dbs = CurrentDb

strSelect = "SELECT * FROM [Audio History]ORDER BY [Audio
History].DateCompleted DESC;"

Set rst = dbs.OpenRecordset(strSelect, dbOpenDynaset)

L1 = CDbl(rst![L1000])
R1 = CDbl(rst![R1000])

L2 = CDbl(rst![L2000])
R2 = CDbl(rst![R2000])

L3 = CDbl(rst![l3000])
R3 = CDbl(rst![R3000])

L4 = CDbl(rst![L4000])
R4 = CDbl(rst![R4000])

L5 = CDbl(rst![L6000])
R5 = CDbl(rst![R6000])

rst.MoveNext
rst.Edit


'-- Default the comparison
rst![ComparisonWithLast] = "No Change" 'ERRORMESSAGE Runtime error 3020 -
Update or CancelUpdate without AddNew or Edit




If L1 > (rst![L1000] + 14) And L2 > (rst![L2000] + 14) Then
rst![ComparisonWithLast] = "Abnormal Shift"
End If

If L2 > (rst![L2000] + 14) And L3 > (rst![l3000] + 14) Then
rst![ComparisonWithLast] = "Abnormal Shift"
End If

If L3 > (rst![l3000] + 14) And L4 > (rst![L4000] + 14) Then
rst![ComparisonWithLast] = "Abnormal Shift"
End If

If L4 > (rst![L4000] + 14) And L5 > (rst![L5000] + 14) Then
rst![ComparisonWithLast] = "Abnormal Shift"
End If

If R1 > (rst![R1000] + 14) And R2 > (rst![R2000] + 14) Then
rst![ComparisonWithLast] = "Abnormal Shift"
End If

If R2 > (rst![R2000] + 14) And R3 > (rst![R3000] + 14) Then
rst![ComparisonWithLast] = "Abnormal Shift"
End If

If R3 > (rst![R3000] + 14) And R4 > (rst![R4000] + 14) Then
rst![ComparisonWithLast] = "Abnormal Shift"
End If

If R4 > (rst![R4000] + 14) And R5 > (rst![R5000] + 14) Then
rst![ComparisonWithLast] = "Abnormal Shift"
End If
rst.Update


rst.Close

Set rst = Nothing
Set dbs = Nothing


End Sub



RuralGuy said:
Is [ComparisonWithLast] a field in your table? If so, we need to change the
Set rst = dbs.OpenRecordset(strSelect) to:
Set rst = dbs.OpenRecordset(strSelect, dbOpenDynaset)

My bad. I should have caught it the first time.

Hi RG

I truly appreciate your work on this and thanks for your time....when I run
it the code stalls at this line with this error message: "Runtime error 3020
- Update or CancelUpdate Without AddNew or Edit"
line is:
rst![ComparisonWithLast] = "No Change"



:

On Tue, 27 Sep 2005 17:18:03 -0700, "Nigel Forge"

I am getting error messages stating that 'the object does not exist' when I
run the following code, used to compare a current record with the last one
for a consecutive increase in at least 2 fields of 15dB or more. I would be
grateful for some help please as I have tried revising this code many times
without success.

'This code for the ongoing comparison to baseline tests..


Dim dbs As Database, rst As Recordset
Dim strSelect As String



Dim L1 As Double, R1 As Double, L2 As Double, R2 As Double, L3 As Double, R3
As Double, L4 As Double, R4 As Double, L5 As Double, R5 As Double

Set dbs = CurrentDb

strSelect = "SELECT * FROM [Audio History]ORDER BY [Audio
History].DateCompleted DESC;"

Set rst = dbs.OpenRecordset(strSelect)






L1 = rst(CDbl([L1000]))
R1 = rst(CDbl([R1000]))
L2 = rst(CDbl([L2000]))
R2 = rst(CDbl([R2000]))
L3 = rst(CDbl([l3000]))
R3 = rst(CDbl([R3000]))
L4 = rst(CDbl([L4000]))
R4 = rst(CDbl([R4000]))
L5 = rst(CDbl([L6000]))
R5 = rst(CDbl([R6000]))


rst.MoveNext

If (L1 > rst([L1000] + 14) And (L2 > rst([L2000] + 14))) Then
[ComparisonWithLast] = "Abnormal Shift"

End If

If (L2 > rst([L2000] + 14) And (L3 > rst([l3000] + 14))) Then
[ComparisonWithLast] = "Abnormal Shift"

End If

If (L3 > rst([l3000] + 14) And (L4 > rst([L4000] + 14))) Then
[ComparisonWithLast] = "Abnormal Shift"

End If

If (L4 > rst([L4000] + 14) And (L5 > rst([L5000] + 14))) Then
[ComparisonWithLast] = "Abnormal Shift"

End If

If (R1 > rst([R1000] + 14) And (R2 > rst([R2000] + 14))) Then
[ComparisonWithLast] = "Abnormal Shift"

End If

If (R2 > rst([R2000] + 14) And (R3 > rst([R3000] + 14))) Then
[ComparisonWithLast] = "Abnormal Shift"

End If

If (R3 > rst([R3000] + 14) And (R4 > rst([R4000] + 14))) Then
[ComparisonWithLast] = "Abnormal Shift"

End If

If (R4 > rst([R4000] + 14) And (R5 > rst([R5000] + 14))) Then
[ComparisonWithLast] = "Abnormal Shift"

Else: [ComparisonWithLast] = "No Change"
rst.Close

End If

End Sub

I'm not familiar with the particular syntax you used so I rewrote
your code with syntax I know. I also rearranged some of the
code and added some clean-up at the end.

I also made an assumption that [ComparisonWithLast] was a field
in your recordset. If it is a control on a form then the syntax
would be Me.ComparisonWithLast.

This code also *only* works with the first two records in the
RecordSet.

***** begin code *****

Private Sub YourSub()

Dim dbs As DAO.Database, rst As DAO.Recordset
Dim strSelect As String

Dim L1 As Double, R1 As Double, L2 As Double
Dim R2 As Double, L3 As Double, R3 As Double
Dim L4 As Double, R4 As Double, L5 As Double, R5 As Double

Set dbs = CurrentDb

strSelect = "SELECT * FROM [Audio History] " & _
"ORDER BY [Audio History].DateCompleted DESC;"

Set rst = dbs.OpenRecordset(strSelect)

L1 = CDbl(rst![L1000])
R1 = CDbl(rst![R1000])

L2 = CDbl(rst![L2000])
R2 = CDbl(rst![R2000])

L3 = CDbl(rst![l3000])
R3 = CDbl(rst![R3000])

L4 = CDbl(rst![L4000])
R4 = CDbl(rst![R4000])

L5 = CDbl(rst![L6000])
R5 = CDbl(rst![R6000])

rst.MoveNext

'-- Default the comparison
rst![ComparisonWithLast] = "No Change"

If L1 > (rst![L1000] + 14) And L2 > (rst![L2000] + 14) Then
rst![ComparisonWithLast] = "Abnormal Shift"
End If

If L2 > (rst![L2000] + 14) And L3 > (rst![l3000] + 14) Then
rst![ComparisonWithLast] = "Abnormal Shift"
End If

If L3 > (rst![l3000] + 14) And L4 > (rst![L4000] + 14) Then
rst![ComparisonWithLast] = "Abnormal Shift"
End If

If L4 > (rst![L4000] + 14) And L5 > (rst![L5000] + 14) Then
rst![ComparisonWithLast] = "Abnormal Shift"
End If

If R1 > (rst![R1000] + 14) And R2 > (rst![R2000] + 14) Then
rst![ComparisonWithLast] = "Abnormal Shift"
End If

If R2 > (rst![R2000] + 14) And R3 > (rst![R3000] + 14) Then
rst![ComparisonWithLast] = "Abnormal Shift"
End If

If R3 > (rst![R3000] + 14) And R4 > (rst![R4000] + 14) Then
rst![ComparisonWithLast] = "Abnormal Shift"
End If

If R4 > (rst![R4000] + 14) And R5 > (rst![R5000] + 14) Then
rst![ComparisonWithLast] = "Abnormal Shift"
End If

rst.Close
Set rst = Nothing
Set dbs = Nothing

End Sub

***** end code *****
_______________________________________________
hth - RuralGuy (RG for short)
Please post to the NewsGroup so all may benefit.
Click to expand...

_______________________________________________
hth - RuralGuy (RG for short)
Please post to the NewsGroup so all may benefit.
Click to expand...
Click to expand...

_______________________________________________
hth - RuralGuy (RG for short)
Please post to the NewsGroup so all may benefit.
 
G

Guest

Hi again RG - I still get an error message - as shown by '**error here this
time it states Runtime 3265 Item not found in this collection. Hmmmm....

RuralGuy said:
Duhh. My bad. Changes in line!

Thanks again the field [ComparisonWithLast] is in the current table so I
changed the code as suggested but I get the same errormessage - I have
included all the new code and the errormessage by the line it drops to in
Debug.

I really appreciate the time you are taking to help me. Thanks again.

'This code for the ongoing comparison to baseline tests..


Dim dbs As DAO.Database, rst As DAO.Recordset
Dim strSelect As String

Dim L1 As Double, R1 As Double, L2 As Double
Dim R2 As Double, L3 As Double, R3 As Double
Dim L4 As Double, R4 As Double, L5 As Double, R5 As Double

Set dbs = CurrentDb

strSelect = "SELECT * FROM [Audio History]ORDER BY [Audio
History].DateCompleted DESC;"

Set rst = dbs.OpenRecordset(strSelect, dbOpenDynaset)

L1 = CDbl(rst![L1000])
R1 = CDbl(rst![R1000])

L2 = CDbl(rst![L2000])
R2 = CDbl(rst![R2000])

L3 = CDbl(rst![l3000])
R3 = CDbl(rst![R3000])

L4 = CDbl(rst![L4000])
R4 = CDbl(rst![R4000])

L5 = CDbl(rst![L6000])
R5 = CDbl(rst![R6000])

rst.MoveNext
rst.Edit


'-- Default the comparison
rst![ComparisonWithLast] = "No Change" 'ERRORMESSAGE Runtime error 3020 -
Update or CancelUpdate without AddNew or Edit




If L1 > (rst![L1000] + 14) And L2 > (rst![L2000] + 14) Then
rst![ComparisonWithLast] = "Abnormal Shift"
End If

If L2 > (rst![L2000] + 14) And L3 > (rst![l3000] + 14) Then
rst![ComparisonWithLast] = "Abnormal Shift"
End If

If L3 > (rst![l3000] + 14) And L4 > (rst![L4000] + 14) Then
rst![ComparisonWithLast] = "Abnormal Shift"
End If

If L4 > (rst![L4000] + 14) And L5 > (rst![L5000] + 14) Then '**error here
rst![ComparisonWithLast] = "Abnormal Shift"
End If

If R1 > (rst![R1000] + 14) And R2 > (rst![R2000] + 14) Then
rst![ComparisonWithLast] = "Abnormal Shift"
End If

If R2 > (rst![R2000] + 14) And R3 > (rst![R3000] + 14) Then
rst![ComparisonWithLast] = "Abnormal Shift"
End If

If R3 > (rst![R3000] + 14) And R4 > (rst![R4000] + 14) Then
rst![ComparisonWithLast] = "Abnormal Shift"
End If

If R4 > (rst![R4000] + 14) And R5 > (rst![R5000] + 14) Then
rst![ComparisonWithLast] = "Abnormal Shift"
End If
rst.Update


rst.Close

Set rst = Nothing
Set dbs = Nothing


End Sub
Click to expand...
Click to expand...
 
R

RuralGuy

I don't think there is an [L5000] field. I think it is [L6000]

If L4 > (rst![L4000] + 14) And L5 > (rst![L6000] + 14) Then '**error here

Hi again RG - I still get an error message - as shown by '**error here this
time it states Runtime 3265 Item not found in this collection. Hmmmm....

RuralGuy said:
Duhh. My bad. Changes in line!

Thanks again the field [ComparisonWithLast] is in the current table so I
changed the code as suggested but I get the same errormessage - I have
included all the new code and the errormessage by the line it drops to in
Debug.

I really appreciate the time you are taking to help me. Thanks again.

'This code for the ongoing comparison to baseline tests..


Dim dbs As DAO.Database, rst As DAO.Recordset
Dim strSelect As String

Dim L1 As Double, R1 As Double, L2 As Double
Dim R2 As Double, L3 As Double, R3 As Double
Dim L4 As Double, R4 As Double, L5 As Double, R5 As Double

Set dbs = CurrentDb

strSelect = "SELECT * FROM [Audio History]ORDER BY [Audio
History].DateCompleted DESC;"

Set rst = dbs.OpenRecordset(strSelect, dbOpenDynaset)

L1 = CDbl(rst![L1000])
R1 = CDbl(rst![R1000])

L2 = CDbl(rst![L2000])
R2 = CDbl(rst![R2000])

L3 = CDbl(rst![l3000])
R3 = CDbl(rst![R3000])

L4 = CDbl(rst![L4000])
R4 = CDbl(rst![R4000])

L5 = CDbl(rst![L6000])
R5 = CDbl(rst![R6000])

rst.MoveNext
rst.Edit


'-- Default the comparison
rst![ComparisonWithLast] = "No Change" 'ERRORMESSAGE Runtime error 3020 -
Update or CancelUpdate without AddNew or Edit




If L1 > (rst![L1000] + 14) And L2 > (rst![L2000] + 14) Then
rst![ComparisonWithLast] = "Abnormal Shift"
End If

If L2 > (rst![L2000] + 14) And L3 > (rst![l3000] + 14) Then
rst![ComparisonWithLast] = "Abnormal Shift"
End If

If L3 > (rst![l3000] + 14) And L4 > (rst![L4000] + 14) Then
rst![ComparisonWithLast] = "Abnormal Shift"
End If

If L4 > (rst![L4000] + 14) And L5 > (rst![L5000] + 14) Then '**error here
rst![ComparisonWithLast] = "Abnormal Shift"
End If

If R1 > (rst![R1000] + 14) And R2 > (rst![R2000] + 14) Then
rst![ComparisonWithLast] = "Abnormal Shift"
End If

If R2 > (rst![R2000] + 14) And R3 > (rst![R3000] + 14) Then
rst![ComparisonWithLast] = "Abnormal Shift"
End If

If R3 > (rst![R3000] + 14) And R4 > (rst![R4000] + 14) Then
rst![ComparisonWithLast] = "Abnormal Shift"
End If

If R4 > (rst![R4000] + 14) And R5 > (rst![R5000] + 14) Then
rst![ComparisonWithLast] = "Abnormal Shift"
End If
rst.Update


rst.Close

Set rst = Nothing
Set dbs = Nothing


End Sub
Click to expand...
Click to expand...
Click to expand...

_______________________________________________
hth - RuralGuy (RG for short)
Please post to the NewsGroup so all may benefit.
 
R

RuralGuy

Same think is going to happen on this line:
If R4 > (rst![R4000] + 14) And R5 > (rst![R5000] + 14) Then
change to:
If R4 > (rst![R4000] + 14) And R5 > (rst![R6000] + 14) Then

There's no R5000 field either. Sorry.

Hi again RG - I still get an error message - as shown by '**error here this
time it states Runtime 3265 Item not found in this collection. Hmmmm....

RuralGuy said:
Duhh. My bad. Changes in line!

Thanks again the field [ComparisonWithLast] is in the current table so I
changed the code as suggested but I get the same errormessage - I have
included all the new code and the errormessage by the line it drops to in
Debug.

I really appreciate the time you are taking to help me. Thanks again.

'This code for the ongoing comparison to baseline tests..


Dim dbs As DAO.Database, rst As DAO.Recordset
Dim strSelect As String

Dim L1 As Double, R1 As Double, L2 As Double
Dim R2 As Double, L3 As Double, R3 As Double
Dim L4 As Double, R4 As Double, L5 As Double, R5 As Double

Set dbs = CurrentDb

strSelect = "SELECT * FROM [Audio History]ORDER BY [Audio
History].DateCompleted DESC;"

Set rst = dbs.OpenRecordset(strSelect, dbOpenDynaset)

L1 = CDbl(rst![L1000])
R1 = CDbl(rst![R1000])

L2 = CDbl(rst![L2000])
R2 = CDbl(rst![R2000])

L3 = CDbl(rst![l3000])
R3 = CDbl(rst![R3000])

L4 = CDbl(rst![L4000])
R4 = CDbl(rst![R4000])

L5 = CDbl(rst![L6000])
R5 = CDbl(rst![R6000])

rst.MoveNext
rst.Edit


'-- Default the comparison
rst![ComparisonWithLast] = "No Change" 'ERRORMESSAGE Runtime error 3020 -
Update or CancelUpdate without AddNew or Edit




If L1 > (rst![L1000] + 14) And L2 > (rst![L2000] + 14) Then
rst![ComparisonWithLast] = "Abnormal Shift"
End If

If L2 > (rst![L2000] + 14) And L3 > (rst![l3000] + 14) Then
rst![ComparisonWithLast] = "Abnormal Shift"
End If

If L3 > (rst![l3000] + 14) And L4 > (rst![L4000] + 14) Then
rst![ComparisonWithLast] = "Abnormal Shift"
End If

If L4 > (rst![L4000] + 14) And L5 > (rst![L5000] + 14) Then '**error here
rst![ComparisonWithLast] = "Abnormal Shift"
End If

If R1 > (rst![R1000] + 14) And R2 > (rst![R2000] + 14) Then
rst![ComparisonWithLast] = "Abnormal Shift"
End If

If R2 > (rst![R2000] + 14) And R3 > (rst![R3000] + 14) Then
rst![ComparisonWithLast] = "Abnormal Shift"
End If

If R3 > (rst![R3000] + 14) And R4 > (rst![R4000] + 14) Then
rst![ComparisonWithLast] = "Abnormal Shift"
End If

If R4 > (rst![R4000] + 14) And R5 > (rst![R5000] + 14) Then
rst![ComparisonWithLast] = "Abnormal Shift"
End If
rst.Update


rst.Close

Set rst = Nothing
Set dbs = Nothing


End Sub
Click to expand...
Click to expand...
Click to expand...

_______________________________________________
hth - RuralGuy (RG for short)
Please post to the NewsGroup so all may benefit.
 
G

Guest

Hello RG

I changed my typos but to no avail - I still get error messages

Default the comparison
rst![ComparisonWithLast] = "No Change" 'ERRORMESSAGE Runtime error 3020 -
Update or CancelUpdate without AddNew or Edit
Click to expand...
Click to expand...
Click to expand...

and if I remark this line out then the error is the same for the next line
If L1 > (rst![L1000] + 14) And L2 > (rst![L2000] + 14) Then
rst![ComparisonWithLast] = "Abnormal Shift"
End If
Click to expand...
Click to expand...
Click to expand...



RuralGuy said:
Same think is going to happen on this line:
If R4 > (rst![R4000] + 14) And R5 > (rst![R5000] + 14) Then
change to:
If R4 > (rst![R4000] + 14) And R5 > (rst![R6000] + 14) Then

There's no R5000 field either. Sorry.

Hi again RG - I still get an error message - as shown by '**error here this
time it states Runtime 3265 Item not found in this collection. Hmmmm....

RuralGuy said:
Duhh. My bad. Changes in line!

On Wed, 28 Sep 2005 13:17:01 -0700, "Nigel Forge"

Thanks again the field [ComparisonWithLast] is in the current table so I
changed the code as suggested but I get the same errormessage - I have
included all the new code and the errormessage by the line it drops to in
Debug.

I really appreciate the time you are taking to help me. Thanks again.

'This code for the ongoing comparison to baseline tests..


Dim dbs As DAO.Database, rst As DAO.Recordset
Dim strSelect As String

Dim L1 As Double, R1 As Double, L2 As Double
Dim R2 As Double, L3 As Double, R3 As Double
Dim L4 As Double, R4 As Double, L5 As Double, R5 As Double

Set dbs = CurrentDb

strSelect = "SELECT * FROM [Audio History]ORDER BY [Audio
History].DateCompleted DESC;"

Set rst = dbs.OpenRecordset(strSelect, dbOpenDynaset)

L1 = CDbl(rst![L1000])
R1 = CDbl(rst![R1000])

L2 = CDbl(rst![L2000])
R2 = CDbl(rst![R2000])

L3 = CDbl(rst![l3000])
R3 = CDbl(rst![R3000])

L4 = CDbl(rst![L4000])
R4 = CDbl(rst![R4000])

L5 = CDbl(rst![L6000])
R5 = CDbl(rst![R6000])

rst.MoveNext

rst.Edit


'-- Default the comparison
rst![ComparisonWithLast] = "No Change" 'ERRORMESSAGE Runtime error 3020 -
Update or CancelUpdate without AddNew or Edit




If L1 > (rst![L1000] + 14) And L2 > (rst![L2000] + 14) Then
rst![ComparisonWithLast] = "Abnormal Shift"
End If

If L2 > (rst![L2000] + 14) And L3 > (rst![l3000] + 14) Then
rst![ComparisonWithLast] = "Abnormal Shift"
End If

If L3 > (rst![l3000] + 14) And L4 > (rst![L4000] + 14) Then
rst![ComparisonWithLast] = "Abnormal Shift"
End If

If L4 > (rst![L4000] + 14) And L5 > (rst![L5000] + 14) Then '**error here
rst![ComparisonWithLast] = "Abnormal Shift"
End If

If R1 > (rst![R1000] + 14) And R2 > (rst![R2000] + 14) Then
rst![ComparisonWithLast] = "Abnormal Shift"
End If

If R2 > (rst![R2000] + 14) And R3 > (rst![R3000] + 14) Then
rst![ComparisonWithLast] = "Abnormal Shift"
End If

If R3 > (rst![R3000] + 14) And R4 > (rst![R4000] + 14) Then
rst![ComparisonWithLast] = "Abnormal Shift"
End If

If R4 > (rst![R4000] + 14) And R5 > (rst![R5000] + 14) Then
rst![ComparisonWithLast] = "Abnormal Shift"
End If

rst.Update


rst.Close

Set rst = Nothing
Set dbs = Nothing


End Sub
Click to expand...
Click to expand...

_______________________________________________
hth - RuralGuy (RG for short)
Please post to the NewsGroup so all may benefit.
Click to expand...
 
R

RuralGuy

Hi Nigel,
What error do we get and on what line?

Hello RG

I changed my typos but to no avail - I still get error messages

Default the comparison
rst![ComparisonWithLast] = "No Change" 'ERRORMESSAGE Runtime error 3020 -
Update or CancelUpdate without AddNew or Edit
Click to expand...
Click to expand...

and if I remark this line out then the error is the same for the next line
If L1 > (rst![L1000] + 14) And L2 > (rst![L2000] + 14) Then
rst![ComparisonWithLast] = "Abnormal Shift"
End If
Click to expand...
Click to expand...



RuralGuy said:
Same think is going to happen on this line:
If R4 > (rst![R4000] + 14) And R5 > (rst![R5000] + 14) Then
change to:
If R4 > (rst![R4000] + 14) And R5 > (rst![R6000] + 14) Then

There's no R5000 field either. Sorry.

Hi again RG - I still get an error message - as shown by '**error here this
time it states Runtime 3265 Item not found in this collection. Hmmmm....

:

Duhh. My bad. Changes in line!

On Wed, 28 Sep 2005 13:17:01 -0700, "Nigel Forge"

Thanks again the field [ComparisonWithLast] is in the current table so I
changed the code as suggested but I get the same errormessage - I have
included all the new code and the errormessage by the line it drops to in
Debug.

I really appreciate the time you are taking to help me. Thanks again.

'This code for the ongoing comparison to baseline tests..


Dim dbs As DAO.Database, rst As DAO.Recordset
Dim strSelect As String

Dim L1 As Double, R1 As Double, L2 As Double
Dim R2 As Double, L3 As Double, R3 As Double
Dim L4 As Double, R4 As Double, L5 As Double, R5 As Double

Set dbs = CurrentDb

strSelect = "SELECT * FROM [Audio History]ORDER BY [Audio
History].DateCompleted DESC;"

Set rst = dbs.OpenRecordset(strSelect, dbOpenDynaset)

L1 = CDbl(rst![L1000])
R1 = CDbl(rst![R1000])

L2 = CDbl(rst![L2000])
R2 = CDbl(rst![R2000])

L3 = CDbl(rst![l3000])
R3 = CDbl(rst![R3000])

L4 = CDbl(rst![L4000])
R4 = CDbl(rst![R4000])

L5 = CDbl(rst![L6000])
R5 = CDbl(rst![R6000])

rst.MoveNext

rst.Edit


'-- Default the comparison
rst![ComparisonWithLast] = "No Change" 'ERRORMESSAGE Runtime error 3020 -
Update or CancelUpdate without AddNew or Edit




If L1 > (rst![L1000] + 14) And L2 > (rst![L2000] + 14) Then
rst![ComparisonWithLast] = "Abnormal Shift"
End If

If L2 > (rst![L2000] + 14) And L3 > (rst![l3000] + 14) Then
rst![ComparisonWithLast] = "Abnormal Shift"
End If

If L3 > (rst![l3000] + 14) And L4 > (rst![L4000] + 14) Then
rst![ComparisonWithLast] = "Abnormal Shift"
End If

If L4 > (rst![L4000] + 14) And L5 > (rst![L5000] + 14) Then '**error here
rst![ComparisonWithLast] = "Abnormal Shift"
End If

If R1 > (rst![R1000] + 14) And R2 > (rst![R2000] + 14) Then
rst![ComparisonWithLast] = "Abnormal Shift"
End If

If R2 > (rst![R2000] + 14) And R3 > (rst![R3000] + 14) Then
rst![ComparisonWithLast] = "Abnormal Shift"
End If

If R3 > (rst![R3000] + 14) And R4 > (rst![R4000] + 14) Then
rst![ComparisonWithLast] = "Abnormal Shift"
End If

If R4 > (rst![R4000] + 14) And R5 > (rst![R5000] + 14) Then
rst![ComparisonWithLast] = "Abnormal Shift"
End If

rst.Update


rst.Close

Set rst = Nothing
Set dbs = Nothing


End Sub
Click to expand...

_______________________________________________
hth - RuralGuy (RG for short)
Please post to the NewsGroup so all may benefit.
Click to expand...
Click to expand...

_______________________________________________
hth - RuralGuy (RG for short)
Please post to the NewsGroup so all may benefit.
 
G

Guest

It is documented beside the code below.......

Nigel Forge said:
Hello RG

I changed my typos but to no avail - I still get error messages

Default the comparison
rst![ComparisonWithLast] = "No Change" 'ERRORMESSAGE Runtime error 3020 -
Update or CancelUpdate without AddNew or Edit
Click to expand...
Click to expand...

and if I remark this line out then the error is the same for the next line
If L1 > (rst![L1000] + 14) And L2 > (rst![L2000] + 14) Then
rst![ComparisonWithLast] = "Abnormal Shift"
End If
Click to expand...
Click to expand...



RuralGuy said:
Same think is going to happen on this line:
If R4 > (rst![R4000] + 14) And R5 > (rst![R5000] + 14) Then
change to:
If R4 > (rst![R4000] + 14) And R5 > (rst![R6000] + 14) Then

There's no R5000 field either. Sorry.

Hi again RG - I still get an error message - as shown by '**error here this
time it states Runtime 3265 Item not found in this collection. Hmmmm....

:

Duhh. My bad. Changes in line!

On Wed, 28 Sep 2005 13:17:01 -0700, "Nigel Forge"

Thanks again the field [ComparisonWithLast] is in the current table so I
changed the code as suggested but I get the same errormessage - I have
included all the new code and the errormessage by the line it drops to in
Debug.

I really appreciate the time you are taking to help me. Thanks again.

'This code for the ongoing comparison to baseline tests..


Dim dbs As DAO.Database, rst As DAO.Recordset
Dim strSelect As String

Dim L1 As Double, R1 As Double, L2 As Double
Dim R2 As Double, L3 As Double, R3 As Double
Dim L4 As Double, R4 As Double, L5 As Double, R5 As Double

Set dbs = CurrentDb

strSelect = "SELECT * FROM [Audio History]ORDER BY [Audio
History].DateCompleted DESC;"

Set rst = dbs.OpenRecordset(strSelect, dbOpenDynaset)

L1 = CDbl(rst![L1000])
R1 = CDbl(rst![R1000])

L2 = CDbl(rst![L2000])
R2 = CDbl(rst![R2000])

L3 = CDbl(rst![l3000])
R3 = CDbl(rst![R3000])

L4 = CDbl(rst![L4000])
R4 = CDbl(rst![R4000])

L5 = CDbl(rst![L6000])
R5 = CDbl(rst![R6000])

rst.MoveNext

rst.Edit


'-- Default the comparison
rst![ComparisonWithLast] = "No Change" 'ERRORMESSAGE Runtime error 3020 -
Update or CancelUpdate without AddNew or Edit




If L1 > (rst![L1000] + 14) And L2 > (rst![L2000] + 14) Then
rst![ComparisonWithLast] = "Abnormal Shift"
End If

If L2 > (rst![L2000] + 14) And L3 > (rst![l3000] + 14) Then
rst![ComparisonWithLast] = "Abnormal Shift"
End If

If L3 > (rst![l3000] + 14) And L4 > (rst![L4000] + 14) Then
rst![ComparisonWithLast] = "Abnormal Shift"
End If

If L4 > (rst![L4000] + 14) And L5 > (rst![L5000] + 14) Then '**error here
rst![ComparisonWithLast] = "Abnormal Shift"
End If

If R1 > (rst![R1000] + 14) And R2 > (rst![R2000] + 14) Then
rst![ComparisonWithLast] = "Abnormal Shift"
End If

If R2 > (rst![R2000] + 14) And R3 > (rst![R3000] + 14) Then
rst![ComparisonWithLast] = "Abnormal Shift"
End If

If R3 > (rst![R3000] + 14) And R4 > (rst![R4000] + 14) Then
rst![ComparisonWithLast] = "Abnormal Shift"
End If

If R4 > (rst![R4000] + 14) And R5 > (rst![R5000] + 14) Then
rst![ComparisonWithLast] = "Abnormal Shift"
End If

rst.Update


rst.Close

Set rst = Nothing
Set dbs = Nothing


End Sub
Click to expand...

_______________________________________________
hth - RuralGuy (RG for short)
Please post to the NewsGroup so all may benefit.
Click to expand...
Click to expand...
 
R

RuralGuy

I thought we were past that when we added:

rst.MoveNext

rst.Edit

What happened?

It is documented beside the code below.......

Nigel Forge said:
Hello RG

I changed my typos but to no avail - I still get error messages

Default the comparison
rst![ComparisonWithLast] = "No Change" 'ERRORMESSAGE Runtime error 3020 -
Update or CancelUpdate without AddNew or Edit
Click to expand...

and if I remark this line out then the error is the same for the next line
If L1 > (rst![L1000] + 14) And L2 > (rst![L2000] + 14) Then
rst![ComparisonWithLast] = "Abnormal Shift"
End If
Click to expand...



RuralGuy said:
Same think is going to happen on this line:
If R4 > (rst![R4000] + 14) And R5 > (rst![R5000] + 14) Then
change to:
If R4 > (rst![R4000] + 14) And R5 > (rst![R6000] + 14) Then

There's no R5000 field either. Sorry.

On Wed, 28 Sep 2005 17:25:04 -0700, "Nigel Forge"

Hi again RG - I still get an error message - as shown by '**error here this
time it states Runtime 3265 Item not found in this collection. Hmmmm....

:

Duhh. My bad. Changes in line!

On Wed, 28 Sep 2005 13:17:01 -0700, "Nigel Forge"

Thanks again the field [ComparisonWithLast] is in the current table so I
changed the code as suggested but I get the same errormessage - I have
included all the new code and the errormessage by the line it drops to in
Debug.

I really appreciate the time you are taking to help me. Thanks again.

'This code for the ongoing comparison to baseline tests..


Dim dbs As DAO.Database, rst As DAO.Recordset
Dim strSelect As String

Dim L1 As Double, R1 As Double, L2 As Double
Dim R2 As Double, L3 As Double, R3 As Double
Dim L4 As Double, R4 As Double, L5 As Double, R5 As Double

Set dbs = CurrentDb

strSelect = "SELECT * FROM [Audio History]ORDER BY [Audio
History].DateCompleted DESC;"

Set rst = dbs.OpenRecordset(strSelect, dbOpenDynaset)

L1 = CDbl(rst![L1000])
R1 = CDbl(rst![R1000])

L2 = CDbl(rst![L2000])
R2 = CDbl(rst![R2000])

L3 = CDbl(rst![l3000])
R3 = CDbl(rst![R3000])

L4 = CDbl(rst![L4000])
R4 = CDbl(rst![R4000])

L5 = CDbl(rst![L6000])
R5 = CDbl(rst![R6000])

rst.MoveNext

rst.Edit


'-- Default the comparison
rst![ComparisonWithLast] = "No Change" 'ERRORMESSAGE Runtime error 3020 -
Update or CancelUpdate without AddNew or Edit




If L1 > (rst![L1000] + 14) And L2 > (rst![L2000] + 14) Then
rst![ComparisonWithLast] = "Abnormal Shift"
End If

If L2 > (rst![L2000] + 14) And L3 > (rst![l3000] + 14) Then
rst![ComparisonWithLast] = "Abnormal Shift"
End If

If L3 > (rst![l3000] + 14) And L4 > (rst![L4000] + 14) Then
rst![ComparisonWithLast] = "Abnormal Shift"
End If

If L4 > (rst![L4000] + 14) And L5 > (rst![L5000] + 14) Then '**error here
rst![ComparisonWithLast] = "Abnormal Shift"
End If

If R1 > (rst![R1000] + 14) And R2 > (rst![R2000] + 14) Then
rst![ComparisonWithLast] = "Abnormal Shift"
End If

If R2 > (rst![R2000] + 14) And R3 > (rst![R3000] + 14) Then
rst![ComparisonWithLast] = "Abnormal Shift"
End If

If R3 > (rst![R3000] + 14) And R4 > (rst![R4000] + 14) Then
rst![ComparisonWithLast] = "Abnormal Shift"
End If

If R4 > (rst![R4000] + 14) And R5 > (rst![R5000] + 14) Then
rst![ComparisonWithLast] = "Abnormal Shift"
End If

rst.Update


rst.Close

Set rst = Nothing
Set dbs = Nothing


End Sub





_______________________________________________
hth - RuralGuy (RG for short)
Please post to the NewsGroup so all may benefit.
Click to expand...
Click to expand...
Click to expand...

_______________________________________________
hth - RuralGuy (RG for short)
Please post to the NewsGroup so all may benefit.
 
G

Guest

Hello again RG - I really appreciate all your help. I have solved the problem
- a colleague of mine pointed out that the open record in the form is not yet
saved therefore will not show up in the recordset. Hence we had to change
some of the code to allow the latest record in the recordest only to be
compared with the current record on the open form. We have also changed the
code so that it will only use the comparison record if it is older than the
current record as it may be necessary to edit one for the records in the
database. I now just need to edit the IF statements to that they will allow
for a negative as well as a positive difference and I am done. Thanks for
sticking with me through this, it is really appreciated!
Cheers (code is below)

Private Sub BaselineTest()
'This code for the ongoing comparison to baseline tests..


Dim dbs As DAO.Database, rst As DAO.Recordset
Dim strSelect As String

Dim L1 As Double, R1 As Double, L2 As Double
Dim R2 As Double, L3 As Double, R3 As Double
Dim L4 As Double, R4 As Double, L5 As Double, R5 As Double

Set dbs = CurrentDb

strSelect = "SELECT * FROM [Audio History] Where [Audio History].[EmpID#]="
& [EmpID#] & " AND [Audio History].DateCompleted < #" &
CDate([DateCompleted]) & "# ORDER BY [Audio History].DateCompleted DESC;"

Set rst = dbs.OpenRecordset(strSelect)

L1 = CDbl(rst![L1000])
R1 = CDbl(rst![R1000])

L2 = CDbl(rst![L2000])
R2 = CDbl(rst![R2000])

L3 = CDbl(rst![l3000])
R3 = CDbl(rst![R3000])

L4 = CDbl(rst![L4000])
R4 = CDbl(rst![R4000])

L5 = CDbl(rst![L6000])
R5 = CDbl(rst![R6000])




'-- Default the comparison
[ComparisonWithLast] = "No Change"



If L1 > ([L1000] + 14) And L2 > ([L2000] + 14) Then
[ComparisonWithLast] = "Abnormal Shift"
End If

If L2 > ([L2000] + 14) And L3 > ([l3000] + 14) Then
[ComparisonWithLast] = "Abnormal Shift"
End If

If L3 > ([l3000] + 14) And L4 > ([L4000] + 14) Then
[ComparisonWithLast] = "Abnormal Shift"
End If

If L4 > ([L4000] + 14) And L5 > ([L6000] + 14) Then
[ComparisonWithLast] = "Abnormal Shift"
End If

If R1 > ([R1000] + 14) And R2 > ([R2000] + 14) Then
[ComparisonWithLast] = "Abnormal Shift"
End If

If R2 > ([R2000] + 14) And R3 > ([R3000] + 14) Then
[ComparisonWithLast] = "Abnormal Shift"
End If

If R3 > ([R3000] + 14) And R4 > ([R4000] + 14) Then
[ComparisonWithLast] = "Abnormal Shift"
End If

If R4 > ([R4000] + 14) And R5 > ([R6000] + 14) Then
[ComparisonWithLast] = "Abnormal Shift"
End If

rst.Close

Set rst = Nothing
Set dbs = Nothing

End Sub




Nigel
 
R

RuralGuy

Hi Nigel,
Did we remove the
rst.MoveNext
rst.Edit
from the code?

I don't pretend to understand what you are comparing for but is this what you
needed?

If L1 > ([L1000] + 14) And L2 > ([L2000] + 14) Then
rst![ComparisonWithLast] = "Abnormal Shift"
End If
If L1 < ([L1000] - 14) And L2 < ([L2000] - 14) Then
rst![ComparisonWithLast] = "Abnormal Shift"
End If


Hello again RG - I really appreciate all your help. I have solved the problem
- a colleague of mine pointed out that the open record in the form is not yet
saved therefore will not show up in the recordset. Hence we had to change
some of the code to allow the latest record in the recordest only to be
compared with the current record on the open form. We have also changed the
code so that it will only use the comparison record if it is older than the
current record as it may be necessary to edit one for the records in the
database. I now just need to edit the IF statements to that they will allow
for a negative as well as a positive difference and I am done. Thanks for
sticking with me through this, it is really appreciated!
Cheers (code is below)

Private Sub BaselineTest()
'This code for the ongoing comparison to baseline tests..


Dim dbs As DAO.Database, rst As DAO.Recordset
Dim strSelect As String

Dim L1 As Double, R1 As Double, L2 As Double
Dim R2 As Double, L3 As Double, R3 As Double
Dim L4 As Double, R4 As Double, L5 As Double, R5 As Double

Set dbs = CurrentDb

strSelect = "SELECT * FROM [Audio History] Where [Audio History].[EmpID#]="
& [EmpID#] & " AND [Audio History].DateCompleted < #" &
CDate([DateCompleted]) & "# ORDER BY [Audio History].DateCompleted DESC;"

Set rst = dbs.OpenRecordset(strSelect)

L1 = CDbl(rst![L1000])
R1 = CDbl(rst![R1000])

L2 = CDbl(rst![L2000])
R2 = CDbl(rst![R2000])

L3 = CDbl(rst![l3000])
R3 = CDbl(rst![R3000])

L4 = CDbl(rst![L4000])
R4 = CDbl(rst![R4000])

L5 = CDbl(rst![L6000])
R5 = CDbl(rst![R6000])




'-- Default the comparison
[ComparisonWithLast] = "No Change"



If L1 > ([L1000] + 14) And L2 > ([L2000] + 14) Then
[ComparisonWithLast] = "Abnormal Shift"
End If

If L2 > ([L2000] + 14) And L3 > ([l3000] + 14) Then
[ComparisonWithLast] = "Abnormal Shift"
End If

If L3 > ([l3000] + 14) And L4 > ([L4000] + 14) Then
[ComparisonWithLast] = "Abnormal Shift"
End If

If L4 > ([L4000] + 14) And L5 > ([L6000] + 14) Then
[ComparisonWithLast] = "Abnormal Shift"
End If

If R1 > ([R1000] + 14) And R2 > ([R2000] + 14) Then
[ComparisonWithLast] = "Abnormal Shift"
End If

If R2 > ([R2000] + 14) And R3 > ([R3000] + 14) Then
[ComparisonWithLast] = "Abnormal Shift"
End If

If R3 > ([R3000] + 14) And R4 > ([R4000] + 14) Then
[ComparisonWithLast] = "Abnormal Shift"
End If

If R4 > ([R4000] + 14) And R5 > ([R6000] + 14) Then
[ComparisonWithLast] = "Abnormal Shift"
End If

rst.Close

Set rst = Nothing
Set dbs = Nothing

End Sub




Nigel

RuralGuy said:
I thought we were past that when we added:

rst.MoveNext

rst.Edit

What happened?
Click to expand...
Click to expand...

_______________________________________________
hth - RuralGuy (RG for short)
Please post to the NewsGroup so all may benefit.
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Access 97 VB 2
Runtime error 3014 - Can't open more tables 3
Error: an object cannot be found 2
Run-Time Error 424 Object Required 1
I'd like to modify mt Macro ... 9
Taking formula to text 3
Start on select cell 2
Returning to first offset point. 4

Top