Simple prompt to get an integer from a user? 1

[Paladyr]

Is there a "built-in" prompt with an input field that will allow me to grab an integer from the user??? Something like:

intExample = vbUserPrompt

and vbUserPrompt will return whatever the user enters??? Thanks!

 

[JohnYingling]

InputBox?

http://www.VBResizer.com

Generate Forms/Controls Resizing/Tabbing Class

http://www.VBCompare.com

Compare Code (Text)

http://www.VBSortGen.com

Generate Sort Class in VB or VBScript

 

[Thei]

Hey Paladyr,

Try the following inside your code:

InputBox "Please insert an integer", "Insert Integer"

 

[Paladyr]

Okay, it won't let me assign the input to anything??? How do I get what the user enters into an integer???

 

[Thei]

Dim Result

Result = InputBox ("Enter an integer here&quot

The integer is now storred into the variable Result.

 

[Paladyr]

I just figured it out, it returns a string... I was trying to grab an integer.. Thanks!

 

[mmilan]

Take the returned string, and test it with IsNumeric.

If it passes the test, bung it through CInt and look smug.

If it fails, slap the user with a robotic arm of something, and "invite" the user to try again...

 

[JohnYingling]

Dim strResult as String
Dim intResult As Integer
Dim lngErr as Long
Do
strResult = InputBox ("Enter an integer here&quot
On Error resume next
intResult = Cint(strResult)
lngErr = Err.Number
On error goto 0
if lngErr = 0 then
* User could enter "-1"
if intResult >= 0 then exit do
End if
Loop

http://www.VBResizer.com

Generate Forms/Controls Resizing/Tabbing Class

http://www.VBCompare.com

Compare Code (Text)

http://www.VBSortGen.com

Generate Sort Class in VB or VBScript

 

[Paladyr]

Thank you all for your suggestions .

 

[Francis]

'Try this
Function AskForNum() As Integer
Dim ans%
On Error Resume Next
AskForNum = 42 'default value
AskForNum = InputBox("Enter an integer here&quot
'if entry was invalid default is returned
End Function

 

[Francis]

Oops, don't need the Dim ans% in the above