Mega Code Archive

 

Categories / VisualBasic Script / Access

 

Adding a New Field to a Table

Sub Add_NewFields()    Dim cat As New ADOX.Catalog    Dim myTable As New ADOX.Table    Set cat = New ADOX.Catalog    cat.ActiveConnection = CurrentProject.Connection    cat.Tables("rntsoftTable").Columns.Append _        "MyNewField", adWChar, 15    Set cat = Nothing End Sub