Set all form controls to null

[AricC]

Currently I am manually setting each control on my form to null to reset. Does anyone know how to do this with a loop or a more simple command? I've seen some make shift control arrays but none that would work for me.

Thanks,
Aric

[ADezii]

Currently I am manually setting each control on my form to null to reset. Does anyone know how to do this with a loop or a more simple command? I've seen some make shift control arrays but none that would work for me.

Thanks,
Aric

Try

On Error Resume Next
 
Dim ctl As Control
For Each ctl In Me.Controls
  ctl.Value = Null
Next

[AricC]

I've tried something like that but I get the error that the object doesn't support that property/method.

[NeoPa]

If you look carefully you'll see that there is code included to avoid that situation arising (On Error Resume Next).
Try this code out as exactly as possible and let us know how you get on.
At worst you'll waste five minutes.
If it doesn't work properly for you then come back and let us know what went wrong and we'll see if we can't find another solution for you.

[AricC]

I think I got it fixed, here is the code I used, (an interesting work around):

Private Sub ResetFields()
Dim ctlTextBox As Control
 
    For Each ctlTextBox In Me.Controls
        If TypeName(ctlTextBox) = "TextBox" Then
            ctlTextBox.Value = Null
        End If
     Next ctlTextBox
 
 
End Sub
 

And I'm using this for combo boxes:

    For Each ctlComboBox In Me.Controls
        If TypeName(ctlComboBox) = "ComboBox" Then
            ctlComboBox.Value = Null
        End If
     Next ctlComboBox
 

[NeoPa]

Maybe this could work better for you (similar results of course - just tidier code).

Private Sub ResetFields()
Dim ctlTextBox As Control
 
    For Each ctlTextBox In Me.Controls
        If TypeName(ctlTextBox) = "TextBox" _
        Or TypeName(ctlTextBox) = "ComboBox" Then _
            ctlTextBox.Value = Null
     Next ctlTextBox
End Sub

PS. It would be interesting, for me as well as any future readers of the thread, if you could post what happened when you tried ADezii's code.

[AricC]

It would be interesting, for me as well as any future readers of the thread, if you could post what happened when you tried ADezii's code.

If you use this code:

Dim ctl As Control
For Each ctl In Me.Controls
  ctl.Value = Null
Next

You will get the following Error Number: 438 Error Description: Object doesn't support this method or property.

[NeoPa]

I understand that Aric, but that wasn't the code posted.
You left out a very important line :

On Error Resume Next

which should ensure that the error is never triggered but that all controls (Text- & Combo-Boxes) that can be set to Null are (See Post #4).

[AricC]

I understand that Aric, but that wasn't the code posted.
You left out a very important line :

On Error Resume Next

which should ensure that the error is never triggered but that all controls (Text- & Combo-Boxes) that can be set to Null are (See Post #4).

I didn't use that line in my testing, only the for loop. I log my errors with error handling. Sorry for the confusion.

[NeoPa]

Not a problem Aric.
And congratulations to you for becoming a TSDN Moderator.