Mega Code Archive

 

Categories / VisualBasic Script / Access

 

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