Help with the X on a form in VBA

[Pookiemeister]

Is there a way to write code to the X on a userform located in the upper right hand corner of the form. I have a few textboxes on my form that alerts the user with a message box if they did not enter a value in the textbox on exit. The problem that I am having is if the user opens the form by accident and they want to close out of it by clicking the X, without entering any values in the text boxes, the message box still displays. So what I need is the form to close without displaying any message boxes. Thank you.

 

[jproffer]

Can you post the userform code that you're using now?

 

[Pookiemeister]

Private Sub cmbPrdCde_Exit(ByVal Cancel As MSForms.ReturnBoolean)Dim rtn_ans2 As String
    
    If cmbPrdCde.Value = "" Then
        rtn_ans2 = MsgBox("Please select a product.", vbOKOnly, "Select a Product")
    Select Case rtn_ans2
    Case 1
            Cancel = True
    End Select
    
    End If
End Sub

 

[jproffer]

Is that a command button Exit event? And are you getting THAT message when you try to close the userform without values in TBs?

 

[Pookiemeister]

I'm sorry. I'm sure if what you are referring to. The "X" I'm referring to is the white X with a red background on the form or the white X is also on a webpage. The code mentioned above displays even when the user clicks on that "X". I hope that clarifies things.

 

[AndyMachin]

Instead of vbOKOnly use the vbYesNo and ask the user "Are you sure you want to close without bla bla bla"

 

[jproffer]

Yes, the regular close button. And I understand now what that code is for and why it runs. Instead of "cmbPrdCde_Exit(ByVal Cancel As MSForms.ReturnBoolean)" maybe try "cmbPrdCde_Change()"

I think it's firing because you have the focus set to the combobox and when you close the form (or try to) it..."exits" the combobox. You could also try to set the focus to something else when the userform initializes unless you just have to have it on the combobox.

 

[AndyMachin]

I would remove that code from the combobox and use this one in the close event of the userform

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = 0 And cmbPrdCde.Value = "" Then
    If MsgBox("Are you sure you want to exit without selecting a product?", vbYesNo, "Select Product?") = vbNo Then
    Cancel = 1
    End If
End If
End Sub