division in vb.

[girfdl]

Private Sub Discount_AfterUpdate()
Dim strFilter As String

' Evaluate filter before it's passed to DLookup function.
strFilter = "DiscountID = " & Me!Discount

' Look up product's unit price and assign it to UnitPrice control.
Me!Discount_Pec = DLookup("DiscountAmount", "Discount", strFilter)
Me.Discount_Amount = Me.Subtotal * (Discount_Pec / 100)
End Sub

if i have a subtotal of 8.00
Me!Discount_Pec = 10
me.discount_amount is 1.00 instead of .80

 

[SkipVought]

Hi,

Is ms.discount_amount declared as an integer type rather than floating type?

Skip,

_{Just traded in my old subtlety...
for a NUANCE!}

 

[girfdl]

It is a text box in a access form. I am not sure how to set it as a float or integer.

 

[SkipVought]

Somethis is causing rounding.

Check in forum702.

Skip,

_{Just traded in my old subtlety...
for a NUANCE!}