Input box

[crowegreg]

After a command button is selected on a form, an input box is displayed:



sOrder = InputBox("Please enter the desired sort order. 1 - Request Number, 2 - Position ID, 3 - Hiring Manager, 4 - Notes.", "Sort Order for Position Control Log")


I'm using a Select statement with 4 cases.

If the user enters something other than 1, 2, 3, or 4, the code goes to the error message box. After the user enters through the message, it exits the sub.

How do I get the input box to be displayed again?

[June7]

Use a loop, something like.

While sOrder = "?"
sOrder = InputBox("Please enter the desired sort order. " & vbCRLIF & "1 - Request Number" & vbCrLF & "2 - Position ID" & vbCrLf & "3 - Hiring Manager" & vbCrLF & "4 - Notes", "Sort Order for Position Control Log", "?")
If sOrder >=1 And sOrder <=4 Then
'do nothing, entry good
ElseIf sOrder = "" Then
'user cancelled
Exit Sub
Else
'invalid entry, try again
sOrder = "?"
End If
Wend

[crowegreg]

Nice code. Thanks!!