Warning msgbox when closing a userform

**JamesT1** · 10-12-2008, 02:32 PM

Hi
I have a userform for inputing a range of vehicle details. It will not let the user add the details unless all fields are complete.

If the user complets some of the fields and closes the form it will not save any information.

They must use a command button to close the form (the red X will not show)

I am looking for a way for a warning msg box to appear when they select the close form button

thanks

**rwgrietveld** · 10-12-2008, 02:49 PM

This is just a copy what can be found in the HELP. Add you functionality like check wether all fields are filled.

Private Sub UserForm_Terminate()

Dim Msg, Style, Title, Help, Ctxt, Response, MyString
Msg = "Do you want to continue ?"    ' Define message.
Style = vbYesNo + vbCritical + vbDefaultButton2    ' Define buttons.
Title = "MsgBox Demonstration"    ' Define title.

Ctxt = 1000    ' Define topic
        ' context.
        ' Display message.
Response = MsgBox(Msg, Style, Title, , Ctxt)
If Response = vbYes Then    ' User chose Yes.
    MyString = "Yes"    ' Perform some action.
Else    ' User chose No.
    MyString = "No"    ' Perform some action.
End If

End Sub

**JamesT1** · 10-12-2008, 03:15 PM

Hi rwgrietveld

Thanks for the reply

The userform has two buttons

'Add Vehicle', this can only be used when all fields are complete.

'Close Form' to be used for closing the form when the vehicle details have been entered.

What I would like is, if the 'Add Vehicle' button has not been used then a message box appears warning the vehicle details have not been saved, when the 'Close Form' button is selected

**Leith Ross** · 10-12-2008, 04:07 PM

Hello JamesT1,

Welcome to the Forum!

If you have a workbook with the user form added, you should post it. It will make things clearer for everyone and get you a faster response to your question.

**JamesT1** · 10-12-2008, 04:18 PM

Hi Leith Ross

The userform is attached the to 'Add New Vehicle' button

**Leith Ross** · 10-12-2008, 05:01 PM

Hello JamesT1,

Here is the macro I added to the form. It is called in the QueryBeforeClose event. If it is false, the message is displayed and the focus set back to vehicle registration text box. It has already been installed in the attached workbook.

Function ValidateAllEntries() As Boolean

  Dim Ctrl As MSForms.Control
  Dim Status As Boolean
  
    Status = True
    
    For Each Ctrl In Me.Controls
      Select Case TypeName(Ctrl)
        Case Is = "TextBox", "ComboBox"
          If Ctrl.Value = "" Then Status = False
      End Select
    Next Ctrl
    
    ValidateAllEntries = Status
  
End Function

Sincerely,
Leith Ross