How to capture Input Box Button

Proaccesspro

Hi All,

How can I determine if the OK button or the CANCEL button was clicked in an INPUT BOX??

II have the following code and it does not appear to be working correctly.

SSNreplace = InputBox("Please enter the Member's SSN", "Update a SSN")
If SSNreplace = "" Then
MsgBox "No Number Entered. Please Try Again", vbCritical, "Update a SSN"
Else
If InputBox("No Number Entered. Please Try Again", vbCritical, "Update a SSN") = vbCancel ThenEnd If
End If

The bolded code does not seem to do anything......

JKing

As far as I know a zero length string is returned if the user clicks cancel. However the same is returned if they click OK and type nothing.

An example would be:

Expand|Select|Wrap|Line Numbers

 
Dim strTest As String
 
strTest = InputBox("Enter value:")
 
if strTest = "" Then

     MsgBox "User clicked cancel or entered no data."

Else

     MsgBox "You entered: " & strTest

End If

Proaccesspro

Quote:

Originally Posted by JKing

As far as I know a zero length string is returned if the user clicks cancel. However the same is returned if they click OK and type nothing.

An example would be:

Expand|Select|Wrap|Line Numbers

 
Dim strTest As String
 
strTest = InputBox("Enter value:")
 
if strTest = "" Then

     MsgBox "User clicked cancel or entered no data."

Else

     MsgBox "You entered: " & strTest

End If

With that in mind, how could I make the input box appear as long as no data is entered? Some kind of loop or test for data?? The way you have it now, the routine does a test then ends....I'm trying to make it so that if the user types nothing and clicks OK, the code would check for input, if it finds none, it would show a msg box stating no data entered and then show the input box again...If the user click Cancel, the routine ends.

ADezii

Quote:

Originally Posted by Proaccesspro

Hi All,

How can I determine if the OK button or the CANCEL button was clicked in an INPUT BOX??

II have the following code and it does not appear to be working correctly.

SSNreplace = InputBox("Please enter the Member's SSN", "Update a SSN")
If SSNreplace = "" Then
MsgBox "No Number Entered. Please Try Again", vbCritical, "Update a SSN"
Else
If InputBox("No Number Entered. Please Try Again", vbCritical, "Update a SSN") = vbCancel ThenEnd If
End If

The bolded code does not seem to do anything......

The bold code will never work since vbCancel is an Intrinsic Constant with a value of 2, and the return value of the InputBox() Function if the Cancel button is pressed is a Zero Length String (""). Try this code and see how you like it, it has been tested and is fully operational:

Expand|Select|Wrap|Line Numbers

 Dim SSNreplace, strMsg As String, intResponse As Integer, blnTryAgain As Boolean
 
strMsg = "You either Cancelled the previous operation or clicked on "

strMsg = strMsg & "the OK button with no value entered in the Text Field."

strMsg = strMsg & vbCrLf & vbCrLf & "Do you wish to try again?"
 
Do

  SSNreplace = InputBox("Please enter the Member's SSN", "Update a SSN")
 
  If SSNreplace = "" Then

    intResponse = MsgBox(strMsg, vbQuestion + vbYesNo + vbDefaultButton2, "Update a SSN")

      If intResponse = vbYes Then

        blnTryAgain = True

      Else

        blnTryAgain = False

      End If

  Else

    MsgBox "You have entered " & SSNreplace & " as your SSAN"

    blnTryAgain = False

  End If

Loop While blnTryAgain

How to capture Input Box Button

re: How to capture Input Box Button

re: How to capture Input Box Button

re: How to capture Input Box Button

Similar Microsoft Access / VBA bytes

/bytes/development

/bytes/it

/bytes/about