Mega Code Archive

 

Categories / VisualBasic Script / Access

 

Default Column value

Sub CreateDefault()     Dim cmd As ADODB.Command     Set cmd = New ADODB.Command     cmd.ActiveConnection = CurrentProject.Connection     cmd.CommandText = "CREATE TABLE Customers " & _         "(CustomerID LONG CONSTRAINT CustomerID PRIMARY KEY, " & _         "CompanyName TEXT (50), IntroDate DATETIME, " & _         "CreditLimit CURRENCY DEFAULT 5000)"     cmd.Execute End Sub