Check two different statements on the Exit Routine

[Pacman52]

Despite hours of searching and trying loads of different ways to resolve I have finally accepted its time to ask for help,

So my question is how do I write the exit sub to include the 2nd bit of code pasted below?

Many thanks for any advice or solutions offered. Paul

Private Sub Textbox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)

Dim Result As VbMsgBoxResult

If ckBTextbox1.Value = True And Trim(Textbox1.Value) = "" Then
Textbox1.BackColor = RGB(255, 0, 0)

Result = MsgBox("You've ticked this box but not entered the a name." & vbCrLf & vbCrLf & _
"Click 'Yes' to enter the name or 'No' to un-tick.", vbInformation + vbYesNo, "Name Required:")

If Result = vbYes Then

Cancel = True
Textbox1.BackColor = RGB(204, 255, 255)

Else

ckBTextbox1.Value = False
Textbox1.BackColor = RGB(255, 255, 255)
Textbox1Desc.Enabled = False

End If
End If
End If

End Sub

If ckBTextbox1.Value = True And Textbox1.Value > "" Then
Textbox1Desc.SetFocus
Textbox1Desc.BackColor = RGB(204, 255, 255)

End If

 

[Micron]

I don't understand what you want. There is no "exit sub" in that code so no idea where you'd want to exit nor under what condition. If both conditions in the first If block are not true, the entire If block is not executed so why can't you just add the second test? Or use a Select Case block? Maybe you should describe what you want to have happen.

BTW, when code is not indented it can be difficult to grasp what is supposed to happen when you're not the one who wrote it. Also, not that it really matters, but you seldom need to use .Value as it is the default property in most cases.

Private Sub Textbox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim Result As VbMsgBoxResult

If ckBTextbox1.Value = True And Trim(Textbox1.Value) = "" Then
    Textbox1.BackColor = RGB(255, 0, 0)
    Result = MsgBox("You've ticked this box but not entered the a name." & vbCrLf & vbCrLf & _
            "Click 'Yes' to enter the name or 'No' to un-tick.", vbInformation + vbYesNo, "Name Required:")
    If Result = vbYes Then
        Cancel = True
        Textbox1.BackColor = RGB(204, 255, 255)
    Else
        ckBTextbox1.Value = False
        Textbox1.BackColor = RGB(255, 255, 255)
        Textbox1Desc.Enabled = False
    End If
End If

If ckBTextbox1.Value = True And Textbox1.Value > "" Then
    Textbox1Desc.SetFocus
    Textbox1Desc.BackColor = RGB(204, 255, 255)
End If

 

[Pacman52]

Thanks for the reply. Sorry about not indenting the code properly on the post or really explaining what I actually wanted to achieve, The post was written after many hours of frustration trying to resolve this and other problems on the worksheet.

I've decided to simplify the form now but for reference what I was trying to do was have both the sets of code I pasted in my original post combined so that it all ran together on the exit routine.

 

[Micron]

I get what you mean by "the exit sub" now. Exit Sub is an actual and often used command line in all sorts of procedures. You're referring to the Exit event for the control. Unfortunately I am non the wiser because repeating what you were trying to do is not really the same thing as revealing what is going on as the user is using the form. Anyway, it appears you have come up with a solution. The way I posted it does seem to answer how to combine the two parts, as long as all of it is between the Sub and End Sub lines.