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:

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]

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:

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]

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:

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