Field Property "DisplayControl"

[RuudJ]

Can anyone help me with this code ?

I want to create a field as a Yes/No field in a table and set the view of this filed as a check-box.

The code I wrote so far (as shown below) runs but doesn't do the trick !!

Please help.

Ruud

Set db = CurrentDb
Set tdfBestaand = db.TableDefs("Test")
Set Veld = tdfBestaand.CreateField("Wijzig", dbBoolean)
tdfBestaand.Fields.Append Veld
Set fldprop = Veld.CreateProperty("DisplayControl", 1, 3)
Veld.Properties.Append fldprop

 

[cuttsy]

Can't you use the table design view to do this?

 

[RuudJ]

DispalyControl

Thanks for the reply.
I can of course use the table design view, but that's not what ik want: ik want to use only VBA to get this done !
Any suggestions ?

Ruud