ACCESS中的列表框不会使用组合框

时间:2016-06-03 18:59:21

标签: vba ms-access

我在表[tbl E&O Main]中有两列 ImportDateOn InventoryDate 。我创建了一个组合框来导航 ImportDateOn 和一个列表框来显示 InventoryDate 。当我单击我的组合框时,应自动过滤 InventoryDate 的列表框。我在组合框中设置了AfterUpdate()事件,如下所示:

Private Sub DateSelector_AfterUpdate()
   Forms![CtrlPanel]!InventoryDateList.Value = Null
   Forms![CtrlPanel].Requery
   Forms![CtrlPanel].Refresh
End Sub

然后在列表框的数据源中,我的代码如下

SELECT [tbl E&O Main].InventoryDate 
FROM [tbl E&O Main] 
WHERE [tbl E&O Main].ImportDateOn=Forms![CtrlPanel]![DateSelector].[value] 
GROUP BY [tbl E&O Main]!InventoryDate; 

请告知列表框没有选择组合框的原因。

Design View Form Screen Shot

1 个答案:

答案 0 :(得分:1)

$(window).on("keydown", function() {

            console.log(document.activeElement);
            console.log($(".glyphicon-chevron-down")[0]);

                if (document.activeElement === $(".glyphicon-chevron-down")[0])  {

                            console.log("activeElement is recognized!")   

                            $(".glyphicon-chevron-down")[0].focus( function() {
                                $( this ).trigger("click"); 
                        });
                    }
                });

这应该可以解决问题。

@BitAccesser是正确的,requery命令应该在列表框上而不是表单上。

重新查找表单会更新表单控件源中的数据,但不会重新查询表单中存储的其他(未绑定)对象。由于您只想刷新列表框中的选择,因此您甚至不需要刷新或重新查询表单对象。