Using a CHECK Constraint to Specify a Condition for All Values Entered for the Column : Column Constraint « Access « VBA / Excel / Access / Word






  1. VBA / Excel / Access / Word
  2. Access
  3. Column Constraint

Using a CHECK Constraint to Specify a Condition for All Values Entered for the Column

 
Sub CheckColumnValue() 
    Dim conn As ADODB.Connection 
    On Error GoTo ErrorHandler 

    Set conn = CurrentProject.Connection 

    conn.Execute "CREATE TABLE myTable(Id AUTOINCREMENT CONSTRAINT PrimaryKey PRIMARY KEY," & _ 
        "CountMe INT, CONSTRAINT FromTo CHECK (CountMe BETWEEN 1 AND 30));" 

ExitHere: 
    conn.Close 
    Set conn = Nothing 
    Exit Sub 
ErrorHandler: 
    Debug.Print Err.Number & ":" & Err.Description 
    Resume ExitHere 
End Sub








Related examples in the same category

1.Creating a Table with a Validation Rule Referencing a Column in Another Table
2.Relating Two Tables and Setting up Cascading Referential Integrity Rules