error object doesn't support this property or method

Question

i dont know where is the problem :( Sorryy

Private Sub Tmbl_Del_Click()
    Dim sampah As TextBox
    Dim sampah2 As ComboBox
    
    For Each sampah In Jurnal
    If IsEmpty(sampah) Then
        If sampah.Name <> TxtTanggal Then
            sampah.Value = ""
        End If
    End If
    Next
    For Each sampah2 In Jurnal
            
            sampah2.Value = ""
    Next
End Sub

i tried to clear all the content in TextBox and ComboBox in my VBA Form except the TextBox named 'TxtTanggal'

Objects `TextBox` don't have property `Value`. So `sampah.Value = ""` will raise an error. Did you try `sampah.Text = ""`? — Foxfire And Burns And Burns, Mar 10 '23 at 12:45

score 0 · Answer 1 · answered Mar 10 '23 at 14:14

Try adopting the following code, which loops through each control, and checks whether the control is either a TextBox or ComboBox. If so, it clears the content, unless the control is named "TextBox1".

Dim ctrl As Control

For Each ctrl In Me.Controls
    Select Case TypeName(ctrl)
        Case "TextBox", "ComboBox"
            If ctrl.Name <> "TextBox1" Then
                ctrl.Value = ""
            End If
    End Select
Next ctrl

error object doesn't support this property or method

1 Answers1