Input box question

[JT]

I'm using the following code to capture the user entered Group ID:

vGp = Trim(InputBox("Enter Group ID or ""All"", "Customer Group"))

The input form has an OK and Cancel Button. The problem is vGP returns ""
if the user presses OK and does not enter anything or if they press the
Cancel button.

Is there a way to determine which button was pushed? The reason is I will
take different actions depending on which button was pushed.

Thanks for the help......

 

[Mike H]

Hi,

You could test for a null string

Sub sonic()
vGp = Trim(InputBox("Enter Group ID or All", "Customer Group"))
If vGp = vbNullString Then
'do something
MsgBox "Nullstring"
Else
'Do something else
End If
End Sub

 

[JLGWhiz]

If you use the InputBox Method then the Cancel will equal False and can be
distinguished from the OK with a blank entry.

 

[Harald Staff]

Hi JT

Remove Trim from the inputbox and try this:

Sub test()
Dim vGp As String
vGp = InputBox("Enter Group ID or ""All""", "Customer Group")
If StrPtr(vGp) = 0 Then
MsgBox "Cancel button"
End If
vGp = Trim(vGp)
End Sub

HTH. Best wishes Harald