Finding calculated fields

[Geo21]

Hi.

I have the following problem.

I use before update event in a form to loop through all controls and find numerical values in order to round them to 2 decimal places. The problem is that I get error message for calculated fields (numbers created from expressions in other words). To solve this, I locked the subject fields and added .locked = False in the criteria. Though, since I want to do this in every form, it will be annoying to lock all the fields.



Is there a method to check if the Field is a result of calculation, thus not editable?

Thanks.

[June7]

By calculated fields, do you mean Calculated type field in table?

Why not set the Format and DecimalPlaces properties to display only 2 decimals?

Why is this necessary? Users should input data to only 2 decimal places and you want to correct?

[Geo21]

By calculating field I mean a normal text box, containing a result from an expression such as addition. It is usually in a query.

Users are supposed to input 2 decimal places, but there is also the error factor, as a result, the number will be shown as 2 decimals, but the value stored will be the actual input and I don't want that.

[June7]

Can use code behind user input textbox to correct their input. In the textbox AfterUpdate event:

Me.textboxname = Round(Me.textboxname,2)

Be aware that Round() function in Access uses even/odd rule.

Round(3.465,2) = 3.46
Round(3.475,2) = 3.48

If you want to save value of calculated textbox, that requires code to populate a field.

[Geo21]

June,

Thanks for the answers.

Though, I don't want the calculated fields to be updated. The question is, is there any kind of code so they be excluded?

Such as

If ctl {not a result of expression} then
Round(ctl, 2)
End if

[June7]

You can use the Tag property of control. Put whatever text you want into the property - maybe "Calc". Then code can exclude those controls.

If ctl.Tag <> "Calc" Then

[Geo21]

Thanks a lot.

[June7]

Possible alternative is for code to check if there is = sign in the textbox ControlSource.

If Not ctl.ControlSource LIKE "=*" Then