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

zjdh

shoyin5101 发表于 2014-6-5 23:21
老师，麻烦帮看看这个附件，我只需要根据总账数据生成明细账数据，但在用你发的文件简单修改，不知道哪里错 ...

应收账款.rar (34.46 KB, 下载次数: 22)

2014-6-6 13:08 上传

点击文件名下载附件

zjdh

2395218174 发表于 2014-6-6 11:22
使用的是这个版本：出入库系统6-4.1.xls
发现一个问题：在单据录入后，需要修改时，一确定修改，单据就不见 ...

修改过程：
在录入页----查询----（修改后）----修改
系统会将原记录（被修改的单据号）删除，在末尾添加新的记录，单据号仍为被修改的号不变。

rophy0952

谢谢分享！

风轻轻的吹

老师你好，现在的出入库系统，入库单那里 ：不录入金额 只录入数量 也可以使用，我想要不录入金额只录入数量不能使用，想要二者缺一不可。

zjdh

风轻轻的吹 发表于 2014-6-7 11:15
老师你好，现在的出入库系统，入库单那里 ：不录入金额 只录入数量 也可以使用，我想要不录入金额只录入数量 ...

自己修改吧
Sub baocun()
    ...........
    For I = 6 To Application.CountA(Range("C6:C11")) + 5
       If Range("G" & I) = "" Then MsgBox "请检查，有数量未填！": Exit Sub
    Next
    If Range("E11") = 0 Then MsgBox "请检查，金额是否填入！": Exit Sub   
    I = Sheet6.[e65536].End(xlUp).Row
    For o = 2 To I
        If Range("j3").Value = Sheet6.Range("d" & o).Value Then
            ms = MsgBox("已经有了单据" & Range("j3").Value & "的信息,是否录入?", vbYesNo, "提示")
    ........
End Sub

风轻轻的吹

zjdh 发表于 2014-6-7 14:12
自己修改吧
Sub baocun()
    ...........

老师谢谢，我看到了，可是不会修改，帐套怎么能传给你呢，不会上传。还有单据录入那里，物资入库单那页面“修改”一点就出错了。

zjdh

风轻轻的吹 发表于 2014-6-8 09:28
老师麻烦你了。我不会改2586楼的内容，还有单据录入那里，物资入库单那页面“修改”一点就出错了，再有就是 ...

库存表没必要添加密码，因为每次打开库存表都会自动刷新数据！
文件已发你邮箱。

风轻轻的吹

zjdh 发表于 2014-6-8 14:17
库存表没必要添加密码，因为每次打开库存表都会自动刷新数据！
文件已发你邮箱。

老师收到了，修改按纽那里是什么问题，一点就报错，谢谢！
我试了一下，总是提醒金额录入没有，点保存好象不好使了

zjdh

看25783楼回复
及1、2楼动画

风轻轻的吹

点保存了，然后发现没保存上呀。麻烦你了老师