Users currently use the following code to compare two values ....
Private Sub txt_B_Exit(Cancel As Integer)
Dim myLimit, myValue, myTol
myLimit = 10
myTol = 0.00005
If Nz(Me.txt_B) < myLimit Then
MsgBox "Sqarefeetvalues below " & myLimit & " are not possible in this context!", vbExclamation
Cancel = True
Else
'Calculate formula
myValue = (.............)
myValue = Round(myValue, 5)
' Compare result with tolerance '<<----- Critcal point
If Abs(myValue - Me.txt_A.Value) > myTol Then
MsgBox "The calculatd Value is " & myValue, vbCritical
Me.txt_A.SetFocus
Else
Me.Verified = True
Me.txt_C.SetFocus
End If
End If
End Sub
**************************
****
Our office usually round off to 5 decimal places all the time during data entry but adhere to the 3 decimal places when compiling a report. Most of the Engineers / Architects who request for permits from us usually round off to 3 decimal places when submiting their value of their new project "Flow" for us to validate.
Assuming that an Engineer submitted a flow of 0.006 but the auto calculated value
came out to be 0.00561.
In actual sense, the value of 0.006 submitted by the Engineer is correct if 0.00561 was
rounded off to 3 decimal places.
Using tolerance of value > 0.00005 through 0.00099 did not resolve the 3 decimal places
and as a result, the autocalculated value of 0.000561 did not accept the 0.00600 as correct or equals to 0.00561.
QUESTION?
In this scenerio, in what way can I adjust the tolerance value to recond the following:
if the autocalculated value is 0.00561 then
(a). Accept the rounding off to 0.00600
(b) Deny rounding off to 0.00610
(c).Deny rounding off to 0.00500
(d). Accept rounding to 0.00560
(f). Deny rounding to 0.00562 since it was greater than the original
calculated value of 0.00561
Well, I am not too sure if the above is achievable, I was only pondering on it.
Start Free Trial
