ACCESS窗体中创建组合框控件或列表框下拉选取

改为组合框

1.在

窗体

设计模式

中，选中Text9

控件

，

右键

->变更为"组合框"

2.设置组合框属性：选中组合框，属性->数据->数据来源类型：选择值列表；

属性->数据->数据来源：合格,不合格；

然後窗体的组合框就可以下拉选取"合格"或"不合格"

1、选中组合框，设置其行来源类型为"表/查询"(这是默认值）；

2、设置行来源属性为一条查询语句，例如SELECT 姓名 FROM 学生；

3、然后执行就可以了

Dim ctl As Control

rem 定义一个控件类型变量

DoCmd.OpenForm "窗体12", acDesign, , , , acHidden

rem 在设计视图以隐藏状态打开窗体12

Set ctl = CreateControl("窗体12", acComboBox, acDetail, , , 10, 50, 3000, 440)

创建控件ctl在窗体12中，类型为组合框，后面为具体选项

DoCmd.OpenForm "窗体12"

执行显示窗体。

---