VBA入库单改进版窗体录入的完美例子 22页

'..-VBA入库单改良版(窗体录入的完美例子)ExcelHome论坛标题:VBA入库单改良版(窗体录入的完美例子)[打印本页]作者:xtanuihazfh时间:2011-5-1619:39标题:VBA入库单改良版(窗体录入的完美例子)前一闲来无事做了一个VBA入库单的模板,在论坛有不少的朋友关注,但是发现颇多可以改良之处,所以有了这个改良的版本原贴地址:club.excelhome.net/thread-717894-1-1.html这个新的表格有以下特点:1.使用窗体录入,中间的添加与删除记录使用了动态添加文本框来放置输入数据的容器2.具体相比照拟完善的查询功能(可查询本期的库存数量,也可以查询数据库中的往期已经结案的库存与出入库明细记录)3.具体月末结案功能,在月底交接的时候可以使用本功能来将本月的记录存放到数据库中,为下月的记录让出空间,这样不致使文件太大,也更加平安)4.代码完全开源,关键处有注释不设置保护,为各位学VBA的朋友提供一个例子吧:victory::victory::victory:,以下是相关的图片看过一定要顶啊!!![em07][em07]..word.zl- ..---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------翻开报错缺少控件的解决方法在11楼---------------------------------------------------------上传了几个在excel中获取数据库中数据的相关动画,在32楼(第四页)---------------------------------------------------------club.excelhome.net/forum.php?mod=attachment&aid=OTIzOTA0fDcwMGFmNjdlfDEzMzM3ODgwODV8MTcyNDI5MXwwscreen.width*0.8)this.width=screen.width*0.8">图片附件:录入窗口.jpg(2011-5-1619:39,49.57KB)/下载次数83club.excelhome.net/forum.php?mod=attachment&aid=OTIzOTA1fDYwZTZmZTcwfDEzMzM3ODgwODV8MTcyNDI5MXwwscreen.width*0.8)this.width=screen.width*0.8">图片附件:查询窗口1.jpg(2011-5-1619:39,110.7KB)/下载次数71club.excelhome.net/forum.php?mod=attachment&aid=OTIzOTA2fDI4ODYyODQ2fDEzMzM3ODgwODV8MTcyNDI5MXwwscreen.width*0.8)this.width=screen.width*0.8">图片附件:查询窗口2.jpg..word.zl- ..-(2011-5-1619:39,100.14KB)/下载次数58club.excelhome.net/forum.php?mod=attachment&aid=OTIzOTA3fDRkNjczN2NjfDEzMzM3ODgwODV8MTcyNDI5MXwwscreen.width*0.8)this.width=screen.width*0.8">附件:入库单.zip(2011-6-1822:11,115.72KB)/下载次数3374club.excelhome.net/forum.php?mod=attachment&aid=OTIzOTA4fDlmMjk3ZTRmfDEzMzM3ODgwODV8MTcyNDI5MXww图片附件:半透明.jpg(2011-5-2213:48,148.72KB)/下载次数57club.excelhome.net/forum.php?mod=attachment&aid=OTI3MjE5fGQzMWZmY2NmfDEzMzM3ODgwODV8MTcyNDI5MXwwscreen.width*0.8)this.width=screen.width*0.8">作者:dg831451时间:2011-5-1619:41[em07]第一个来支持你。。。作者:samhe520时间:2011-5-1619:42标题:好楼主分享,不错.很漂亮作者:紫菜蛋汤时间:2011-5-1619:43顶一下,..word.zl- ..-希望飞机多弄一些作品:victory:作者:xtanuihazfh时间:2011-5-1619:46发几个相关的动画,论坛附件有限制,不能发太多的,只能分开录了图片附件:录入窗口.gif(2011-5-1619:46,144.81KB)/下载次数82club.excelhome.net/forum.php?mod=attachment&aid=OTIzOTEwfDRlZWVkMTBlfDEzMzM3ODgwODV8MTcyNDI5MXwwscreen.width*0.8)this.width=screen.width*0.8">图片附件:录入单据.gif(2011-5-1619:46,248.16KB)/下载次数52club.excelhome.net/forum.php?mod=attachment&aid=OTIzOTExfDliNGE0OTNhfDEzMzM3ODgwODV8MTcyNDI5MXwwscreen.width*0.8)this.width=screen.width*0.8">图片附件:查询1.gif(2011-5-1619:46,192.63KB)/下载次数54club.excelhome.net/forum.php?mod=attachment&aid=OTIzOTEyfGY4ZkNDNmfDEzMzM3ODgwODV8MTcyNDI5MXwwscreen.width*0.8)this.width=screen.width*0.8">图片附件:查询2.gif(2011-5-1619:46,134.43KB)/下载次数59..word.zl- ..-club.excelhome.net/forum.php?mod=attachment&aid=OTIzOTEzfDdkNzE5MTAzfDEzMzM3ODgwODV8MTcyNDI5MXwwscreen.width*0.8)this.width=screen.width*0.8">图片附件:结案.gif(2011-5-1619:46,257.27KB)/下载次数59club.excelhome.net/forum.php?mod=attachment&aid=OTIzOTE0fGEwZDMyMTk4fDEzMzM3ODgwODV8MTcyNDI5MXwwscreen.width*0.8)this.width=screen.width*0.8">作者:wcymiss时间:2011-5-1619:48收藏了，向小飞学习作者:cowisen时间:2011-5-1619:52飞哥，支持下！作者:jhzwc时间:2011-5-1619:57飞~~我也来支持下你~~~作者:云朵时间:2011-5-1620:022003版本无法下载，请另存为2003版本后再上传，！作者:liuguansky时间:2011-5-1620:03::D，纯支持下，看不懂代码。..word.zl- ..-作者:xtanuihazfh时间:2011-5-1620:05原帖由云朵于2011-5-1620:02发表2003版本无法下载，请另存为2003版本后再上传，！------------------------------------------------------------------------------------存的就是xls的文件,只是动画用的07版录的罢了翻开报错可能是电脑中缺少控件的问题,我上传个控件,注册下就可以了club.excelhome.net/forum.php?mod=attachment&aid=OTIzOTM0fDljZTY3ZDc4fDEzMzM3ODgwODV8MTcyNDI5MXww附件:控件注册.part2.rar(2011-5-1620:42,280KB)/下载次数930club.excelhome.net/forum.php?mod=attachment&aid=OTIzOTM1fDVhMmM0ZDU4fDEzMzM3ODgwODV8MTcyNDI5MXww附件:控件注册.part3.rar(2011-5-1620:42,160KB)/下载次数844club.excelhome.net/forum.php?mod=attachment&aid=OTIzOTM2fDVhMjNlZjM3fDEzMzM3ODgwODV8MTcyNDI5MXww作者:xingjianli1985时间:2011-5-1621:13..word.zl- ..-支持飞，，不错的东东，，向你学习作者:JLF2003时间:2011-5-1621:15感楼主的分享！作者:志文时间:2011-5-1621:43楼主的分享！作者:yjlexcelhome时间:2011-5-1621:44多分享.:handshake作者:啸傲东轩时间:2011-5-1622:22有用没用，先这无私的精神！作者:huangxiaofei520时间:2011-5-1622:41录入界面提示变量未定义！！！！！作者:laosanjie时间:2011-5-1622:50楼主分享:handshake作者:benben1119时间:2011-5-1623:27分享[em07]作者:xmyjk时间:2011-5-1700:53确实做得不错，分享。..word.zl- ..-作者:紫凝倪时间:2011-5-1702:55感楼主的分享！作者:n520时间:2011-5-1707:39我也来支持下你作者:cww101122时间:2011-5-1708:05标题:回复1楼xtanuihazfh的帖子不错，支持一下作者:qous1时间:2011-5-1708:33楼主的分享，用了一下发现几个问题。出入库单上没有经手人和入库/出库人；还有在窗口录入的时候，如果按照顺序先输单价再输数量会正常显示金额，但是如果先输了数量再输单价金额就不会自动显示了。作者:zzx603时间:2011-5-1711:46标题:回复1楼xtanuihazfh的帖子你！对我很有帮助！作者:xtanuihazfh时间:2011-5-1712:20原帖由qous1于2011-5-1708:33发表楼主的分享，用了一下发现几个问题。出入库单上没有经手人和入库/出库人；..word.zl- ..-还有在窗口录入的时候，如果按照顺序先输单价再输数量会正常显示金额，但是如果先输了数量再输单价金额就不会自动显示了。-------------------------------------------------------类模块里需要再改良一下,不过你暂时可以先修改一下数量就会自己改正的作者:teewfg1015时间:2011-5-1714:27[em07]凹凸曼飞了作者:xel_fan时间:2011-5-1716:23好东西,下载来学习...飞飞,我来顶你个肺...作者:kulu74时间:2011-5-1717:02楼主分享,不错.很漂亮[em01]作者:liu12wenwen时间:2011-5-1717:21楼主分享，好贴一定支持作者:liimtj时间:2011-5-1717:31必须支持正想做一个类似的学习一下..word.zl- ..-作者:xtanuihazfh时间:2011-5-1718:39发几个excel中获取与透视数据库数据的方法,这样数据库对我们来说便不是完全看不见摸不着的东西了图片附件:获取数据库容.gif(2011-5-1718:39,239.77KB)/下载次数149club.excelhome.net/forum.php?mod=attachment&aid=OTI0NTU0fDAzMTQ3YTdifDEzMzM3ODgwODV8MTcyNDI5MXwwscreen.width*0.8)this.width=screen.width*0.8">图片附件:透视数据库.gif(2011-5-1718:39,240.86KB)/下载次数88club.excelhome.net/forum.php?mod=attachment&aid=OTI0NTU1fDJiMTdmZDJlfDEzMzM3ODgwODV8MTcyNDI5MXwwscreen.width*0.8)this.width=screen.width*0.8">图片附件:Query查询1.gif(2011-5-1718:39,244.36KB)/下载次数78club.excelhome.net/forum.php?mod=attachment&aid=OTI0NTU2fGI0NjRmNzYwfDEzMzM3ODgwODV8MTcyNDI5MXwwscreen.width*0.8)this.width=screen.width*0.8">图片附件:Query查询2.gif(2011-5-1718:39,220.06KB)/下载次数66..word.zl- ..-club.excelhome.net/forum.php?mod=attachment&aid=OTI0NTU3fDc5NGU0YmMzfDEzMzM3ODgwODV8MTcyNDI5MXwwscreen.width*0.8)this.width=screen.width*0.8">作者:hnbaiyun时间:2011-5-1719:25楼主分享作者:kjianwu时间:2011-5-1719:35不错，功能很全面，我要是有这个水平就不错了。作者:飞云楼主时间:2011-5-1720:41我也来支持下作者:yanqiguang时间:2011-5-1720:53下下来研究研究！~~作者:356468826时间:2011-5-1723:04闻讯赶来收藏技术分贴哈哈学习~作者:caicaikan时间:2011-5-1723:10楼主分享,不错!!!:handshake作者:caicaikan时间:2011-5-1723:16为什么我无法使用啊？::"(图片附件:未命名.JPG(2011-5-1723:16,10.95KB)/下载次数1..word.zl- ..-club.excelhome.net/forum.php?mod=attachment&aid=OTI0Njg5fDc4MWFjYTNhfDEzMzM3ODgwODV8MTcyNDI5MXwwscreen.width*0.8)this.width=screen.width*0.8">作者:99253415时间:2011-5-1807:49帖子很强悍，收藏学习中……作者:qczvba时间:2011-5-1809:13强顶此贴，很好的参考资料，楼主分享。:handshake作者:yihesmxx时间:2011-5-1809:27学习学习，分享。作者:ron1214时间:2011-5-1809:34太牛了，向你学习作者:fly_dancer时间:2011-5-1809:58这个牛逼啊，以后就用excel就可以解决问题了::P作者:一指禅62时间:2011-5-1810:45学习了。:handshake..word.zl- ..-作者:wisdom100时间:2011-5-1811:07恩~~ADO不错作者:wollle时间:2011-5-1811:07很好很强大作者:zhy400137时间:2011-5-1811:34楼主，我注册控后会出现：系统错误&H80040111〔-2147221231〕。ClassFactory无法供给请求的类的情况点确定后，提示存溢出，然后就一直重复这两项提示。翻开其他EXCEL表，又很正常请楼主看看是什么原因，！我用的系统是WIN7，EXCEL是2010作者:xtanuihazfh时间:2011-5-1812:32原帖由zhy400137于2011-5-1811:34发表楼主，我注册控后会出现：系统错误&H80040111〔-2147221231〕。ClassFactory无法供给请求的类的情况点确定后，提示存溢出，然后就一直重复这两项提示。翻开其他EXCEL表，又很正常..word.zl- ..-请楼主看看是什么原因，...---------------------------------------------------WIN7以右键管理员权限运行批处理注册就可以了不行的话就把那两个控件复制到c:windowssystem32下,再用regsvr32注册下作者:xtanuihazfh时间:2011-5-1812:33原帖由caicaikan于2011-5-1723:16发表为什么我无法使用啊？::"(-------------------------------------------------------------参考11楼的容作者:ah2005时间:2011-5-1812:42楼主不把根底数据放进ACCESS进展数据的关联,浪费了ACCESS如此强大功能,作者:theday63时间:2011-5-1812:44:handshake作者:依依恋时间:2011-5-1812:54支持飞哥。下载先~~~~..word.zl- ..-作者:morihui时间:2011-5-1813:01这个要顶，真好作者:singna时间:2011-5-1813:53标题:新录入的怎么找？我想查询刚刚录入系统的入库单，但是为什么我已经入库了，但是物流库存表里没有更新我录入的新信息呢，在查询里也找不到新录入的信息。求助，非常感。作者:KISSOU时间:2011-5-1813:55学习学习，作者:guoybb时间:2011-5-1814:12呵呵……支持楼主作者:symbol_zh时间:2011-5-1815:04很好很强大，什么时候我能有这水平就好了。一定要认真学习。作者:yangbin5670时间:2011-5-1815:50标题:回复5楼xtanuihazfh的帖子真的很厉害啊，2010年8月份注册的就有这要的水平，超厉害！作者:花涧泪时间:2011-5-1816:07我的电脑上提示：无法装载这个对象，因为它不适用于这台计算机。这是什么情况？..word.zl- ..-作者:silence198761时间:2011-5-1816:16功能很强，但为什么点击物料询会出现错误。：运行时错误-2147467259(80004005)。。。。作者:tzby时间:2011-5-1816:21寻求帮助。我EXCEL2010打不开。作者:tzby时间:2011-5-1816:35原帖由xtanuihazfh于2011-5-1812:32发表---------------------------------------------------WIN7以右键管理员权限运行批处理注册就可以了不行的话就把那两个控件复制到c:windowssystem32下,再用regsvr32注册下还是不行哦。作者:suosuody时间:2011-5-1817:19做成这样挺厉害的佩服作者:yaojil时间:2011-5-1821:32楼主分享，学习啦作者:中国人.时间:2011-5-2213:06顶一下，继续加油。..word.zl- ..-作者:ColinCC时间:2011-5-2623:07真是不错的帖子啊:victory:作者:qczvba时间:2011-5-2710:37楼主真是太有才了。继续。支持无私分享。作者:gxyboy时间:2011-5-2721:01佩服佩服，对我很有帮助，了作者:fyycc时间:2011-5-2722:14好强大啊..作者:ylcxcgk时间:2011-5-2810:29真漂亮，正在学习中作者:xtanuihazfh时间:2011-5-2812:16原帖由fyycc于2011-5-2722:14发表好强大啊..不知在哪地方下载?------------------------------------------------在最后一图片上边那..word.zl- ..-作者:ylcxcgk时间:2011-5-2813:36试了试，假设期初是0的话，增加录入数据提示：库存缺乏，不能出库！怎么处理啊？作者:vfoxer时间:2011-5-2813:59来学习了，哈。:handshake作者:zxsha时间:2011-5-2912:21重在参与，知识在共享中增值，！作者:ylcxcgk时间:2011-6-121:27原帖由ylcxcgk于2011-5-2813:36发表试了试，假设期初是0的话，增加录入数据提示：库存缺乏，不能出库！怎么处理啊？我解决了原IfListStyle="入库"AndLvwItem.ListSubItems(7)<=0ThenMsgBox"库存缺乏,不能出库!",64,"提示":ExitSub修改为IfListStyle="出库"AndLvwItem.ListSubItems(7)<=0ThenMsgBox"库存缺乏,不能出库!",64,"提示":Exit..word.zl- ..-Sub作者:xtanuihazfh时间:2011-6-1822:08标题:2011年6月18日更新更新可以同时在入库单里面添加多条记录,详细见动画图片附件:2.gif(2011-6-1822:08,192.23KB)/下载次数81club.excelhome.net/forum.php?mod=attachment&aid=OTQyNDIwfDdkNWIxNjU5fDEzMzM3ODgwODV8MTcyNDI5MXwwscreen.width*0.8)this.width=screen.width*0.8">附件:入库单.zip(2011-6-1822:08,115.72KB)/下载次数422club.excelhome.net/forum.php?mod=attachment&aid=OTQyNDIxfDc3ZWE0ZjM4fDEzMzM3ODgwODV8MTcyNDI5MXww作者:zhao99315时间:2011-6-2020:58好东西，下面学习作者:poor.456时间:2011-6-2021:45我也来支持下你:handshake作者:1968时间:2011-6-2022:12vba很好:victory:..word.zl- ..-作者:ming668时间:2011-6-2116:36好贴，学习一下。作者:EIR时间:2011-6-2119:03翻开文件,系统提示：无法装载这个对象，因为它不适用于这台计算机。请问是什么原因？作者:EIR时间:2011-6-2119:09原帖由caicaikan于2011-5-1723:16发表为什么我无法使用啊？::"(遇到一样问题，求解？作者:xtanuihazfh时间:2011-6-2120:24原帖由EIR于2011-6-2119:03发表翻开文件,系统提示：无法装载这个对象，因为它不适用于这台计算机。请问是什么原因？11楼有解决方法作者:120HYH时间:2011-6-2121:34好，有用。作者:fgwei时间:2011-6-2122:37这个真的太棒了，分享..word.zl- ..-作者:EIR时间:2011-6-2301:51录入数据窗口没有"增加记录"按钮作者:xtanuihazfh时间:2011-6-2312:25原帖由EIR于2011-6-2301:51发表录入数据窗口没有"增加记录"按钮-------------------------------------------最新修改的,可以翻开查询窗口选择记录后双击即可批量录入,顺便添加记录作者:shewoyu时间:2011-6-2312:54赞叹中顶贴！！作者:qczvba时间:2011-6-2315:10楼主又更新了，强人，分享。作者:maich时间:2011-6-2323:12LZ的大方作者:weimei(^_^)时间:2011-6-2323:19::$想送花滴，木看见有花。。。。。[em07]作者:xytd时间:2011-6-2409:15顶一帖，慢慢再学习！！！..word.zl- ..-作者:yangjia1980时间:2011-6-2409:30好东西，顶了再学作者:sprayxyd时间:2011-6-2412:27楼主的分享作者:zslyyy时间:2011-6-2518:12楼主的分享！作者:Kelidai时间:2011-6-2519:01做的漂亮，参考。作者:Yi_Idea时间:2011-6-2519:11学习了~支持一下~作者:志文时间:2011-7-523:35楼主分享!作者:aas12312时间:2011-7-600:05支持你:handshake欢送光临ExcelHome论坛(club.excelhome.net/)PoweredbyDiscuz!X2..word.zl-'