Do loop in userfrom

[tiredofit]

The code below starts if the user clicks a button on the userform.

The idea is it loops until the user enters "Apples" or clicks the "No" button on the messagebox.

The problem is if the user enters the wrong value more than one, say n times, if he eventually clicks "No", the messagebox pops up n times. I want it to only pop up once.

    Dim Response As Variant

    Do Until Response = vbNo
        Select Case Me.txtbox.Value
             Case "Apples"
                 Unload Me
              Case Else
                  Unload Me
                  Response = MsgBox(Prompt:="Wrong, repeat?", Buttons:=vbYesNo)
                  If Response = vbNo Then
                      ' Do something
                  Else               
                      MyUserform.Show
                  End If
            End Select
    Loop

To fix it, I had to add an extra line, as per the below, to make it work:

Dim Response As Variant

    Do Until Response = vbNo
        Select Case Me.txtbox.Value
             Case "Apples"
                 Unload Me
              Case Else
                  Unload Me
                  Response = MsgBox(Prompt:="Wrong, repeat?", Buttons:=vbYesNo)
                  If Response = vbNo Then
                      ' Do something
                  Else               
                      MyUserform.Show

                    '**********
                    Response = vbNo 'HAD TO ADD THIS LINE TO FIX IT
                    '**********

                  End If
            End Select
    Loop

Why is that?

Thanks

 

[DanteAmor]

Try this approach:

Private Sub CommandButton1_Click()
  Dim Response As Variant
  If Me.txtbox.Value = "Apples" Then
    Unload Me
    Exit Sub
  End If
  Response = MsgBox(Prompt:="Wrong, repeat?", Buttons:=vbYesNo)
  If Response = vbNo Then
    Unload Me
    Exit Sub
  End If
  txtbox.SetFocus
End Sub

 

[tiredofit]

Try this approach:

Private Sub CommandButton1_Click()
  Dim Response As Variant
  If Me.txtbox.Value = "Apples" Then
    Unload Me
    Exit Sub
  End If
  Response = MsgBox(Prompt:="Wrong, repeat?", Buttons:=vbYesNo)
  If Response = vbNo Then
    Unload Me
    Exit Sub
  End If
  txtbox.SetFocus
End Sub

Thanks, your code works.

 

[DanteAmor]

I'm glad to help you. Thanks for the feedback.