Mega Code Archive

 

Categories / VisualBasic Script / Access

 

Removing a Field from a Table

Sub Delete_Field()    Dim cat As New ADOX.Catalog    Set cat = New ADOX.Catalog    cat.ActiveConnection = CurrentProject.Connection    cat.Tables("rntsoftTable").Columns.Delete "Type"    Set cat = Nothing End Sub