MultiPage OnExit Event

[stirlingmw1]

Morning all

I have a Userform with a MuliPage control. On one of the pages (8) I have 240 Textboxes (Textbox 166 to 405) that the operator has the option to add data. Once data has been added the user selects CommandButton (SubmitData). on selecting this command button the data that has been added to the textboxes is then added to "Data" Worksheet. I am trying to add some code that identifies if any data has been added to any of the 240 textboxes and if so prompts the user to select SubmitData if they already haven't if the user tries to exit MultiPage 8.

Any ideas?

Thanks Steve

 

[dmt32]

Hi,
following is an untested idea which hopefully will go in right direction to do what you want

Private Sub MultiPage1_Change()
    Const PageName As String = "Page8"
    With Me.MultiPage1
        If .SelectedItem.Name = PageName Then
            .Tag = PageName
        ElseIf .Tag = PageName And .SelectedItem.Name <> .Tag Then
'check textboxes for any data entry
        For i = 166 To 405
            If Len(.Pages(PageName).Controls("TextBox" & i).Value) > 0 Then
'inform user
                MsgBox "Please Submit Values In " & .Pages(PageName).Caption & Chr(10) & _
                        "Before Continuing", 16, "Submit Data"
'optional re-activate tab
                '.Value = .Pages(PageName).Index
            Exit For
            End If
        Next
        Else
        .Tag = ""
        End If
   End With
End Sub

In commandbutton code you need to add a line to clear the Tag

Private Sub SubmitData_Click()
    Me.MultiPage1.Tag = ""
    
    'rest of code
End Sub

as stated, this is just an idea, you will need to adapt to meet specific project need as required

Dave