VBA入库单改进版(窗体录入的完美例子)

shuaixinerwei 2012-04-07

展开全文

Excel Home论坛

标题: VBA入库单改进版(窗体录入的完美例子) [打印本页]

作者: xtanuihazfh 时间: 2011-5-16 19:39 标题: VBA入库单改进版(窗体录入的完美例子)

前一闲来无事做了一个VBA入库单的模板,在论坛有不少的朋友关注,但是发现颇多可以改进之处,所以有了这个改进的版本
原贴地址: http://club./thread-717894-1-1.html

这个新的表格有以下特点:
1.使用窗体录入,中间的添加与删除记录使用了动态添加文本框来放置输入数据的容器
2.具体相对比较完善的查询功能(可查询本期的库存数量,也可以查询数据库中的往期已经结案的库存与出入库明细记录)
3.具体月末结案功能,在月底交接的时候可以使用本功能来将本月的记录存放到数据库中,为下月的记录让出空间,这样不致使文件太大,也更加安全)
4.代码完全开源,关键处有注释不设置保护,为各位学VBA的朋友提供一个例子吧:victory: :victory: :victory: ,以下是相关的图片

看过一定要顶啊!!![em07] [em07]
--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
打开报错缺少控件的解决方法在11楼
---------------------------------------------------------
上传了几个在excel中获取数据库中数据的相关动画,在32楼(第四页)
---------------------------------------------------------
2011年6月18日更新(附件也已经更新),动画说明在第77楼(第八页)最后一条记录那....

[ 本帖最后由 xtanuihazfh 于 2011-8-8 12:27 编辑 ]

图片附件: 主界面.jpg (2011-5-16 19:39, 160.3 KB) / 下载次数 177
http://club./forum.php?mod=attachment&aid=OTIzOTA0fDcwMGFmNjdlfDEzMzM3ODgwODV8MTcyNDI5MXww

图片附件: 录入窗口.jpg (2011-5-16 19:39, 49.57 KB) / 下载次数 83
http://club./forum.php?mod=attachment&aid=OTIzOTA1fDYwZTZmZTcwfDEzMzM3ODgwODV8MTcyNDI5MXww

图片附件: 查询窗口1.jpg (2011-5-16 19:39, 110.7 KB) / 下载次数 71
http://club./forum.php?mod=attachment&aid=OTIzOTA2fDI4ODYyODQ2fDEzMzM3ODgwODV8MTcyNDI5MXww

图片附件: 查询窗口2.jpg (2011-5-16 19:39, 100.14 KB) / 下载次数 58
http://club./forum.php?mod=attachment&aid=OTIzOTA3fDRkNjczN2NjfDEzMzM3ODgwODV8MTcyNDI5MXww

附件: 入库单.zip (2011-6-18 22:11, 115.72 KB) / 下载次数 3374
http://club./forum.php?mod=attachment&aid=OTIzOTA4fDlmMjk3ZTRmfDEzMzM3ODgwODV8MTcyNDI5MXww

图片附件: 半透明.jpg (2011-5-22 13:48, 148.72 KB) / 下载次数 57
http://club./forum.php?mod=attachment&aid=OTI3MjE5fGQzMWZmY2NmfDEzMzM3ODgwODV8MTcyNDI5MXww

作者: dg831451 时间: 2011-5-16 19:41

[em07] 第一个来支持你。。。

作者: samhe520 时间: 2011-5-16 19:42 标题: 好

谢谢楼主分享,不错.很漂亮

作者: 紫菜蛋汤 时间: 2011-5-16 19:43

顶一下,希望飞机多弄一些作品:victory:

作者: xtanuihazfh 时间: 2011-5-16 19:46

发几个相关的动画,论坛附件有限制,不能发太多的,只能分开录了

图片附件: 录入窗口.gif (2011-5-16 19:46, 144.81 KB) / 下载次数 82
http://club./forum.php?mod=attachment&aid=OTIzOTEwfDRlZWVkMTBlfDEzMzM3ODgwODV8MTcyNDI5MXww

图片附件: 录入单据.gif (2011-5-16 19:46, 248.16 KB) / 下载次数 52
http://club./forum.php?mod=attachment&aid=OTIzOTExfDliNGE0OTNhfDEzMzM3ODgwODV8MTcyNDI5MXww

图片附件: 查询1.gif (2011-5-16 19:46, 192.63 KB) / 下载次数 54
http://club./forum.php?mod=attachment&aid=OTIzOTEyfGY4ZjBkNDNmfDEzMzM3ODgwODV8MTcyNDI5MXww

图片附件: 查询2.gif (2011-5-16 19:46, 134.43 KB) / 下载次数 59
http://club./forum.php?mod=attachment&aid=OTIzOTEzfDdkNzE5MTAzfDEzMzM3ODgwODV8MTcyNDI5MXww

图片附件: 结案.gif (2011-5-16 19:46, 257.27 KB) / 下载次数 59
http://club./forum.php?mod=attachment&aid=OTIzOTE0fGEwZDMyMTk4fDEzMzM3ODgwODV8MTcyNDI5MXww

作者: wcymiss 时间: 2011-5-16 19:48

收藏了，向小飞学习

作者: cowisen 时间: 2011-5-16 19:52

飞哥，支持下！

作者: jhzwc 时间: 2011-5-16 19:57

飞~~我也来支持下你~~~

作者: 蓝天云朵 时间: 2011-5-16 20:02

2003版本无法下载，请另存为2003版本后再上传，谢谢！

作者: liuguansky 时间: 2011-5-16 20:03

::D ，纯支持下，看不懂代码。

作者: xtanuihazfh 时间: 2011-5-16 20:05

原帖由 蓝天云朵 于 2011-5-16 20:02 发表
2003版本无法下载，请另存为2003版本后再上传，谢谢！

------------------------------------------------------------------------------------
存的就是xls的文件,只是动画用的07版录的罢了
打开报错可能是电脑中缺少控件的问题,我上传个控件,注册下就可以了
几个附件下载后放一个文件夹内,解压出来运行里面的bat文件(WIN7用户请右键以管理员身份运行)

[ 本帖最后由 xtanuihazfh 于 2011-5-16 20:42 编辑 ]

附件: 控件注册.part1.rar (2011-5-16 20:42, 280 KB) / 下载次数 990
http://club./forum.php?mod=attachment&aid=OTIzOTM0fDljZTY3ZDc4fDEzMzM3ODgwODV8MTcyNDI5MXww

附件: 控件注册.part2.rar (2011-5-16 20:42, 280 KB) / 下载次数 930
http://club./forum.php?mod=attachment&aid=OTIzOTM1fDVhMmM0ZDU4fDEzMzM3ODgwODV8MTcyNDI5MXww

附件: 控件注册.part3.rar (2011-5-16 20:42, 160 KB) / 下载次数 844
http://club./forum.php?mod=attachment&aid=OTIzOTM2fDVhMjNlZjM3fDEzMzM3ODgwODV8MTcyNDI5MXww

作者: xingjianli1985 时间: 2011-5-16 21:13

支持飞，，不错的东东，，向你学习

作者: JLF2003 时间: 2011-5-16 21:15

感谢楼主的分享！

作者: 刘志文 时间: 2011-5-16 21:43

谢谢楼主的分享！

作者: yjlexcelhome 时间: 2011-5-16 21:44

多谢分享.:handshake

作者: 啸傲东轩 时间: 2011-5-16 22:22

有用没用，先谢谢这无私的精神！

作者: huangxiaofei520 时间: 2011-5-16 22:41

录入界面提示变量未定义！！！！！

作者: laosanjie 时间: 2011-5-16 22:50

谢谢楼主分享:handshake

作者: benben1119 时间: 2011-5-16 23:27

谢谢分享[em07]

作者: xmyjk 时间: 2011-5-17 00:53

确实做得不错，谢谢分享。

作者: 紫凝倪 时间: 2011-5-17 02:55

感谢楼主的分享！

作者: n520 时间: 2011-5-17 07:39

我也来支持下你

作者: cww101122 时间: 2011-5-17 08:05 标题: 回复 1楼 xtanuihazfh 的帖子

不错，支持一下

作者: qous1 时间: 2011-5-17 08:33

谢谢楼主的分享，用了一下发现几个问题。
出入库单上没有经手人和入库/出库人；
还有在窗口录入的时候，如果按照顺序先输单价再输数量会正常显示金额，但是如果先输了数量再输单价金额就不会自动显示了。

作者: zzx603 时间: 2011-5-17 11:46 标题: 回复 1楼 xtanuihazfh 的帖子

谢谢你！对我很有帮助！

作者: xtanuihazfh 时间: 2011-5-17 12:20

原帖由 qous1 于 2011-5-17 08:33 发表
谢谢楼主的分享，用了一下发现几个问题。
出入库单上没有经手人和入库/出库人；
还有在窗口录入的时候，如果按照顺序先输单价再输数量会正常显示金额，但是如果先输了数量再输单价金额就不会自动显示了。

-------------------------------------------------------
类模块里需要再改进一下,不过你暂时可以先修改一下数量就会自己改正的

作者: teewfg1015 时间: 2011-5-17 14:27

[em07] 凹凸曼飞谢谢了

作者: xel_fan 时间: 2011-5-17 16:23

好东西,下载来学习...
飞飞,我来顶你个肺...

作者: kulu74 时间: 2011-5-17 17:02

谢谢楼主分享,不错.很漂亮[em01]

作者: liu12wenwen 时间: 2011-5-17 17:21

谢谢楼主分享，好贴一定支持

作者: liimtj 时间: 2011-5-17 17:31

必须支持正想做一个类似的学习一下

作者: xtanuihazfh 时间: 2011-5-17 18:39

发几个excel中获取与透视数据库数据的方法,这样数据库对我们来说便不是完全看不见摸不着的东西了

图片附件: 获取数据库内容.gif (2011-5-17 18:39, 239.77 KB) / 下载次数 149
http://club./forum.php?mod=attachment&aid=OTI0NTU0fDAzMTQ3YTdifDEzMzM3ODgwODV8MTcyNDI5MXww

图片附件: 透视数据库.gif (2011-5-17 18:39, 240.86 KB) / 下载次数 88
http://club./forum.php?mod=attachment&aid=OTI0NTU1fDJiMTdmZDJlfDEzMzM3ODgwODV8MTcyNDI5MXww

图片附件: Query查询1.gif (2011-5-17 18:39, 244.36 KB) / 下载次数 78
http://club./forum.php?mod=attachment&aid=OTI0NTU2fGI0NjRmNzYwfDEzMzM3ODgwODV8MTcyNDI5MXww

图片附件: Query查询2.gif (2011-5-17 18:39, 220.06 KB) / 下载次数 66
http://club./forum.php?mod=attachment&aid=OTI0NTU3fDc5NGU0YmMzfDEzMzM3ODgwODV8MTcyNDI5MXww

作者: hnbaiyun 时间: 2011-5-17 19:25

谢谢楼主分享

作者: kjianwu 时间: 2011-5-17 19:35

不错，功能很全面，我要是有这个水平就不错了。

作者: 飞云楼主 时间: 2011-5-17 20:41

我也来支持下

作者: yanqiguang 时间: 2011-5-17 20:53

下下来研究研究！~~

作者: 356468826 时间: 2011-5-17 23:04

闻讯赶来收藏技术分贴哈哈学习~

作者: caicaikan 时间: 2011-5-17 23:10

谢谢楼主分享,不错!!!:handshake

作者: caicaikan 时间: 2011-5-17 23:16

为什么我无法使用啊？::'(

图片附件: 未命名.JPG (2011-5-17 23:16, 10.95 KB) / 下载次数 1
http://club./forum.php?mod=attachment&aid=OTI0Njg5fDc4MWFjYTNhfDEzMzM3ODgwODV8MTcyNDI5MXww

作者: 99253415 时间: 2011-5-18 07:49

帖子很强悍，收藏学习中……

作者: qczvba 时间: 2011-5-18 09:13

强顶此贴，很好的参考资料，谢楼主分享。:handshake

作者: yihesmxx 时间: 2011-5-18 09:27

学习学习，谢谢分享。

作者: ron1214 时间: 2011-5-18 09:34

太牛了，向你学习

作者: fly_dancer 时间: 2011-5-18 09:58

这个牛逼啊，以后就用excel就可以解决问题了::P

作者: 一指禅62 时间: 2011-5-18 10:45

学习了。:handshake

作者: wisdom100 时间: 2011-5-18 11:07

恩

~~ADO不错

作者: wollle 时间: 2011-5-18 11:07

很好很强大

作者: zhy400137 时间: 2011-5-18 11:34

楼主，我注册控后会出现：
系统错误&H80040111（-2147221231）。ClassFactory无法供应请求的类的情况

点确定后，提示内存溢出，然后就一直重复这两项提示。
打开其他EXCEL表，又很正常
请楼主看看是什么原因，谢谢！
我用的系统是WIN7，EXCEL是2010

作者: xtanuihazfh 时间: 2011-5-18 12:32

原帖由 zhy400137 于 2011-5-18 11:34 发表
楼主，我注册控后会出现：
系统错误&H80040111（-2147221231）。ClassFactory无法供应请求的类的情况

点确定后，提示内存溢出，然后就一直重复这两项提示。
打开其他EXCEL表，又很正常
请楼主看看是什么原因， ...

---------------------------------------------------
WIN7以右键管理员权限运行批处理注册就可以了
不行的话就把那两个控件复制到c:\windows\system32\下,再用regsvr32注册下

作者: xtanuihazfh 时间: 2011-5-18 12:33

原帖由 caicaikan 于 2011-5-17 23:16 发表
为什么我无法使用啊？::'(

-------------------------------------------------------------
参考11楼的内容

作者: ah2005 时间: 2011-5-18 12:42

楼主不把基础数据放进ACCESS进行数据的关联,浪费了ACCESS如此强大功能,

作者: theday63 时间: 2011-5-18 12:44

:handshake

作者: 依依恋 时间: 2011-5-18 12:54

支持飞哥。下载先~~~~

作者: morihui 时间: 2011-5-18 13:01

这个要顶，真好

作者: singna 时间: 2011-5-18 13:53 标题: 新录入的怎么找？

我想查询刚刚录入系统的入库单，但是为什么我已经入库了，但是物流库存表里没有更新我录入的新信息呢，在查询里也找不到新录入的信息。求助，非常感谢。

作者: KISSOU 时间: 2011-5-18 13:55

学习学习，

作者: guoybb 时间: 2011-5-18 14:12

呵呵……支持楼主

作者: symbol_zh 时间: 2011-5-18 15:04

很好很强大，什么时候我能有这水平就好了。一定要认真学习。

作者: yangbin5670 时间: 2011-5-18 15:50 标题: 回复 5楼 xtanuihazfh 的帖子

真的很厉害啊，2010年8月份注册的就有这要的水平，超厉害！

作者: 花涧泪 时间: 2011-5-18 16:07

我的电脑上提示：无法装载这个对象，因为它不适用于这台计算机。
这是什么情况？

作者: silence198761 时间: 2011-5-18 16:16

功能很强，但为什么点击物料询会出现错误。：运行时错误-2147467259(80004005)。。。。

作者: tzby 时间: 2011-5-18 16:21

寻求帮助。我EXCEL2010打不开。

作者: tzby 时间: 2011-5-18 16:35

原帖由 xtanuihazfh 于 2011-5-18 12:32 发表

---------------------------------------------------
WIN7以右键管理员权限运行批处理注册就可以了
不行的话就把那两个控件复制到c:\windows\system32\下,再用regsvr32注册下

还是不行哦。

作者: suosuody 时间: 2011-5-18 17:19

做成这样挺厉害的佩服

作者: yaojil 时间: 2011-5-18 21:32

谢谢楼主分享，学习啦

作者: 中国人. 时间: 2011-5-22 13:06

顶一下，继续加油。

作者: ColinCC 时间: 2011-5-26 23:07

真是不错的帖子啊:victory:

作者: qczvba 时间: 2011-5-27 10:37

楼主真是太有才了。继续。支持无私分享。

作者: gxyboy 时间: 2011-5-27 21:01

佩服佩服，对我很有帮助，谢谢了

作者: fyycc 时间: 2011-5-27 22:14

好强大啊.谢谢.
不知在哪地方下载?

[ 本帖最后由 fyycc 于 2011-5-27 22:16 编辑 ]

作者: ylcxcgk 时间: 2011-5-28 10:29

真漂亮，正在学习中

作者: xtanuihazfh 时间: 2011-5-28 12:16

原帖由 fyycc 于 2011-5-27 22:14 发表
好强大啊.谢谢.
不知在哪地方下载?

------------------------------------------------
在最后一张图片上边那

作者: ylcxcgk 时间: 2011-5-28 13:36

试了试，若期初是 0 的话，增加录入数据提示：库存不足，不能出库！怎么处理啊？

作者: vfoxer 时间: 2011-5-28 13:59

来学习了，哈。:handshake

作者: zxsha 时间: 2011-5-29 12:21

重在参与，知识在共享中增值，谢谢！

作者: ylcxcgk 时间: 2011-6-1 21:27

原帖由 ylcxcgk 于 2011-5-28 13:36 发表
试了试，若期初是 0 的话，增加录入数据提示：库存不足，不能出库！怎么处理啊？

我解决了
原
If ListStyle = "入库" And LvwItem.ListSubItems(7) <= 0 Then MsgBox "库存不足,不能出库!", 64, "提示": Exit Sub
修改为
If ListStyle = "出库" And LvwItem.ListSubItems(7) <= 0 Then MsgBox "库存不足,不能出库!", 64, "提示": Exit Sub

作者: xtanuihazfh 时间: 2011-6-18 22:08 标题: 2011年6月18日更新

更新可以同时在入库单里面添加多条记录,详细见动画

图片附件: 2.gif (2011-6-18 22:08, 192.23 KB) / 下载次数 81
http://club./forum.php?mod=attachment&aid=OTQyNDIwfDdkNWIxNjU5fDEzMzM3ODgwODV8MTcyNDI5MXww

附件: 入库单.zip (2011-6-18 22:08, 115.72 KB) / 下载次数 422
http://club./forum.php?mod=attachment&aid=OTQyNDIxfDc3ZWE0ZjM4fDEzMzM3ODgwODV8MTcyNDI5MXww

作者: zhao99315 时间: 2011-6-20 20:58

好东西，下面学习

作者: poor.456 时间: 2011-6-20 21:45

我也来支持下你:handshake

作者: 1968昆明 时间: 2011-6-20 22:12

vba很好:victory:

作者: ming668 时间: 2011-6-21 16:36

好贴，学习一下。

作者: EIR 时间: 2011-6-21 19:03

打开文件,系统提示：无法装载这个对象，因为它不适用于这台计算机。请问是什么原因？

作者: EIR 时间: 2011-6-21 19:09