Calendar Selection Icon on Input Box

[CSJM45]

Hi

I'm trying to replace the input box selection with a selectable calendar icon instead. How do I do that?

Thanks,

Project_Due_Date = InputBox("What is the project due date in mm/dd/yyyy format?")

If Not IsNull(Project_Due_Date) Then
Me.Project_Due_Date.Value = Project_Due_Date
End If

 

[jdraw]

I'm attaching a jpg --- blank form with a Textbox
default value is #1/1/1900#
format Long Date
Show date picker for Dates

 

[apr pillai]

Design a Form with a Text Box and a Calendar Control yourself, instead of the built-in Inputbox Form. InputBox() function uses a Form and accepts only a text parameter as prompt.

Check this link for ideas: Custom-made Form Wizard