dbBoolean Display

[Guest]

How can I set the "Display Control" on a Boolean Field Type to "Check Box"
using VBA?


Thanks


Ross

 

[Marshall Barton]

How can I set the "Display Control" on a Boolean Field Type to "Check Box"
using VBA?

You may have additional things to do, but this is the core
idea:

Dim db As Database
Dim tdf As TableDef
Dim fld As Field
Dim prp As Property

Set db = CurrentDb()
Set tdf = db.TableDefs("zJunk")
Set fld = tdf.Fields!FieldName
Set prp = fld.CreateProperty("DisplayControl", _
dbInteger, acCheckBox)
fld.Properties.Append prp

Set prp = Nothing
Set fld = Nothing
Set tdf = Nothing
Set db = Nothing

 

[Guest]

Marshall,

I have done those other things but this is what I couldn't find!

Set prp = fld.CreateProperty("DisplayControl", dbInteger, acCheckBox)

Thank you!

Ross