Office中国论坛/Access中国论坛

标题: 恳请各位高手帮忙指点一下,先行谢过啦! [打印本页]

作者: RickyZjw-3721 时间: 2009-3-21 15:08
标题: 恳请各位高手帮忙指点一下,先行谢过啦!
目前本人正在做一个分析统计部门费用的小程序,我想在窗体中只输入每个部门代码(字段名"ActivCtr",已经用列表控件设置好从表[Activity Center]里取数据),然后TextBox控件部门名称,部门负责人和类别则根据列表控件选择的部门代码自动显示出来(字段名分别为"ActivCtrName","ActivCtrOwner"和"ExpCategory").具体请参阅附件.
我用Dlookup函数试着做了一下,但是怎么都不行,恳请各位高手帮忙指点一下,看看是什么问题.我是个Access新手,如果是低级错误还请各位不要见笑

,非常感谢!!

作者: wuheng 时间: 2009-3-21 16:12
把list37改为组合框,
Private Sub List37_AfterUpdate()
Me.Text59 = DLookup("[Activity Center]![ActivCtrName]", "[Activity Center]", "[Activity Center]![ActivCtr]='" & [Forms]![RoFCST Expense Form]![List37] & "'")
Me.List41 = DLookup("[Activity Center]![ActivCtrOwner]", "[Activity Center]", "[Activity Center]![ActivCtr]='" & [Forms]![RoFCST Expense Form]![List37] & "'")
Me.List43 = DLookup("[Activity Center]![ExpCategory]", "[Activity Center]", "[Activity Center]![ActivCtr]='" & [Forms]![RoFCST Expense Form]![List37] & "'")
End Sub

作者: chaojianan 时间: 2009-3-21 16:31
或者不用dlookup函数，请参考。

作者: RickyZjw-3721 时间: 2009-3-21 21:14
我按照wuheng网友的做法试了一下,果然成功了.不过chaojianan网友的代码我还没有参透,等我以后再慢慢研究吧.
再次对wuheng和chaojianan两位网友热心的帮助致以诚挚的感谢!以后有机会多多向两位学习!

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