连续窗体配置过程和组合框的配置过程

①首先改变窗体的默认视图为连续窗体.
②把标题和txt控件的宽度都设置好,把标题剪切到窗体的页眉的地方去
③开始排布之前,首先查看一下窗体在空间里面的顺序问题,使用getFormAllCtlInfo函数查看具体的控件排名,按照排名将位置大致排好,只要设置好控件的宽度就可以了.
④添加删除按钮,对按钮的命名要规范,删除按钮添加代码如下

Private Sub btnDelete_Click()
    On Error Resume Next
    If Not Me.NewRecord Then
        DoCmd.SetWarnings False
        RunCommand acCmdDeleteRecord
        DoCmd.SetWarnings True
    End If

'添加如下代码
    If Me.NewRecord Then
        DoCmd.SetWarnings False
        RunCommand acCmdDeleteRecord
        DoCmd.SetWarnings True
    End If
End Sub

⑤https://blog.csdn.net/zeephom/article/details/79660343按照这个方法对窗体进行排布.

组合筛选框的代码
设置商品ID组合框的属性
1.进入“frm采购订单_Edit_Detail”窗体的设计界面，选中组合框 “商品ID”，进入其属性界面，设置该组合框的以下属性：

列数：5 （代表一共有5列数据）

列标题：是

列宽：0;2.787;7.175;0.99;1.524（这里也可以输入：0;3;7;1;1.5 —-第1个为0代表第1列不显示）

列表宽度：14（ 说明：只需要比上面5列的宽度之和大0.1就可以了，这样不致于有滚动条出现）

如下图所示：

2.保存刚才的设置。

窗体加载事件给组合框赋上行来源并实现智能筛选
1.进入“frm采购订单_Edit_Detail”窗体的设计界面，再进入该窗体模块的VBA设计界面，在代码区的上部：

Option Compare Database
‘加上这一行代码
Private mclsSC商品ID As New SearchComboBox ‘声明一个组合框动态筛选类并将其实例化

2.在窗体的加载事件中写如下代码：
Private Sub Form_Load()
mclsSC商品ID.Init Combo:=Me.商品ID, _
SearchField:=”商品编码 & 品名规格 & 拼音码”, _
SQLSELECT:=”商品ID, 商品编码, 品名规格, 单位, 最新进价 AS 单价”, _
SQLFROM:=”商品信息表”, _
SQLWHERE:=”已停用=0”, _
SQLORDERBY:=”品名规格, 商品编码”
End Sub

说明：

SearchField:指要搜索的字段有哪些

SQLSELECT:指SQL代码

SQLWHERE:指条件

SQLORDERBY：指排序方式

3.保存，关闭“frm采购订单_Edit_Detail”窗体。

4.运行软件，从导航菜单 “日常管理” -> “采购订单”，单击 “新增”，在选择商品编码时，输入拼音或关键词试一下，就可以看到组合框内的内容在动态地筛选（在试之前，要在商品信息表中录入多些记录，若仅1个商品，是看不出效果的），效果如下面的动画所示（单击下方的“显示”二字）：