求助：关于control.value的问题

来福　发表于：2014-10-21 20:26:53 　

问题如下：

     Dim ctl As Control
    For Each ctl In Me.Controls
    If ctl.Name Like "input*" Then
    ctl.Value = Null
    End If
    Next

代码如上时，执行正常。但如果变成

    Dim ctl As Control
    For Each ctl In Me.Controls
    If ctl.Name Like "*Date" Then          ‘区别就在这里
    ctl.Value = Null
    End If
    Next

则提示：运行时错误403，对象不支持该属性或方法。

竹笛发表于：2014-10-21 22:11:02

上传一下你的示例，供回复的网友调试代码。

茼蒿发表于：2014-10-22 08:27:15

If ctl.Name Like "*Date" Then

改为 If ctl.Name Like ”*“ & “Date" Then 试试

来福发表于：2014-10-22 11:14:22

见附件。

窗体页眉、页脚的“重置”按钮。

煮江品茶发表于：2014-10-22 17:35:36

ctrl.Name Like "*Date" 可能存在lable等没有value属性的控件，可以在外层再套一层IF语句用来排除aclable的控件：

if ctrl.controltype<>acLabel then

if ctrl.name like "*Date" then ctrl.value=null

end if

来福发表于：2014-10-23 12:44:31

回复“煮江品茶”：诚如您指点。确实有一个按钮被我命名为含“date”的了。多谢指教。

总记录：5篇页次：1/1 9 1 :

Access交流中心