在同一窗体中如何将某一文本框更改前的值保存到另一文本框

付谦

请知者指教，其余见附件

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

heqing3000

:):):):)

付谦

现将附件重发

heqing3000

是不是二楼这样？undefined undefined

Henry D. Sy

Private Sub 职务_GotFocus()
Me.前职务 = Me.职务
End Sub

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

wchlilu

启用第一个文本框的进入事件，将本身的值赋给第二个文本框就行。

付谦

谢谢大家的帮助！碰到了如下问题：在党员窗体中双击支部名称，采用选择的办法更改支部名称，流动方向文本框不随之保存原支部名称，而采用手工输入的办法则可以，如何解决？

付谦

在党员窗体中双击支部名称，采用选择的办法更改支部名称，流动方向文本框不随之保存原支部名称，而采用手工输入的办法则可以，如何解决？

付谦

为何无人指教，急！附件见我9-7日帖

hi-wzj

二楼的例子：
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 编辑 ]