InputBox Validation?

Hello All,
What would be the proper syntax for the following? The question is
commented out in the code.

Sub mySub()
Dim myDate As Date
myDate = InputBox("Please enter a date.")

' **Here is where I get a type mismatch error**
' How should I word this condition to apply to the "Date type"
' I defined at the start"
If myDate = "" then 'Type mismatch error!!!
MsgBox "You must enter a date! PLease retry."
Exit Sub
End If
' Run my proceedure here
End Sub

--
Thanks,

Patrick

Use the IsDate function to determine if data is a Date data type. From VB Help file:

IsDate Function


Returns a Boolean value indicating whether an expression can be converted to a date.

Syntax

IsDate(expression)

The required expression argument is a Variant containing a date expression or string expression recognizable as a date or time.

Remarks

IsDate returns True if the expression is a date or is recognizable as a valid date; otherwise, it returns False. In Microsoft Windows, the range of valid dates is January 1, 100 A.D. through December 31, 9999 A.D.; the ranges vary among operating systems.

This code should work for you:

Please Login or Register  to view this content.

Hope this helps,
theDude

I would do it this way:

Sub mySub()
Dim myDateInpt asString, myDate as Date

myDateInpt = ""
While Not(IsDate(myDateInpt)
myDateInpt = InputBox("Please enter a date.")
If Not(IsDate(myDateInpt) Then MsgBox "You must enter a date! Please
retry."
Wend
MyDate = DateValue(myDateInpt)
' Run your proceedure here
End Sub



"PSKelligan" wrote:

> Hello All,
> What would be the proper syntax for the following? The question is
> commented out in the code.
>
> Sub mySub()
> Dim myDate As Date
> myDate = InputBox("Please enter a date.")
>
> ' **Here is where I get a type mismatch error**
> ' How should I word this condition to apply to the "Date type"
> ' I defined at the start"
> If myDate = "" then 'Type mismatch error!!!
> MsgBox "You must enter a date! PLease retry."
> Exit Sub
> End If
> ' Run my proceedure here
> End Sub
>
> --
> Thanks,
>
> Patrick

That code is great but there is one thing to note (not a problem with the
code) once you are in the loop there is no way out except to enter a date...
The user can not cancel... Depending what you want to do... This can be very
frustrating for the user. Like I said the code is great but be careful what
you wish for. ;-)

"K Dales" wrote:

> I would do it this way:
>
> Sub mySub()
> Dim myDateInpt asString, myDate as Date
>
> myDateInpt = ""
> While Not(IsDate(myDateInpt)
> myDateInpt = InputBox("Please enter a date.")
> If Not(IsDate(myDateInpt) Then MsgBox "You must enter a date! Please
> retry."
> Wend
> MyDate = DateValue(myDateInpt)
> ' Run your proceedure here
> End Sub
>
>
>
> "PSKelligan" wrote:
>
> > Hello All,
> > What would be the proper syntax for the following? The question is
> > commented out in the code.
> >
> > Sub mySub()
> > Dim myDate As Date
> > myDate = InputBox("Please enter a date.")
> >
> > ' **Here is where I get a type mismatch error**
> > ' How should I word this condition to apply to the "Date type"
> > ' I defined at the start"
> > If myDate = "" then 'Type mismatch error!!!
> > MsgBox "You must enter a date! PLease retry."
> > Exit Sub
> > End If
> > ' Run my proceedure here
> > End Sub
> >
> > --
> > Thanks,
> >
> > Patrick

That seemed to do the trick!
Thanks!

"K Dales" wrote:

> I would do it this way:
>
> Sub mySub()
> Dim myDateInpt asString, myDate as Date
>
> myDateInpt = ""
> While Not(IsDate(myDateInpt)
> myDateInpt = InputBox("Please enter a date.")
> If Not(IsDate(myDateInpt) Then MsgBox "You must enter a date! Please
> retry."
> Wend
> MyDate = DateValue(myDateInpt)
> ' Run your proceedure here
> End Sub

Excelent point Jim!
I will try to work in an Exit Sub line in there.

Thanks for the heads up!
Patrick

"Jim Thomlinson" wrote:

> That code is great but there is one thing to note (not a problem with the
> code) once you are in the loop there is no way out except to enter a date...
> The user can not cancel... Depending what you want to do... This can be very
> frustrating for the user. Like I said the code is great but be careful what
> you wish for. ;-)

You are correct, Jim - and I usually try to anticipate and avoid (even in
code snippets and examples) situations that might frustrate users - or
(equally important!) where users can frustrate the code. In practice I would
give the user an "out" - like if nothing was input, give a messagebox asking
if the user wants to cancel.

"Jim Thomlinson" wrote:

> That code is great but there is one thing to note (not a problem with the
> code) once you are in the loop there is no way out except to enter a date...
> The user can not cancel... Depending what you want to do... This can be very
> frustrating for the user. Like I said the code is great but be careful what
> you wish for. ;-)
>
> "K Dales" wrote:
>
> > I would do it this way:
> >
> > Sub mySub()
> > Dim myDateInpt asString, myDate as Date
> >
> > myDateInpt = ""
> > While Not(IsDate(myDateInpt)
> > myDateInpt = InputBox("Please enter a date.")
> > If Not(IsDate(myDateInpt) Then MsgBox "You must enter a date! Please
> > retry."
> > Wend
> > MyDate = DateValue(myDateInpt)
> > ' Run your proceedure here
> > End Sub
> >
> >
> >
> > "PSKelligan" wrote:
> >
> > > Hello All,
> > > What would be the proper syntax for the following? The question is
> > > commented out in the code.
> > >
> > > Sub mySub()
> > > Dim myDate As Date
> > > myDate = InputBox("Please enter a date.")
> > >
> > > ' **Here is where I get a type mismatch error**
> > > ' How should I word this condition to apply to the "Date type"
> > > ' I defined at the start"
> > > If myDate = "" then 'Type mismatch error!!!
> > > MsgBox "You must enter a date! PLease retry."
> > > Exit Sub
> > > End If
> > > ' Run my proceedure here
> > > End Sub
> > >
> > > --
> > > Thanks,
> > >
> > > Patrick