So I've got code to add some miscellaneous columns to a table I'll be using to run a inventory file for one of our customers. I'm now looking to set the default values for some of these fields. This is probably some ugly code but it's accomplishing what I need.

As far as field types, FileType will ALWAYS be "IN"(Inventory), Instock will be Yes/No based on "Available" column 0 = No >0 = Yes. What is the best way to go about this?




Code:
Private Sub Customer1_Report_Click()
    'Error Handling
    On Error Resume Next
        
        DoCmd.SetWarnings False
        DoCmd.OpenQuery "qryCustomer1", acViewNormal, acEdit
        DoCmd.SetWarnings True
        DoCmd.RunSQL "ALTER TABLE tblSears ADD COLUMN [FileType] Text;"
        DoCmd.RunSQL "ALTER TABLE tblSears ADD COLUMN [InStock] Text;"
        DoCmd.RunSQL "ALTER TABLE tblSears ADD COLUMN [NextShipQty] Text;"
        DoCmd.RunSQL "ALTER TABLE tblSears ADD COLUMN [NextShipDate] Text;"
        DoCmd.RunSQL "ALTER TABLE tblSears ADD COLUMN [Manufacturer] Text;"
        DoCmd.RunSQL "ALTER TABLE tblSears ADD COLUMN [ManufacturerSKU] Text;"
        DoCmd.RunSQL "ALTER TABLE tblSears ADD COLUMN [UnitCost2] Text;"
        DoCmd.RunSQL "ALTER TABLE tblSears ADD COLUMN [UnitCost3] Text;"
        DoCmd.RunSQL "ALTER TABLE tblSears ADD COLUMN [UnitCost4] Text;"
        DoCmd.RunSQL "ALTER TABLE tblSears ADD COLUMN [MerchDept] Text;"
        DoCmd.RunSQL "ALTER TABLE tblSears ADD COLUMN [UoM] Text;"
        DoCmd.RunSQL "ALTER TABLE tblSears ADD COLUMN [Merchant] Text;"
        DoCmd.RunSQL "ALTER TABLE tblSears ADD COLUMN [GS1_ID] Text;"
        
        
End Sub