Set Display Control with code

[thefox149]

guys my synatx is wrong here any help??

my code adds a yes/no field but i wanna set the field display control to be a check box

'Adds tag
straddcolumn = "ALTER TABLE COLDATA ADD COLUMN tag Bit;"
DoCmd.RunSQL straddcolumn

'makes the display control a check box
Set db = CurrentDb
Set tdf = db.TableDefs("COLDATA")
Set fld = tdf.Fields("tag")
Set prp = fld.CreateProperty("Display Control", "Check Box")

 

[Zion7]

Is It...

Set prp = fld.CreateProperty("Display Control", dbBoolean)??

 

[thefox149]

have used this

Set db = CurrentDb
Set tdf = db.TableDefs("COLDATA")
Set fld = tdf.Fields("tag")
Set prp = fld.CreateProperty("Display Control", dbBoolean)
fld.Properties.Append prp


but gives me "property value must be set before using this method"

 

[thefox149]

any help guys??

have tried different variances of this can anyone find this info on the msdn?

 

[Zion7]

Is it not the CreateControl Action you want?

Set ctl = CreateControl(frm.Name,acCheckBox, , "", "",

 

[thefox149]

it is usual set in the table lookup tab

the form that does use the field is an unbound form
with it's source property set to a query..(which shows the present the data)

 

[Zion7]

What error were you getting the first time?

 

[gol4]

fld.CreateProperty("DisplayControl", 3,106)

 

[gol4]

You may want to do
fld.CreateProperty("Format",10,Yes/No)
as well

Dim dbs As Database, tdf As TableDef
Dim fld As Field, prp As Property

Set dbs = CurrentDb
Set tdf = dbs.TableDefs!tablename
Set fld = tdf.CreateField("fieldname", dbBoolean)
tdf.Fields.Append fld
Set prp = fld.CreateProperty("DisplayControl", 3, 106)
fld.Properties.Append prp
Set prp = fld.CreateProperty("Format", 10, "Yes/No")
fld.Properties.Append prp