calculate LongInteger is not corrent viewing in Form Pivot Table

[SDRichardC]

The function works fine when calculate the numbers individually. When pulling the data in Pivot Table view the numbers are not correct. I have set the underlying table field as LongInteger. Can some one tell me what is wrong? What I am missing or needed?

'****
'Calculates the 4x6 equivalent number by the page count number given the ratio.

'---------------------------------------
Private Sub PageOutput_AfterUpdate()

Me!Equiv.Value = Abs(Me!PageOutput.Value * (DLookup("[Ratio]", "Media Size Input", _
"[Job Description] = Forms![TestStation 18]![txtJobDescriptionMediaSizeOutput]")))

End Sub
'---------------------------------------

Here is the code to open the query.
'-----------------------------------------------------------
' JobDescTotals_Click
'
'-----------------------------------------------------------
Private Sub JobDescTotals_Click()
On Error GoTo JobDescTotals_Click_Err

DoCmd.OpenQuery "VLDataTable_JobDescription", acViewPivotTable, acEdit


JobDescTotals_Click_Exit:
Exit Sub

JobDescTotals_Click_Err:
MsgBox Error$
Resume JobDescTotals_Click_Exit

End Sub
'-----------------------------

Your immediate help is greatly appreciated.