Office中国论坛/Access中国论坛

标题: 如何用一按钮清除窗体上所有文本框中的内容…… [打印本页]

作者: aydl1014    时间: 2002-11-29 01:04
提示: 作者被禁止或删除 内容自动屏蔽
作者: wangxin1978    时间: 2002-11-29 01:26
1、在文本框中循环,将文本框的value设置为null即可,也可以写16个语句;
2、在类别的更新后事件里判断,是否能够更新,设置按钮的enable属性。
作者: huanghai    时间: 2002-11-29 03:18
'也可以历遍控件的办法:
'代码如下:
dim ctrl as control
for each ctrl in me.controls
    if typeof ctrl is textbox then
        ctrl.value=""
    end if
next
作者: aydl1014    时间: 2002-11-29 06:17
提示: 作者被禁止或删除 内容自动屏蔽
作者: wangxin1978    时间: 2002-11-29 17:00
1、判断每个文本框的值的情况
dim ctrl as control
dim flag as string
flag="0"'表示文本框都是空的
for each ctrl in me.controls
if typeof ctrl is textbox then
    if nz(ctrl.value,"")<>"" then
        flag="1"'表示文本框至少有一个不是空的
    end if
end if
next
2、更新类别的控制
if flag="1" then
    更新类别.enable=true
else
    更新类别.enable=false
end if
3、确认更新的控制
if nz(更新类别,"")<>"" then
    确认更新.enable=true
else
    确认更新.enable=false
end if
作者: aydl1014    时间: 2002-12-1 07:20
提示: 作者被禁止或删除 内容自动屏蔽
作者: wangxin1978    时间: 2002-12-1 21:12
1、2、写在“更新类别”的进入事件;
3、写在“更新类别”的更新后事件。

或者1、也可以写在每一个文本框的更新后事件,结果和上述有所不同。

作者: aydl1014    时间: 2002-12-2 00:47
提示: 作者被禁止或删除 内容自动屏蔽
作者: wangxin1978    时间: 2002-12-3 02:50
方便把你的程序传上来,我来修改。




欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/) Powered by Discuz! X3.3