Report Problem

[OldManRiver]

All,

Have a frustrating report problem. Have code of:

Function RAmount()
    HrsAmt = DLookup("trp_ham", "qryTIMshtS", "[trp_id]=" & Me![Row_ID])
    MilAmt = DLookup("trp_mam", "qryTIMshtS", "[trp_id]=" & Me![Row_ID])
    RAmount = HrsAmt + MilAmt
End Function
Function RCount()
    RCount = DCount("trp_id", "qryTIMshtS")
End Function
Function RTotal()
    HrsTot = DSum("trp_ham", "qryTIMshtS")
    MilTot = DSum("trp_mam", "qryTIMshtS")
    RTotal = HrsTot + MilTot
End Function

Three fields are on the report with:

=RAmont()
=RCount()
=RTotal()

The middle function works, but the other 2 do not. Can not, for the life of me, figure out why one works and the others do not. I spent over 4 hours now using every possible combination I know to make these work.

HELP!!!!

OMR

 

[pbaldy]

How do they not work (error, bad result, etc)? Have you stepped through the code to see if the DLookup's are returning values correctly? You haven't accounted for the possibility of a Null there. Are the variables declared anywhere?

 

[OldManRiver]

What I found

All,

Found, contrary to normal math, that reports will not work if there is a null value anywhere. So code now reads:

Public HrsAmt, MilAmt, HrsTot, MilTot
Function RAmount()
    Dim FullAmount
    FullAmount = 0
    HrsAmt = DLookup("trp_ham", "qryTIMshtS", "[trp_id]=" & Me![Row_ID])
    If HrsAmt > 0 Then FullAmount = FullAmount + HrsAmt
    MilAmt = DLookup("trp_mam", "qryTIMshtS", "[trp_id]=" & Me![Row_ID])
    If MilAmt > 0 Then FullAmount = FullAmount + MilAmt
    RAmount = FullAmount
End Function
Function RCount()
    RCount = DCount("trp_id", "qryTIMshtS")
End Function
Function RTotal()
    HrsTot = DSum("trp_ham", "qryTIMshtS")
    MilTot = DSum("trp_mam", "qryTIMshtS")
    RTotal = HrsTot + MilTot
End Function

Which works.

Thanks all!!

OMR