内容提要

录入、保存入库明细、打印入库单动态添加数据验证日期控件录入日期TextBox搭配ListBox控件，模糊搜索、选择录入物料明细

大家好，我是冷水泡茶。

前几天在论坛上看到一个求助贴，很多年以前的旧贴了：

录入、保存入库明细

各位坛友周末好：

现把入库单上的入库信息汇总到流水帐记录表中。

1、单据号：RK+年月日+001（001为单据流水号）--到下一年从零重新计。

2、序号按品号递增

3、点保存后，本条记录信息（如第二工作表）保存到"汇总入库单记录"

4、本入库单有上百条物料，输入完成后，在D列行末自动填上合计和汇总数（如黄色单元格）

5、汇总入库单记录中有数据的区域自动添加边框。

6、点打印后，本入库单到行底（负责人）自动打印。

烦请大神赐教，感谢！   

 出入库方面的需求还是比较多的，一直想做一个进销存、出入库方面的应用，但是感觉工作量比较大，一直也没有时间与决心去做。

今天这个案例应该属于出入库当中的一小块内容，这两天花了点时间，基本完成一个框架，有点粗糙，我们一起来看一下。

1、入库单表，是一个录入数据的模板：

图片

2、入库明细表，保存入库明细数据，我修改了工作表名，删除原表头，把它变成一个标准的二维表：

图片

3、物料表：这是我添加的，原来的需求中并没有提供这张表。

图片

还有一些表，除了供应商，其余类别、业务员、仓库都是我添加的，目的是在录入日库单的时候可以选择录入。

需求难度不算大，我准备用ADO数据连接来处理查询、添加明细记录等。

思路与功能说明：

1、在录入入库单的时候，供应商、类别、业务员、仓库都通过SQL查询对应的表中的记录，添加相应单元格的数据验证，供选择输入。2、录入商品明细，我们采用TextBox+listBox来选择输入，可以模糊搜索。3、我们录入完成后，点保存，把数据更新到“入库明细表”中，采用更新记录集的方式。保存完之后，可以打印工作表，这个没有写什么代码，直接打印工作表4、点“保存并打印”则保存数据并打印工作表。。5、点新增，把入库单物料数据区域清空，单据号+1。6、点新号，根据入库日期，刷新为最新的空白单据号。7、入库日期，我们把【日期控件】整合进来，点击录入日期，一般会自动更新单据号，我说一般，原因是有时候更新不成功，再者原因，是因为我们把查询入库单功能整合在这张表单里，而当我们查询已有入库单时，会把该单据号的入库日期写到入库单表的入库日期中，也会触发工作表Change事件。我们通过一个变量blnUpdateOrderNo来记录是我们手工录入日期，还是查询入库单时填入日期，如果是前者就触发更新单据号，后者就不更新。有时候blnUpdateOrderNo的值并不是预期的值。8、已保存入库单查询：我们点击H列单据号，会自动查询已有单据号，并添加到H3单元格的数据验证，点选一个单据号，则把该单据号的数据查询过来，可以打印工作表，实现补打入库单的功能。9、我们设置一个“清除”按钮，可以清除最后一行记录。10、可能还有一些其他功能，不再细说。

图片

VBA代码

代码详见第二条推文。

后记：

1、本案例的目标数据库是当前文件，也可以单独设置一个Excel文件作为数据库，如果要改为Access数据库也很方便，虽说不上无缝衔接，但也只需要很少的改动，修改数据库文件与数据表名称即可。2、本案例录入表单是在Excel表中，输入比较方便，但控制起来有点麻烦，我还是比较倾向于用户窗体。3、默认入库单行数固定不变，没有考虑行数增减的情况。4、由于时间匆忙，有一些特殊情况没有考虑到，可能会有不少报错的情况，有机会再慢慢调整吧。好，今天就到这，我们下期再会。~~~~~~End~~~~~~ 本站仅提供存储服务，所有内容均由用户发布，如发现有害或侵权内容，请点击举报。