恳请各位高手帮忙指点一下,先行谢过啦!

RickyZjw-3721

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

wuheng

把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

或者不用dlookup函数，请参考。

RickyZjw-3721

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