InputBox Cancel With Default Value

[martipe1]

I'm asking for 2 dates for a report, the default date for start date is Today() and for end date is start date, I want to exit the sub if the user cancels, but keep getting error Type mismatch. Already have tried to check for False, "" and StrPtr with no success.

StrDate= InputBox("Report start date? (dd/mm/aa)", "Report", Format(Now(), "dd/mm/yy"))

    If StrPtr(StrDate) = 0 Then
        Exit Sub
    End if

EndDate= InputBox("Report end date? (dd/mm/aa)", "Report", Format(StrDate, "dd/mm/yy"))

    If EndDate = "" Then
        Exit Sub
    End if

Any idea.

Thanks!

 

[Mentor82]

I'm asking for 2 dates for a report, the default date for start date is Today() and for end date is start date, I want to exit the sub if the user cancels, but keep getting error Type mismatch. Already have tried to check for False, "" and StrPtr with no success.

StrDate= InputBox("Report start date? (dd/mm/aa)", "Report", Format(Now(), "dd/mm/yy"))

    If StrPtr(StrDate) = 0 Then
        Exit Sub
    End if

EndDate= InputBox("Report end date? (dd/mm/aa)", "Report", Format(StrDate, "dd/mm/yy"))

    If EndDate = "" Then
        Exit Sub
    End if

Any idea.

Thanks!

Hi,
Try this.

StrDate= InputBox("Report start date? (dd/mm/aa)", "Report", Format(Now(), "dd/mm/yy"))

    If StrDate = vbNullString or Not (IsDate(StrDate)) then
        Exit Sub
    End if

EndDate= InputBox("Report end date? (dd/mm/aa)", "Report", Format(StrDate, "dd/mm/yy"))

    If EndDate = vbNullString or Not (IsDate(EndDate))  Then
        Exit Sub
    End if

Let me know if it works for you ?.

 

[martipe1]

Thank you very much for your answer.

Unfortunately, your suggestion didn't work, same error Run time error 13: Type mismatch and it takes me to the StrDate expression.

As a side note, I check later if the date is valid.

Thanks.

 

[Fluff]

Have you declared your variables? If so what are they?

 

[martipe1]

Have you declared your variables? If so what are they?

yes, I did

Dim StrDate As Date, EndDate As Date

Thanks!

 

[Fluff]

In that case change them both to Variant

 

[martipe1]

Thank you, Mentor and Fluff for your help.

I changed the data type and now it works!!

 

[Fluff]

Glad we could help & thanks for the feedback.