Yes no textbox urgent

[TurboDieselOne]

Hi
I need a way so that a person can only type yes or no in to a text box and then when it tabs to the next text box it turns to ucase. I know the onexit ucase(Variable) but the if me.Texbox1.value = "YES" or "NO" does not seem to work. GOT a 6 Page userform full of yes no textboxes so I can use this code across the board.

Thanks in Advance

 

[Mike Blackman]

Hi,

Are you after this?

If Me.Texbox1.Value = "YES" or Me.Texbox1.Value = "NO" Then

 

[TurboDieselOne]

I tried this but did not work.

 

[Mike Blackman]

I assumed you'd complete the If statement, my bad

With Me.textbox1
    If .Value = "YES" Or .Value = "NO" Then
        .Value = UCase(.Value)
    Else
        MsgBox Prompt:="You may only enter YES or NO in this Text Box!", _
               Buttons:=vbCritical, _
               Title:="Error"
        .Value = ""
    End If
End With

 

[TurboDieselOne]

Thanks did not think of using the Case Statement

 

[TurboDieselOne]

wrong Case bad day sorry

 

[Mike Blackman]

Didn't use a Case Statement.... used an IF statement, you could however use a Case Statement....

With Me.textbox1
    Select Case .Value
        Case "YES", "NO"
            .Value = UCase(.Value)
        Case Else
            MsgBox Prompt:="You may only enter YES or NO in this Text Box!", _
                   Buttons:=vbCritical, _
                   Title:="Error"
            .Value = ""
    End Select
End With

 

[TurboDieselOne]

Hi Thanks with the case I can allow for other variations as well

Thanks

 

[TurboDieselOne]

When I Close the form it still has the msgbox up even if nothings been entered is this a bug?

Thanks

 

[Mike Blackman]

The messagebox is a seperate object to the form and will only go away when you hit Ok on it to clear it. Is it coming up when the form is closed?

You don't need to have the messagebox at all if you dont want.