Inserting a column using vb

[TTR9000]

This is the code I have in Module1 which runs when the db is opened I would like to insert a column at the end of the Prosaim 852 Table before the table is opened. I also would like to name the new column Proto Number.

Here is the Code

Function AutoExec()

DoCmd.SetWarnings False

DoCmd.OpenQuery "proto mat", , acReadOnly
DoCmd.OpenQuery "Prosaim852 Query", , acReadOnly
DoCmd.OpenTable "Prosaim 852 Table", , acReadOnly

End Function

 

[mdmilner]

Try this:

SELECT Prosaim852.[EDI Type], Prosaim852.[Duns+4], Prosaim852.Payer, Prosaim852.[Sold-To], Prosaim852.UPC, Prosaim852.[Customer Number], '' AS Proto_Number INTO [Prosaim 852 Table] 
FROM Prosaim852;

 

[TTR9000]

thanks that finally fixed it