Office中国论坛/Access中国论坛

标题: 在同一窗体中如何将某一文本框更改前的值保存到另一文本框 [打印本页]

作者: 付谦 时间: 2007-9-7 11:13
标题: 在同一窗体中如何将某一文本框更改前的值保存到另一文本框
请知者指教，其余见附件[attach]26160[/attach]

[ 本帖最后由付谦于 2007-9-7 11:23 编辑 ]

作者: heqing3000 时间: 2007-9-7 11:40
标题: 是这样吗？

:):):):)[attach]26161[/attach]

作者: 付谦 时间: 2007-9-7 15:32
现将附件重发[attach]26165[/attach]

作者: heqing3000 时间: 2007-9-7 15:34
是不是二楼这样？undefined undefined

作者: Henry D. Sy 时间: 2007-9-7 16:34
Private Sub 职务_GotFocus()
Me.前职务 = Me.职务
End Sub

[ 本帖最后由 dddddd 于 2007-9-7 16:36 编辑 ]

作者: wchlilu 时间: 2007-9-7 16:46
启用第一个文本框的进入事件，将本身的值赋给第二个文本框就行。

作者: 付谦 时间: 2007-9-7 17:48
标题: 回复 6# 的帖子
谢谢大家的帮助！碰到了如下问题：在党员窗体中双击支部名称，采用选择的办法更改支部名称，流动方向文本框不随之保存原支部名称，而采用手工输入的办法则可以，如何解决？[attach]26169[/attach]

作者: 付谦 时间: 2007-9-11 08:08
标题: 为何选择输入不更新？
在党员窗体中双击支部名称，采用选择的办法更改支部名称，流动方向文本框不随之保存原支部名称，而采用手工输入的办法则可以，如何解决？

作者: 付谦 时间: 2007-9-12 08:08
标题: 回复 8# 的帖子
为何无人指教，急！附件见我9-7日帖

作者: hi-wzj 时间: 2007-9-12 10:10
二楼的例子：
Private Sub 职务_BeforeUpdate(Cancel As Integer)
If Me.职务 = i Then
Else
Me.前职务 = i
End If
End Sub

可以简化为：
Private Sub 职务_BeforeUpdate(Cancel As Integer)
Me.前职务 = i
End Sub
因为在更新前事件中系统就已判断新旧值是不同的了。

且该代码有一缺陷就是，在本记录未保存前会不停的更新“前职务”字段。
比如：打开窗体后，更改了某记录的职务，光标跳到原职务上，但如果我发现刚才更改出现错误，再返回“职务”字段更改后，“原职务”字段显示的是刚才更改的错误的职务。
因此，正确的代码应该是：

Private Sub 职务_AfterUpdate()
Me.前职务 = Me.职务.OldValue
End Sub
OldValue记录的是激活记录前的值，当记录未保存前其值是不变的。

[ 本帖最后由 hi-wzj 于 2007-9-12 10:20 编辑 ]

作者: hi-wzj 时间: 2007-9-12 10:23
5.6楼的方法是不管是否更新“职务”值都更新“原职务”也是不正确的。因为记录更新前“原职务”也许是有值的会被强行覆盖。

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