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

分享

   

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

2012-04-07  shuaixine...

Excel Home论坛

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

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

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

这个新的表格有以下特点:
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.excelhome.net/forum.php?mod=attachment&aid=OTIzOTA0fDcwMGFmNjdlfDEzMzM3ODgwODV8MTcyNDI5MXww



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



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



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



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

图片附件: 半透明.jpg (2011-5-22 13:48, 148.72 KB) / 下载次数 57
http://club.excelhome.net/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.excelhome.net/forum.php?mod=attachment&aid=OTIzOTEwfDRlZWVkMTBlfDEzMzM3ODgwODV8MTcyNDI5MXww



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



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



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



图片附件: 结案.gif (2011-5-16 19:46, 257.27 KB) / 下载次数 59
http://club.excelhome.net/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.excelhome.net/forum.php?mod=attachment&aid=OTIzOTM0fDljZTY3ZDc4fDEzMzM3ODgwODV8MTcyNDI5MXww

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

附件: 控件注册.part3.rar (2011-5-16 20:42, 160 KB) / 下载次数 844
http://club.excelhome.net/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.excelhome.net/forum.php?mod=attachment&aid=OTI0NTU0fDAzMTQ3YTdifDEzMzM3ODgwODV8MTcyNDI5MXww



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



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



图片附件: Query查询2.gif (2011-5-17 18:39, 220.06 KB) / 下载次数 66
http://club.excelhome.net/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.excelhome.net/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.excelhome.net/forum.php?mod=attachment&aid=OTQyNDIwfDdkNWIxNjU5fDEzMzM3ODgwODV8MTcyNDI5MXww



附件: 入库单.zip (2011-6-18 22:08, 115.72 KB) / 下载次数 422
http://club.excelhome.net/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

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

遇到相同问题,求解?
作者: xtanuihazfh    时间: 2011-6-21 20:24

原帖由 EIR 于 2011-6-21 19:03 发表
打开文件,系统提示:无法装载这个对象,因为它不适用于这台计算机。  请问是什么原因?


11楼有解决方法
作者: 120HYH    时间: 2011-6-21 21:34

好,有用。谢
作者: fgwei    时间: 2011-6-21 22:37

这个真的太棒了,谢谢分享
作者: EIR    时间: 2011-6-23 01:51

录入数据窗口没有"增加记录"按钮
作者: xtanuihazfh    时间: 2011-6-23 12:25

原帖由 EIR 于 2011-6-23 01:51 发表
录入数据窗口没有"增加记录"按钮

-------------------------------------------
最新修改的,可以打开查询窗口选择记录后双击即可批量录入,顺便添加记录
作者: shewoyu    时间: 2011-6-23 12:54

赞叹中顶贴!!
作者: qczvba    时间: 2011-6-23 15:10

楼主又更新了,强人,谢谢分享。
作者: maich    时间: 2011-6-23 23:12

谢谢LZ的慷慨
作者: weimei(^_^)    时间: 2011-6-23 23:19

::$ 想送花滴,木看见有花。。。。。[em07]
作者: xytd    时间: 2011-6-24 09:15

顶一帖,慢慢再学习!!!
作者: yangjia1980    时间: 2011-6-24 09:30

好东西,顶了再学
作者: sprayxyd    时间: 2011-6-24 12:27

谢谢楼主的分享
作者: zslyyy    时间: 2011-6-25 18:12

谢谢楼主的分享!
作者: Kelidai    时间: 2011-6-25 19:01

做的漂亮,参考。
作者: Yi_Idea    时间: 2011-6-25 19:11

学习了~
支持一下~
作者: 刘志文    时间: 2011-7-5 23:35

谢谢楼主分享!
作者: aas12312    时间: 2011-7-6 00:05

支持你:handshake




欢迎光临 Excel Home论坛 (http://club.excelhome.net/) Powered by Discuz! X2

    本站是提供个人知识管理的网络存储空间,所有内容均由用户发布,不代表本站观点。请注意甄别内容中的联系方式、诱导购买等信息,谨防诈骗。如发现有害或侵权内容,请点击一键举报。

    0条评论

    发表

    请遵守用户 评论公约

    类似文章 更多
    喜欢该文的人也喜欢 更多

    ×
    ×

    ¥.00

    微信或支付宝扫码支付:

    开通即同意《个图VIP服务协议》

    全部>>