Thank you Allen, this is exactly what I've been looking for. I'm having a
little trouble getting it to work on the 3 date entries in the same form, but
I'm sure I've fat fingered something wrong
So you will add 3 little command buttons, one beside each text box.
After saving the standard module, if the first text box is named Date1, you
would put this into the On Click property of its command button:
=CalendarFor([Date1], "Choose date 1.")