Ahh crud, another problem

[hothead]

Ok, this time I need to save the state of all controls on a form, such as which option buttons in an array are selected, the text inside a combo box, whether or not certain checkboxes are checked or not, etc.

I keep finding stuff for this, but I never can remember where, and my dumbheaded self keeps forgetting to bookmark the pages I find this stuff at.

[MartinLiss]

Do a forum search for SaveSetting.

[IROY55]

Something like this, perhaps:

Option Explicit
 
Private Type AllControls
    ctlName As String
    ctlValue As Variant
End Type
Dim ControlState(255) As AllControls 'max number of controls allowed on a single form
 
Private Sub Form_Load()
Dim i%, ctl As Control
 
    For Each ctl In Controls
        ControlState(i).ctlName = ctl.Name
        If TypeOf ctl Is OptionButton Then
            ControlState(i).ctlValue = ctl.Value
        ElseIf TypeOf ctl Is TextBox Then
            ControlState(i).ctlValue = ctl.Text
        If TypeOf ctl Is CommandButton Then
            ControlState(i).ctlValue = ctl.Caption
        End If
        i = i + 1
    Next ctl
 
End Sub