overflow

[haj1503]

Hi friends,

Anybody can help me how to solve this overflow message where I want to disable the msgbox overflow.

Private Sub UnitPrice_AfterUpdate()
DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70
Me![RunningTotal] = Me![Qty] * Me![UnitPrice]

If IsNull(Me![OnHand]) Then
Me![AvgPrice] = Me![UnitPrice]

Else

DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70


Me![AvgPrice] = IIf(Nz(Me![OnHand]) = 0, Me![UnitPrice], Nz(DSum("[RunningTotal]", "qryRunningTotal")) / Nz(Me![OnHand]))

Me.OrderBy = "[InventoryID],[PaymentDate]"
Me.OrderByOn = True
Me.Requery
End If


End Sub

 

[Uncle Gizmo]

I know this is NOT very helpful and off topic to boot, so I'm expecting a roasting,

But The plumber said to his Wife " It's over flow... I'm leaving you for a younger woman...

 

[Mile-O]

But The plumber said to his Wife " It's over flow... I'm leaving you for a younger woman...

Sure it wasn't Andy Capp?

Also, for haj:

Thsi line is obsolete:

DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70

Access now uses the:

DoCmd.RunCommand acCmd.... syntax.

 

[Uncle Gizmo]

Sure it wasn't Andy Capp?

Could well have been...

No body answered this question yet?