Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
On Error Resume Next
Error handling will not work if input box "Cancel" button is selected. I will get an error message, error #13, < Type Mismatch . What's going on here?
On Error Resume Next 'turn on error handling dteDate = CDate(InputBox("Enter ending date for projection", Default:=Date)) If Err.Number 0 Then 'trap error if user clicks the cancel button Exit Sub End If On Error GoTo 0 'reinstate normal error procedures D.S. |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
On Error Resume Next
Clicking the Cancel button does not raise an error in and
of itself, it returns a zero length string. The error is occurring because you are trying to store a zero length string in a Date variable. Instead, try this: strInput = InputBox("Enter the Date", Default:=Date) If strInput < "" Then dteDate = CDate(strInput) Else MsgBox "No Date Selected..." <jump to exit routine End If Mike. -----Original Message----- Error handling will not work if input box "Cancel" button is selected. I will get an error message, error #13, < Type Mismatch . What's going on here? On Error Resume Next 'turn on error handling dteDate = CDate(InputBox("Enter ending date for projection", Default:=Date)) If Err.Number 0 Then 'trap error if user clicks the cancel button Exit Sub End If On Error GoTo 0 'reinstate normal error procedures D.S. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
On error resume next not working | Excel Discussion (Misc queries) | |||
Autofill & On Error Resume Next | Excel Discussion (Misc queries) | |||
On Error Resume Next problem | Excel Discussion (Misc queries) | |||
On error resume next problem | Excel Discussion (Misc queries) | |||
On Error Resume Next | Excel Programming |