Follow-up regarding default table value

[xRoachx]

I'm getting a data type error for the code below:

Dim dtmClassDate as Date

dtmClassDate = FormatDateTime(CurrentDb.TableDefs
("Assignment Sheet").Fields("Class Date").DefaultValue,
vbShortDate)

The field Class Date is a Date/Time field in the
Assignment Sheet table. What I'm trying to do is assign
dtmClassDate a value if the value is not supplied by the
user. I want to use the default value used in the table.
Any ideas as to why I would get a data type error? Thanks.

 

[Marshall Barton]

I'm getting a data type error for the code below:

Dim dtmClassDate as Date

dtmClassDate = FormatDateTime(CurrentDb.TableDefs
("Assignment Sheet").Fields("Class Date").DefaultValue,
vbShortDate)

The field Class Date is a Date/Time field in the
Assignment Sheet table. What I'm trying to do is assign
dtmClassDate a value if the value is not supplied by the
user. I want to use the default value used in the table.
Any ideas as to why I would get a data type error? Thanks.

The Format finction always returns a string, not a date/time
value. Since the DafaultValue property is also a string
value, you probably should convert it to a date/time value:

dtmClassDate = CDate(CurrentDb.TableDefs("Assignment
Sheet").Fields("Class Date").DefaultValue)