clean controls from form with error

[mutley]

Hi

I'm trying to clear the form using the code below

 
Function ClearAll(frm As Form)
Dim ctl As Control

For Each ctl In frm.Controls
   Select Case TypeName(ctl) 'ctl.ControlType
      Case "TextBox"
           ctl.Value = ""
      Case "OptionGroup", "ComboBox", "ListBox"
          ctl.Value = Null
      Case "Checkbox"
         ctl.Value = False
      'Case ac
   End Select
Next
End Function

But return error Runtime error 438


error occurs because my combobox is Style = Dropdown List

[k_zeon]

Hi

I'm trying to clear the form using the code below

 
Function ClearAll(frm As Form)
Dim ctl As Control

For Each ctl In frm.Controls
   Select Case TypeName(ctl) 'ctl.ControlType
      Case "TextBox"
           ctl.Value = ""
      Case "OptionGroup", "ComboBox", "ListBox"
          ctl.Value = Null
      Case "Checkbox"
         ctl.Value = False
      'Case ac
   End Select
Next
End Function

But return error Runtime error 438


error occurs because my combobox is Style = Dropdown List

Put "ComboBox" as a seperate case.
then make sure the combobox has a blank item and either set that as "" or set listindex = 0

[ChrisE]

just clear that error..
you do want all Contols blank

Option Explicit

Private Sub Command1_Click()
Call clearForm(Me)
End Sub

Public Sub clearForm(ByRef myForm As Object)
    On Error GoTo EH
    Dim objCtrl As Control

    For Each objCtrl In myForm.Controls
            
            If TypeOf objCtrl Is TextBox Then
                 objCtrl = ""
            End If

           If TypeOf objCtrl Is CheckBox Then
                 objCtrl = 0
            End If
         
         If TypeOf objCtrl Is ComboBox Then
                 objCtrl = ""
            End If
    Next
EH:
    If Err.Number = 438 Then
        Resume Next
    End If
End Sub


Private Sub Form_Load()
Combo1.AddItem "Test"
End Sub

[DataMiser]

To clear a combo with set to drop down list set the listindex to -1