vbcancel with inputbox

[Stephanie0205]

Is it possible to determine if someone hits the cancel button on an inputbox? As far as I can tell, the vbcancel option is not available.

 

[Norie]

What type of inputbox are you using?

Is it the VBA one or are you using Application.Inputbox?

Can we see your code?

 

[Zack Barresse]

You can check for vbNullString.

Ex:

'...
Dim strResponse As String
strResponse = InputBox("Please enter a value:")
If strResponse = vbNullString Then MsgBox "You pressed Cancel!"
'...

 

[Nimrod]

CANCEL BUTTON DEMO... :wink:

Public Sub Demo()
Reply = Application.InputBox("blah blah blah", "Title here")

If Reply = False Then

    MsgBox ("CANCEL BUTTON WAS PRESSED")

End If
End Sub

Public Sub Demo2()
Reply = Application.InputBox("blah blah blah", "Title here")

If Reply = False Then Exit Sub

    MsgBox ("CANCEL BUTTON WAS NOT  PRESSED")

End Sub

you must use "application" in front of the word "inputbox" :wink: ... its the difference between using the inputbox function and method.

 

[erik.van.geit]

As far as I know hitting Cancel will result in a "nothing-result"

answer = Inputbox ....
If answer Is Nothing Then ...

kind regards,
Erik

(or do I miss something, Norie ?)

EDIT: posted two replies, but deleted the second, I didn't see all posts when typing my messages

 

[Norie]

It depends what type of InputBox is used.

By the way your code generates an Object Required error if you press cancel.

 

[Zack Barresse]

That's because the InputBox method does not return Nothing, it handles Strings.

 

[Stephanie0205]

Well, I was using this code...

Dim dt As Date
dt = InputBox("Please enter date.")
If dt = vbNullString Then
...

and when the user hit cancel he would get a type mismatch error. So I changed the code according to Nimrod's suggestion.

Dim dt As Date
dt = Application.InputBox("Please enter date.")
If dt = False Then
...

Thanks for all your help. It is much appreciated.

 

[Tom Urtis]

Is it possible to determine if someone hits the cancel button on an inputbox? As far as I can tell, the vbcancel option is not available.

Some people only use the Application.InputBox method when they want to trap cancel but it is do-able with the function InputBox as an example below using strptr:


Sub CancelExample()
Dim ans1$
ans1 = InputBox("Please enter the name:", "Name")
Select Case True
Case StrPtr(ans1) = 0
MsgBox "You hit Cancel.", 48, "Entry cancelled."
Exit Sub
Case Len(ans1) = 0
MsgBox "You hit OK but entered nothing.", 48, "Entry scuttled."
Exit Sub
Case Else
MsgBox "You entered ''" & ans1 & "''."
End Select
End Sub