Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Register Log in
  • Congratulations Westi on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Set Display Control with code

Status
Not open for further replies.
thefox149

thefox149

Technical User
Nov 22, 2004
158
AU
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")
 
Sort by date Sort by votes
Is It...

Set prp = fld.CreateProperty("Display Control", dbBoolean)??
 
Upvote 0 Downvote
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"

 
Upvote 0 Downvote
any help guys??

have tried different variances of this can anyone find this info on the msdn?
 
Upvote 0 Downvote
Is it not the CreateControl Action you want?

Set ctl = CreateControl(frm.Name,acCheckBox, , "", "",
 
Upvote 0 Downvote
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)
 
Upvote 0 Downvote
What error were you getting the first time?
 
Upvote 0 Downvote
fld.CreateProperty("DisplayControl", 3,106)
 
Upvote 0 Downvote
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
 
Upvote 0 Downvote
Status
Not open for further replies.

Similar threads

M
  • Locked
  • Question
display a calendar with appointments in body of html email with access vba
Replies
1
Views
2K
SoftwareRT
SoftwareRT
Kennelbloke
  • Locked
  • Solved
Refer to Navigation Control Subform Record
Replies
8
Views
751
Kennelbloke
Kennelbloke
Moss100
  • Locked
  • Question
Open filtered for and set cursor at particular record
Replies
1
Views
438
Moss100
Moss100
JimStrand
  • Locked
  • Question
Trying to Use Form Control as Variable in Report Control Source 2
Replies
5
Views
476
Andrzejek
Andrzejek
Moss100
  • Locked
  • Question
Code not working 1
Replies
5
Views
263
Darrylles
Darrylles

Part and Inventory Search

Sponsor

Back
Top