I had to change it because for some reason my FindNext commands stop working. They are sending ALL of my pgms (that have the FindNext command) into a infinite loop. Have you every heard of this before?
So far it has effected 3 programs. here is some sample code:
Tally_Cost_and_Payments:
rs2.FindFirst "dealid = " & rs1!DealID ' rs2 = DealDetail_Hdr table
If rs2.NoMatch Then
GoTo LoopRound
End If
If rs2!Item = "card(s)" Then
HdrAmount = Nz(rs2!Completed, 0) * Nz(rs2!COST, 0)
End If
If rs2!Item = "Appearance" Then
If Nz(rs2!Details_Present, 0) <> -1 Then
' ItemTotal = Nz(rs2!Completed, 0) * Nz(rs2!COST, 0)
HdrAmount = HdrAmount = Nz(rs2!Completed, 0) * Nz(rs2!COST, 0)
Else
GoSub TotalDetail
End If
End If
If rs2!Item = "Memorabilia" Then
GoSub TotalDetail
End If
Do While Not rs2.EOF ' rs2 = DealDetail_Hdr table
rs2.FindNext "dealid = " & rs1!DealID
If rs2.NoMatch Then
'GoSub FinalTally
Return
End If
If rs2!Item = "Card(s)" Then
ItemTotal = Nz(rs2!Completed, 0) * Nz(rs2!COST, 0)
HdrAmount = HdrAmount + ItemTotal
End If
If rs2!Item = "Appearance" Then
If Nz(rs2!Details_Present, 0) <> -1 Then
'ItemTotal
HdrAmount = HdrAmount + (Nz(rs2!Completed, 0) * Nz(rs2!COST, 0))
Else
GoSub TotalDetail
End If
End If
If rs2!Item = "Memorabilia" Then
GoSub TotalDetail
End If
LoopRound:
Loop
Return
Thanx again,
Trudye