CHANGE DATE/TIME FORMAT USING ALTER TABLE 1

[jadams0173]

I add a column to my table using

DoCMD.RUN SQL "ALTER TABLE TEMP ADD RELTIME TIME"

Is there a way thru code to make the format of the new column short time?

 

[Remou]

Does it have to be SQL or would this suit (?):

Dim tdf As DAO.TableDef
Dim db As DAO.Database

Set db = CurrentDb

Set tdf = db.TableDefs("tblTable")
With tdf
    .Fields.Append .CreateField("RELTIME", dbDate)
    .Fields("RELTIME").Properties.Append .CreateProperty("Format", dbText, "Short Time")
End With

 

[jadams0173]

It doesn't have to be SQL. I'll give this a go!! Thanks Remou.