Create Field Double with 2 decimal Places

[Guest]

Does anyone know how to programmatically create a field in a table as doub le
and set the decimal places to 2?

This is what I have so far and can't figure out how to set the decimal places:

Set fldtemp = tdfQuote.CreateField("MMREHrs", dbDouble)
tdfQuote.Fields.Append fldtemp

Thank you,

Sarah

 

[Allen Browne]

See the example here:
http://allenbrowne.com/func-DAO.html#SetPropertyDAO

The DecimalPlaces property is a byte, so use the SetPropertyDAO() function
from that page like this:

Call
SetPropertyDAO(CurrentDb.TableDefs("MyTable").Fields("MyDouble"),"DecimalPlaces",
dbType, CByte(2))

 

[Guest]

Thank you so much!

See the example here:
http://allenbrowne.com/func-DAO.html#SetPropertyDAO

The DecimalPlaces property is a byte, so use the SetPropertyDAO() function
from that page like this:

Call
SetPropertyDAO(CurrentDb.TableDefs("MyTable").Fields("MyDouble"),"DecimalPlaces",
dbType, CByte(2))