Basic userform problem

[becklog]

Hi,


I have a userform with 4-5 items (depending on the selected option) to put in and a submit button. The first box requires the user to add a 6 letter-ticket and a list of options for the remaining 4. Is there a way to halt the operation if the following criteria is met:

- if the first option has less than 6 letters or empty.
- in the event that a user selects the option that requires 5 data and leave the 5th data empty
- if the user leave any textbox empty.

Thank you in advance

 

[ricardodiazjimenez]

Hi,

Maybe if you put a screenshot of the current form design it'd be easier to help you out.

 

[Leith Ross]

Hello becklog,

If your questions are about TextBoxes on the SUser Form:

Q - if the first option has less than 6 letters or empty.
A - Set the TextBox MaxLength property to 6. This limits the input to a maximum of 6 characters only.

Q - in the event that a user selects the option that requires 5 data and leave the 5th data empty.
A - What are these Data? Where are they input to?

Q - if the user leaves any textbox empty.
A - You can check each TextBox Value property and pop up a message that it needs to be filled in before continuing.

' // Enter this code into the General Declarations Section of the UserForm

Dim Closing As Boolean

Function IsTextMissing() As Boolean
    If ActiveControl.Object.Value = "" And Not Closing Then
        MsgBox "Please Enter Text into this Field.", vbExclamation
        IsTextMissing = True
    End If
End Function

' // Add this code to each TextBox Exit event
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    Cancel = IsTextMissing
End Sub

' // Add this code to the UserForm QueryClose Event
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    Closing = True
End Sub