Checking Textbox For Specific Text Entry

[Pacman52]

Hi I have a userform that a user can use to edit/amend a record already entered and then writes any amended data back to the sheet.
The textboxes on the edit form are populated from a worksheet.

I'm having a problem coding a textbox exit routine to check that if a user edits the box and enters something other than the 3 allowed words it fires a msgbox. The code below does actually work but it also fires even if 1 of the 3 words is entered. e.g. If the textbox contains PayPal when the form opens and I then type in Bacs or Stripe is still fires the msgbox.

Would someone be knid enough to let me know what I'm doing wrong please?

Many thanks Paul

Private Sub textboxPayMeth_Exit(ByVal Cancel As MSForms.ReturnBoolean)

    If (textboxPayMeth.Text) <> "PayPal" Or (textboxPayMeth.Text) <> "Stripe" Or (textboxPayMeth.Text) <> "Bacs" Then
    MsgBox "You have entered an invalid payment method, you can only use Paypal, Stripe or Bacs. Please re-enter the payment method using 1 of these 3 methods.", vbInformation, "Invalid Entry"
    
    Cancel = True
    textboxPayMeth.SetFocus
    textboxPayMeth.Value = ""
    textboxPayMeth.BackColor = RGB(204, 255, 255)

    End If

End Sub

 

[dmt32]

Hi,
If users can only enter one of three choices then suggest that perhaps consider using a combobox listing available choices which would negate any possible entry error?

Dave

 

[Pacman52]

Hi Dave thanks for the very quick reply, I did think about using a combo and tried on initially but I came up against an issue (I cant quite remember what it was sorry)

Basically on the original form, the user selects the payment method using a checkbox. Depending on which box is ticked a text value is written to a hidden textbox which in turn is written to the sheet. but saying that as I'm writing this reply I just realised - I don't know why I just dont use a new combo just for the edit form doh!!

 

[dmt32]

Hi
welcome should be quite simple - something like this maybe

With Me.ComboBox1
    .List = Array("PayPal", "Stripe", "Bacs")
    .Style = fmStyleDropDownList
  End With

Setting the controls Style property should prevent users entering any other values

Dave

 

[Pacman52]

Thanks very much again Dave - I must be learning something as I work on VBA as I actually nearly did that although I missed the style bit.