Mega Code Archive

 

Categories / VisualBasic Script / Access

 

Adding a New Money type Field to an Existing Table

Sub AddNewField()     Dim conn As ADODB.Connection     Dim strTable As String     Dim strCol As String     On Error GoTo ErrorHandler     Set conn = CurrentProject.Connection     strTable = "myTable"     strCol = "newColumn"     conn.Execute "ALTER TABLE " & strTable & " ADD COLUMN " & strCol & " MONEY;" ExitHere:     conn.Close     Set conn = Nothing     Exit Sub ErrorHandler:     Debug.Print Err.Number & ":" & Err.Description     Resume ExitHere End Sub