Form field stores text rather than date

[50gumbys]

I have a form with a date field that doesn't check if an actual date has been entered - and won't check with my coding. It lets you type anything into it.

I initialise the form by setting the fields to empty, and the code for the DATE field is as follows:

txtDOB.Text = Format (Now - (365.25 * 18), "dd/mm/yy")

I tried to define a keyword other than Text for this field, but there was no Date option

I've included an error handling routine to check that a proper date has been entered, but since I think my first statement dictates the field's content, it doesn't work either.

When the fields are filled, I have coding to transfer data to the spreadsheet and that works fine.

I hope this is enough information.

I greatly appreciate your help!
Kind regards,
Lori Hughes

 

[mikerickson]

The .Text and .Value properties of TextBoxes are always String, never Date.

To test if a TextBox contains a string that is a representation of a Date, you could use

[code]MsgBox IsDate(TextBox1.Text)

 

[50gumbys]

Thank you for your help here.

Oh dear! (your message just hit me!)

How can I create a field to contain a date then?

 

[mikerickson]

You don't. You write code knowing that the field will contain a string and use validation techniques to assure that that string can be treated as a date.

 

[50gumbys]

Yikes - So I would need the validate on entering the field to allow a date.

I have no idea how to do that?
Can you help please????

 

[mikerickson]

The easiest way would be to use 3 combo boxes, one for day, one for month and one for year.