Enabling Reset Button

[metabee]

Hello,

I was wondering if someone could help me with the following. I have a reset button on my form, that I would like to become enabled when any of the fields on the form are not equal to their starting values, but not enabled when all fields are equal to their starting values. In this way seeing whether the reset button is enabled (greyed out) can serve as a visual tool for the user to see if he/she has made changes anywhere on the form.

In principle, I can achieve this by writing a textbox_Change() sub for every textbox, drop down list, and option button, but it seems that this is not very efficient.
Especially, given that the form itself contains 63 textboxes, 2 option buttons, and 4 drop down lists.

I was wondering if someone could help me with this. Any help is greatly appreciated.

[ImranBhatti]

Unable to visualize without a sample workbook.Please upload a file with desensitized data.

[bulina2k]

Hello,
...
In principle, I can achieve this by writing a textbox_Change() sub for every textbox, drop down list, and option button, but it seems that this is not very efficient.
...
.

Actually this would be the most efficient way for the user (not for the coder indeed).

You could also try try to loop through every control in userform using somenthing like

    For Each cControl In Me.Controls

        'take the control values into a label for exaple...

    Next cControl 

' based on the label caption activate/deactivate reset button

but this code should be triggered by an event also... maybe a mandatory last field..

[metabee]

I have attached a sample file with what I want to achieve.

As soon as the value of any of the textboxes/combobox is not equal to its starting value, I want the reset button to be enabled.

If all textboxes/comboboxes are equal to its starting value, i want the reset button to be disabled.

This is working fine in the sample file.

The problem is that for the original file, I have more than 70 fields, and it is not efficient to program it separately for every button.

Hence why I was hoping someone has a smarter solution.

Any help is greatly appreciated.

[mikerickson]

In general what I would do is put the Default values for each control in its .Tag property (at design time or start up)

Then I would have a butReset tied to code like this.

Private Sub butReset_Click()
    Dim oneControl as MSForms.Control

    For Each oneControl in Me.Controls
        Select Case TypeName(oneControl)
            Case "TextBox", "CheckBox", "ComboBox", "OptionButton"
                oneControl.Value = oneControl.Tag
        End Select
    Next oneControl

    butReset.Enabled = False
End Sub

Then each control's change event would call this sub

Sub ResetEnablement()
    Dim Enablement as Boolean
    Dim oneControl as MSForms.Control

    Enablement = True

    For Each oneControl in Me.Controls
        Select Case TypeName(oneControl)
            Case "TextBox", "CheckBox", "ComboBox", "OptionButton"
                Enablement = Enablement And (oneControl.Tag <> CStr(oneControl.Value))
        End Select
    Next oneControl

    butReset.Enabled = Enablement
End Sub

Alternatly, you could just set the butReset.Enabled to True in every Change event without looking to see if the Change is "change back to default"

[metabee]

Thank you very much for your answer, I am however still unable to get it to work ...

I set me.Reset.Enabled=False for the initialisation, because if the form is first loaded, there is nothing to reset.

However, when I type in any of the textboxes, it does not then become enabled...

[mikerickson]

I got the logic switched between ALL and ANY. Change this line

Sub ResetEnablement()
    Dim Enablement as Boolean
    Dim oneControl as MSForms.Control

    Enablement = False

    For Each oneControl in Me.Controls
        Select Case TypeName(oneControl)
            Case "TextBox", "CheckBox", "ComboBox", "OptionButton"
                Enablement = Enablement Or (oneControl.Tag <> CStr(oneControl.Value))
        End Select
    Next oneControl

    butReset.Enabled = Enablement
End Sub

[bakerman2]

Post Deleted.