Conditional running sum

[Kon]

How can I use the bellow code using conditions
If code > 104 And code < 134 Or code = 101 Or code = 102 Then
Function residual(sign As Integer, code As Byte, price As Double, rs as
DAO.recordset) As Double
rs.FindFirst "[recid]=" & Forms!customermove!RecID
Do Until rs.BOF
residual = residual + rs("price") * rs("sign")
rs.MovePrevious
Loop
End Function

 

[Marshall Barton]

How can I use the bellow code using conditions
If code > 104 And code < 134 Or code = 101 Or code = 102 Then
Function residual(sign As Integer, code As Byte, price As Double, rs as
DAO.recordset) As Double
rs.FindFirst "[recid]=" & Forms!customermove!RecID
Do Until rs.BOF
residual = residual + rs("price") * rs("sign")
rs.MovePrevious
Loop
End Function

I've seen several versions of this question and I still
don't understand what you're trying to do. Somehow I've got
a feeling(?) that you can do this with a query, but I can't
be sure without a clear description of what you are trying
to accomplish.

I take a stab at this version of the question and guess that
maybe the code would look like:

Function residual(sign As Integer, code As Byte, _
price As Double, rs As DAO.recordset) As Double
rs.FindFirst "[recid]=" & Forms!customermove!RecID
Do Until rs.BOF
If (code > 104 And code < 134) _
Or code = 101 Or code = 102 Then
residual = residual + rs("price") * rs("sign")
End If
rs.MovePrevious
Loop
End Function