validation_rule [DAO]

' http://allenbrowne.com/func-DAO.html#CreateTableDAO
' Run create_mdb first, then run add_column.bas

option explicit

sub validation_rule 
  dim db     as dao.database
  dim mdb_file_name as string 
  mdb_file_name = "c:\\temp\\validation_rule.mdb"

  set db = dao.createDatabase(mdb_file_name, dbLangGeneral, 0)

  call create_table(db)

  dim tbl   as dao.tableDef
  dim fld   as dao.field

  set tbl = db.tableDefs("some_table")

  set fld = tbl.Fields("aTextColumn")
  fld.validationRule = " ""one"" or  ""two"" "

  '' 

  set fld = tbl.Fields("aNumberField")
  fld.validationRule = " > 10 and < 20"

  set fld = nothing
  set tbl = nothing

end sub 

private sub create_table(db as dao.database)
' dim access as Access.Application


  dim table_def   as dao.tableDef
  dim table_field as dao.Field

  set table_def = db.createTableDef("some_table")

  ' First column
  set table_field = table_def.createField("aNumberField", dbLong)
  table_def.Fields.append table_field


  ' Second column
  set table_field = table_def.createField("aTextColumn"       , dbText)
  table_def.Fields.append table_field
  
  ' **
  db.tableDefs.append table_def

  set table_field = nothing
  set table_def   = nothing

end sub