I am trying to write code that will clear all the fields in my form. I have a combo box, a list box, and two text boxes.
I have used this code in the past, but it is only working to clear the combo box now.
Private Sub btnNew_Click()
Dim ctl As Control
For Each ctl In Me.Controls
Select Case ctl.ControlType
Case acComboBox, acListBox, acTxtBox
ctl.Value = Null
Can someone tell me what I am doing wrong?