①首先改变窗体的默认视图为连续窗体.
②把标题和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个商品,是看不出效果的),效果如下面的动画所示(单击下方的“显示”二字):