Office中国论坛/Access中国论坛

标题: 在窗体中Dlookup函数如何自动刷新 [打印本页]

作者: pq318 时间: 2011-10-26 10:48
标题: 在窗体中Dlookup函数如何自动刷新
我经常碰到的一个问题是，前面工序的数据刷新了，但是传值到后面工序的数据还是没有刷新，我用的是Form—beforeupdate在窗体，有什么办法自动刷新的吗，谢谢各位

作者: andymark 时间: 2011-10-26 21:37
beforeupdate事件不对吧，你是一个窗体传递到另一个窗体吗

作者: yanghua1900363 时间: 2011-10-27 08:12
可以在当前窗体的某个字段的数据更新后事件写入刷新事件过程或者在下一工序窗体的加载事件写入代码

作者: pq318 时间: 2011-10-27 09:17
是啊就是传值的啊

作者: pq318 时间: 2011-10-27 09:18
加载事件Load用了没有作用啊

作者: todaynew 时间: 2011-10-27 09:20

pq318 发表于 2011-10-27 09:18
加载事件Load用了没有作用啊

先把本窗体刷新使得刚写入的数据更新到表中。

作者: pq318 时间: 2011-10-27 09:22
版主我试试啊

作者: pq318 时间: 2011-10-27 09:39
有两个窗体，对应的表分别是form9和form14，其中form9是前到工序的，form14是后到工序的，我在form14窗体写的
Public Sub Form_Load()
Me.Lable45 = DLookup("[Lable10]", "form9", "[Lable2]='" & "Lable41" & "'")
Me.Lable46 = DLookup("[Lable10]", "form9", "[Lable2]='" & "Lable42" & "'")
Me.Lable47 = DLookup("[Lable10]", "form9", "[Lable2]='" & "Lable43" & "'")
Me.Lable48 = DLookup("[Lable10]", "form9", "[Lable2]='" & "Lable44" & "'")
Me.Lable3.SetFocus
Dim ctls As Controls
Dim ctl As Control
Set ctls = Me.Controls
For Each ctl In ctls
If ctl.ControlType <> acLabel Then
ctl.OnDblClick = "=AllDblClick()"
End If
Next ctl
End Sub
麻烦各位看看哪里不对啊，就是没有作用啊

作者: todaynew 时间: 2011-10-27 11:03
第一句加：forms("form9").Refresh

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