Office中国论坛/Access中国论坛

标题: 案例请教-设计一个窗体并根据两个组合框的下拉列表值进行联动 [打印本页]

作者: LarryVan 时间: 2012-8-9 17:37
标题: 案例请教-设计一个窗体并根据两个组合框的下拉列表值进行联动
在Access2010中，要设计一个窗体并根据两个组合框的下拉列表值进行联动，选择之后其他控件的内容自动更新。用Dlookup实现的时候遇到了困难，其中有一个选择条件对应的是表中的一列的不同行，所以可以写入criteria; 但是另外一个选择条件的几个值对应的是表中的不同列，所以我写了如下代码都未能实现，请各位帮忙看看怎么改比较合适。非常感谢！

=DLookUp("[[Forms]![CVL Rebate Program]![Combo15]]","CVL Program Query","[Code] =" & [Forms]![CVL Rebate Program]![Combo62])

或者

=DLookUp("[IIF(ISNULL([Forms]![CVL Rebate Program]![Combo15]), ,[Forms]![CVL Rebate Program]![Combo15]]","CVL Program Query","[Code] =" & [Forms]![CVL Rebate Program]![Combo62])

或者：
=IIf('Forms![CVL Rebate Program]![Combo15]'='1Q',DLookUp("[1Q]","CVL Program Query","[Code]
=" & [Forms]![CVL Rebate Program]![Combo62]),2)

其实主要目的就是找到[Forms]![CVL Rebate Program]![Combo15] 这个窗体标签里面的值，作为Dlookup的Expresion来查找到对应的表中该列的值。

作者: roych 时间: 2012-8-9 20:08
论坛里有很多这样的例子，请自行搜索。把Dlookup写到组合框的更改（change）或者更新后（AfterUpdate）事件里，大体如下：
Private Sub Combo15_Change()
Me.Text0=Dlookup("[1Q]","[CVL Program Query]","Code='" & Me.Combo15 &"'")
End Sub
请留意中括号和Me的使用，特别注意单引号的使用（如果Code是数值格式，请删除等号后面单引号和最后的【&"'"】。

作者: LarryVan 时间: 2012-8-9 21:28

roych 发表于 2012-8-9 20:08
论坛里有很多这样的例子，请自行搜索。把Dlookup写到组合框的更改（change）或者更新后（AfterUpdate）事件 ...

谢谢版主，好像和我想的不是太一样

作者: YXH_YXH 时间: 2012-8-11 08:15
帮顶！！！！！！！！！！

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