Very nice tool. I have added it to my pet project. I did however make one little addition. At some places in the database I'm working on I want the date picker to return date and time. So I made this change:
' Use this method to prompt for and set a new date on a textbox
Public Sub InputDateField(x As TextBox, AddTime As Boolean, Optional Prompt As String = "Select Date")
mPrompt = Prompt
mInitDate = x.Value
RunDialog
If IsDate(mReturnValue) Then
If AddTime = True Then
x.Value = mReturnValue & " " & Time()
Else
x.Value = mReturnValue
End If
End If
End Sub
Call it:
InputDateField DonationDate, False, "Date Picker"
InputDateField DistributionDateTime, True, "Date Picker"
I hope this little addition helps someone else,
Joe
Hello, Joe.. Thanks for the Post was very helpful..
I'm using Isladogs Calendar on my database, however, now my users are asking if I can add time on to the Calendar after I selected any date from the Calendar.. Ex.. 08/19/2019 07:00:00 AM Or 08/19/2019 03:00:00 PM.. can you help?
Thank You..
Last edited by a moderator: