使用部门文本框改为组合框
在使用部门组合框的on change事件中写以下代码：
使用部门.RowSource = "select 使用场所 from 使用场所表 where 使用场所 like '*" & 使用场所.Text & "*'"使用部门.Dropdown
access窗体添加查询帮助完成
