怎样在子窗体某项被动获得数据后能够运行它自身的事件代码

wang1950317

各位老师：窗体中有意文本框[Text0]，更新后将值赋给 子窗体中的[项目]：
Private Sub Text0_AfterUpdate()
Dim stSql As String
stSql = "UPDATE 表1 SET 项目 = '" & Text0 & "'"
CurrentDb.Execute stSql
Me.子窗体.Requery
End Sub

我的问题是，怎样使子窗体[项目]得到窗体[Text0]的赋值后自动运行[项目]更新后的代码：

Private Sub 项目_AfterUpdate()
Me.标准 = DLookup("标准", "表2", "项目='" & [项目] & "' And 二级条件='" & [二级条件] & "'")
  End Sub  
这是一个连续运行问题，如控件均在窗体有老师指点加一句 Call 控件名_AfterUpdate   
但获得数据的控件在子窗体，就不知能否实现，如能实现请各位老师指教代码如何写？
谢谢！请看附件

andymark

把最终结果贴出来

wang1950317

请andymark老师看附件。
谢谢！

wang1950317

看到andymark老师在线，顶到首页！

wang1950317

再顶一下！

wang1950317

顶！各位大师：是否无解？

kangking

一点建议：你在更新后事件中有下面的代码，
stSql = "UPDATE 表1 SET 项目 = '" & Text0 & "'"
CurrentDb.Execute stSql
你为什么不能一次将其它的字段也更新呢？

andymark

还是没看明你需要的结果

yttzm

顶一下。

wang1950317

原帖由 kangking 于 2008-11-4 13:27 发表
一点建议：你在更新后事件中有下面的代码，
stSql = "UPDATE 表1 SET 项目 = '" & Text0 & "'"
CurrentDb.Execute stSql
你为什么不能一次将其它的字段也更新呢？

谢谢以上朋友的指点。也想一次完成，但不知代码怎样写？能再给指教吗？谢谢！