在窗体中Dlookup函数如何自动刷新

pq318

我经常碰到的一个问题是，前面工序的数据刷新了，但是传值到后面工序的数据还是没有刷新，我用的是Form—beforeupdate在窗体，有什么办法自动刷新的吗，谢谢各位

andymark

beforeupdate事件不对吧，你是一个窗体传递到另一个窗体吗

yanghua1900363

可以在当前窗体的某个字段的数据更新后事件写入刷新事件过程 或者在下一工序窗体的加载事件写入代码

pq318

是啊就是传值的啊

pq318

加载事件Load用了没有作用啊

todaynew

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

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

pq318

版主我试试啊

pq318

有两个窗体，对应的表分别是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

第一句加：forms("form9").Refresh