在仓库日常管理工作中，对于每个物料的收货与发料，往往遇到很多琐碎问题，如何确保先进先出，收货时如何尽量放满某个仓位，发料时又如何及时释放某个仓位，人工控制管理，相当费时费力。这里简单介绍下，如何通过一个ACCESS数据库来实现。

工具/原料

ACCESS
VBA
主窗体
子窗体

方法/步骤

假定仓位布局仅仅一层，6行*10列，共计60个仓位Bin，对应编号如下；

每个物料的基本属性，件号，品名，单位，最小包装量，最大存储量(单个仓位，这个属性在编写自动收货代码时需要着重考虑)等明细如下；

当前仓位及已存储的物料件号，品名，库存，单位，批次等明细如下；

收货主窗体如下，在对应的子窗体内可以输入待收货的多条物料记录；

点击”Goods_Receipt”命令按钮后，自动生成入仓清单如下，打印在不干胶纸张上，则可作为物料标识，在相应仓位粘贴；

相关VBA代码如下1st；

相关VBA代码如下2nd；

相关VBA代码如下3rd；

发料主窗体如下，在对应的子窗体内可以输入待发料的多条物料记录；

点击”Goods_Issue”命令按钮后，自动生成出仓清单如下，同样打印在不干胶纸张上，则可作为新的物料标识，在相应仓位粘贴，更新库存信息；

相关VBA代码如下1st；

相关VBA代码如下2nd；

相关VBA代码如下3rd；