Creating Check Constraints:add business rules for a table : Table Create « Access « VBA / Excel / Access / Word






Creating Check Constraints:add business rules for a table

 
Sub CreateCheckConstraint()
    Dim cmd As ADODB.Command
    Set cmd = New ADODB.Command

    cmd.ActiveConnection = CurrentProject.Connection
    cmd.CommandText = "CREATE TABLE Customers1 " & _
        "(CustomerID LONG CONSTRAINT CustomerID PRIMARY KEY, " & _
        "CompanyName TEXT (50), IntroDate DATETIME, " & _
        "CONSTRAINT IntroDateCheck CHECK (IntroDate <= Date()), " & _
        "CreditLimit CURRENCY DEFAULT 5000)"
    cmd.Execute
End Sub

 








Related examples in the same category

1.Create a table with validation rule
2.Creating a Table (ADOX data types vs. Microsoft Access data types)
3.Creating a Table in the Current Database with SQL statement
4.Creating a Table in a New Database with AUTOINCREMENT column
5.Creating a Table with a Single-Field Index with SQL command
6.Adding a Single-Field Index to an Existing Table with SQL command
7.Creating an Index Based on Two Fields with SQL command
8.Default Column value