Office中国论坛/Access中国论坛

标题: 关于保存事件 [打印本页]

作者: wonderfeng 时间: 2006-9-5 19:24
标题: 关于保存事件
问：

窗体中有多个文本框

text1 text2 ……text 10还有一个command （保存按钮）

能不能实现当最后一个文本框text10获取焦点的时候才允许保存

if me.text10 得到焦点 then

rs.addnew

rs("")=me.text1

……

rs("")=me.text10

else ;msgbox "最后一个文本没得到焦点，不允许保存"

end if

作者: andymark 时间: 2006-9-5 19:31
当你按了command （保存按钮）这一刻焦点已经转移到command 上来,不明你为什么要这样做

　

[此贴子已经被作者于2006-9-5 11:32:21编辑过]

作者: 一点通 时间: 2006-9-5 19:52
一般只判断文本框的值是否有改变就行了

作者: wonderfeng 时间: 2006-9-5 19:55
我检查的是文本框啊

这样做的目的是，防止最后一个文本框或前面的文本框还是空的时候就保存

不想用if isnull(me.text10) and isnumeric(me.text10) then

rs.addnew ……

是因为要对每个文本框都要进行判断，只要text10得到了焦点就允许保存

作者: wonderfeng 时间: 2006-9-5 19:57

以下是引用一点通在2006-9-5 11:52:00的发言：
一般只判断文本框的值是否有改变就行了

不解！什么意思？

作者: 一点通 时间: 2006-9-5 19:58

以下是引用wonderfeng在2006-9-5 11:55:00的发言：

我检查的是文本框啊

这样做的目的是，防止最后一个文本框或前面的文本框还是空的时候就保存

不想用if isnull(me.text10) and isnumeric(me.text10) then

rs.addnew ……

是因为要对每个文本框都要进行判断，只要text10得到了焦点就允许保存

这么说判断最后一个文本框是否为空就行了,与是否获得焦点无关的,因为获得焦点后也不一定会输入过数据的

[此贴子已经被作者于2006-9-5 11:58:54编辑过]

作者: wonderfeng 时间: 2006-9-5 21:17
恩，可以，谢谢一点通大哥

还有一个问题：

我想把月份取出来，比如2006-9-5 变成 200609

我是这样写的：Me.Month = Year(Me.Trx_dt) & Format(Month(Me.Trx_dt), "00")

以前好象不报错的，现在重建了个数据库，它就报错：运行错误 13 类型不匹配

我看了一下他们的类型，month 是文本，trx_dt 是日期型，应该不错的吧

我也试了一下这个Me.Month = format(Year(Me.Trx_dt),"0000") & Format(Month(Me.Trx_dt), "00")还是报错

作者: 一点通 时间: 2006-9-5 21:24
format([日期],"yyyymm")

作者: wonderfeng 时间: 2006-9-5 23:47
晕……

以前不知道为什么不行的，后来才改成那样的

现在又行了

无言了

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)