Office中国论坛/Access中国论坛

标题: 再談有關下拉列表清單的刷新問題。 [打印本页]

作者: HG 时间: 2002-5-31 23:34
标题: 再談有關下拉列表清單的刷新問題。
現有一窗體，想提供如下功能：
有兩個下拉列表。列表一，為定單日期，列表二為定單號碼.
現寮現如下功能。
在列表一中選中，或填入某一日期則在列表二中，出現當日所下定單的單號。
由于一天可以有多個定單，而一個定單又可經多天之后方可交貨。
這樣做就有效的縮小了查底的范圍，
做法如下：先作一個查詢，只有兩列，分別提供單號和日期字段，
然后在列表框二的數據來源設為如下：
select 單號 from 查詢 where 日期 = me.定單日期
這樣就寮現在第一次單擊列表框二時，同時更新了查詢范圍。
但是隨之而來的問題如下：
不能每次在單擊列表杠二時，都立即更新查詢。
則可在列表框的click事件中加上如下代碼
Dim ctl As Control
Set ctl = [Forms]![窗體名]![控件名]

ctl.Requery
---------------------------------
但小弟遇到的是，即使如此，還不能立即更新查詢范圍。
望各位高手，班竹給指點。多謝。
[em28][em10][em10]

作者: zhuyiwen 时间: 2002-6-1 02:17

ctl.Requery 刷新的是控件的数据源，而不是控件的行来源(ctl.RowSource)

一般重新赋行来源即可刷新下接列表：

ctl.Rowsource = "SELECT ....."

[fly][em04][em07][em04][/fly]

作者: cnwang 时间: 2002-6-1 05:03
我的办法是在获得焦点事件中me.[控件名].requery，从未出现问题呀。

作者: waltonw 时间: 2002-6-1 07:16
以上2位斑竹的方法都可行。

作者: HG 时间: 2002-6-1 18:03
三位高手;zhuyiwen,cnwang,waltonw
現在小弟以把兩種方法都試過了，同我第一貼所談一樣，
在第一次的時候，還可以同步刷新下拉列表。
但第二次，或在打開窗體不重開的情況下，就行不通了。
不過可以通過記錄菜單，更新刷新出來，這又是為什么哪？
麻煩高手再給指點。多謝。

作者: binbow_z 时间: 2002-6-3 04:16
如果能用菜单中的刷新按钮刷新出来,可用
docmd.runcommand accmdrefresh
(accmdrefresh凭记忆写出,可能有错,在ACCESS中实验一下)

作者: xlx13 时间: 2009-3-30 15:32
学习中

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