Follow-up regarding default table value

  • Thread starter Thread starter xRoachx
  • Start date Start date
X

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.
 
xRoachx said:
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.
Click to expand...


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)
 
Back
Top