再談有關下拉列表清單的刷新問題。

HG

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

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

zhuyiwen

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

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

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

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

cnwang

我的办法是在获得焦点事件中me.[控件名].requery，从未出现问题呀。

waltonw

以上2位斑竹的方法都可行。

HG

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

binbow_z

如果能用菜单中的刷新按钮刷新出来,可用
docmd.runcommand accmdrefresh
(accmdrefresh凭记忆写出,可能有错,在ACCESS中实验一下)

xlx13

学习中