VBA用户窗体清除文本框与组合框内容报错求助

你的代码触发「Object doesn't support this property or method」报错，主要是以下几个问题导致：

• IsEmpty用法错误：IsEmpty仅用于判断变量是否为空值，不能直接作用于TextBox对象，会造成类型不匹配。
• 对象与字符串错误对比：sampah.Name <> TxtTanggal是将控件名称字符串与TxtTanggal控件对象做比较，逻辑错误且触发属性调用异常，正确的做法是与TxtTanggal.Name或直接写目标名称字符串"TxtTanggal"对比。
• 遍历控件的方式有误：直接声明TextBox类型变量遍历窗体控件，当遇到非TextBox类型控件时，会因类型不兼容抛出错误。

修正后的代码 #

Private Sub Tmbl_Del_Click()
    Dim ctl As Control
    
    For Each ctl In Me.Controls
        Select Case TypeName(ctl)
            Case "TextBox"
                ' 跳过需要保留的TxtTanggal文本框
                If ctl.Name <> "TxtTanggal" Then
                    ctl.Value = vbNullString
                End If
            Case "ComboBox"
                ' 清空所有组合框内容
                ctl.Value = vbNullString
        End Select
    Next ctl
End Sub

代码说明 #

• 使用通用Control类型遍历窗体所有控件，避免类型不兼容问题。
• 通过TypeName(ctl)判断控件类型，分别处理TextBox和ComboBox。
• 明确跳过名称为TxtTanggal的TextBox，其余TextBox和所有ComboBox统一清空（用vbNullString比空字符串更规范）。
• 移除冗余的IsEmpty判断，逻辑更简洁高效。

内容的提问来源于stack exchange，提问作者Asyraf Muzhaffar Lanaan