小小出入库管理系统(2012年12月又作了更新)

zjdh · 发表于 2011-10-20 09:43

本帖最后由 zjdh 于 2011-10-20 09:47 编辑

chaucerwong 发表于 2011-10-20 08:24
请老师在百忙中为我增加一栏叫“仓库位置”吧，在备注中的确不行，明细账中也查不到仓库位置，谢谢了！

若一种物资固定放在一个库位，在明细账中出现查询结果，比较简单。
在其他表中添加比较烦，等我空了再说吧。

yulv · 发表于 2011-10-20 15:11

请问是不是只要下载出入库系统6-2这个就可以了，这是最新的吗？

yulv · 发表于 2011-10-20 15:31

在进行“3.单据编号复位，在“基础信息表”中按“入库单复位”、“出库单复位”。 ”的操作时，库存表中出现运行错误“13”类型不匹配的对话框，是怎么回事呢？还有就是完全查询及分项查询中的数据如何删除？谢谢

问问99 · 发表于 2011-10-20 16:32

收藏好了，再慢慢消化

zjdh · 发表于 2011-10-20 16:42

yulv 发表于 2011-10-20 15:31
在进行“3.单据编号复位，在“基础信息表”中按“入库单复位”、“出库单复位”。 ”的操作时，库存表中出现 ...

1. 你这是初始化删除原有信息后出现的，其实这时不该操作库存表，只要基础信息输完即可不会出现你所述情况，我已修改了1楼附件
2. 要删除查询信息，只要将查询内容全部清除，再查询一次即可。

冰血情人 · 发表于 2011-10-20 16:57

很好.很好..........................

sizhen5101 · 发表于 2011-10-20 17:13

本帖最后由 sizhen5101 于 2011-10-21 00:37 编辑

老师帮看看分项查询那里怎么回事，老查询不对。还有个就是在备份时能不能帮加个“数据库为空”无需删除，我试了下，数据库为空时点删除，排头也会被删掉，这样很不安全。
还有谢谢老师之前帮我修改的文件，那个已经在使用了。

zjdh · 发表于 2011-10-20 17:46

sizhen5101 发表于 2011-10-20 17:13
老师帮看看分项查询那里怎么回事，老查询不对。还有个就是在备份时能不能帮加个“数据库为空”无需删除，我 ...

这些非正常情况以前都没考虑，只要修改以下语句即可：（1楼附件已修改
Sub 备份()
Application.ScreenUpdating = False
.......................
ActiveWorkbook.Close
If MsgBox("已备份，是否要清除本文件'数据库'内容?", 4 + 48 + 256, "提示!") = vbYes Then
Sheets("数据库").Range("A2:S" & Sheets("数据库").Range("A65500").End(3).Row + 1).ClearContents
....................
End Sub

sizhen5101 · 发表于 2011-10-20 17:54

zjdh 发表于 2011-10-20 17:46
这些非正常情况以前都没考虑，只要修改以下语句即可：（1楼附件已修改
Sub 备份()
Application.Scr ...

备份的已经修改了，还请帮看看分项查询哦，我都看晕了

zjdh · 发表于 2011-10-20 18:00

本帖最后由 zjdh 于 2011-10-20 18:18 编辑

原来你把格式也改了，待我看看再说

		自动登录	找回密码
密码			免费注册

[分享] 小小出入库管理系统(2012年12月又作了更新)