Input Box
Thanks for that Tom
Greg B
"Tom Ogilvy" wrote in message
...
Dim search1 as String
Dim cnt as Long
Dim sMsg as String
sMsg ="i.e JOHN DOE"
cnt = 0
do
cnt = cnt + 1
search1 = InputBox(sMsg, ("WHAT IS THE PLAYERS NAME?"))
sMsg = "An entry is required" & chr(10) & "i.e. JOHN DOE"
if cnt = 3 then
msgbox "Number of prompts exceeded" & chr(10) & _
"Hit enter to quit", vbOk
exit sub
End if
loop while Search1 = ""
Is an example you should be able to adapt.
--
Regards,
Tom Ogilvy
"Greg B." wrote:
Dim search1
search1 = InputBox("i.e John Doe", ("WHAT IS THE PLAYERS NAME?"))
Hi all above is my code for an input box.
I have a question about a few things.
How do I get the input box to exit sub when the cancel box or X button is
clicked?
How do I get the inputbox to stay up when the ok button is clicked with
no
input in the box?
Thanks for any advise on this issue
Greg B
|