הוספת ChecBox
הנה פתרון לדוגמא, שים לב שהמאפיין הוא של ACCESS ולא של ה- JET ולכן צריך להקים את המאפיין:
Sub maketbl() Dim db As DAO.Database, tbl As TableDef, fld As DAO.Field, prp As DAO.Property Set db = CurrentDb Set tbl = db.CreateTableDef("newtable") Set fld = tbl.CreateField("YESNOField", dbBoolean) tbl.Fields.Append fld db.TableDefs.Append tbl Set prp = fld.CreateProperty("DisplayControl", 3, 106) fld.Properties.Append prp End Sub
