Getting error with Alter table code

[hpicken]

When I run code below, I get "syntax error in ALTER TABLE statement" when run. Running ACC2000 SP3 with DAO3.6 ref.

Anyone have any ideas?

Function NewField()

Dim dbs As Database

Set dbs = OpenDatabase("Y:\Access\datahold\consignmentdata.mdb&quot
dbs.Execute "ALTER TABLE Consigments ADD COLUMN DespatchDate DATE/TIME ;"
dbs.Execute "UPDATE Consignments SET DespatchDate = Now() WHERE printed = False ;"
dbs.Close
Set dbs = Nothing

End Function

 

[mp9]

Try replacing:

dbs.Execute "ALTER TABLE Consigments ADD COLUMN DespatchDate DATE/TIME ;"

with

dbs.Execute "ALTER TABLE Consigments ADD COLUMN DespatchDate DATE;"

http://www22.brinkster.com/accessory/

 

[hpicken]

Thanks that did it. Funny I found DATE/TIME, DATETIME in the VBA help but not just DATE on it's own

Once again thanks