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

zhaoyuan200002 · 发表于 2012-2-29 20:28

我已将文件发到您邮箱里了，请帮忙看看，多谢

zjdh · 发表于 2012-3-1 08:58

zhaoyuan200002 发表于 2012-2-29 20:28
我已将文件发到您邮箱里了，请帮忙看看，多谢

你明明用的是数字编码，却为何要用文本编码附件？

xiatian1974 · 发表于 2012-3-1 23:08

老师帮我看看怎么入库的时候库存帐没有数量了呢？

xiatian1974 · 发表于 2012-3-1 23:09

老师帮我看看怎么入库的时候库存帐没有数量了呢？

zjdh · 发表于 2012-3-2 08:50

xiatian1974 发表于 2012-3-1 23:09
老师帮我看看怎么入库的时候库存帐没有数量了呢？

出入库系统 for_xiatian.rar (256.9 KB, 下载次数: 50)

shihwei0809 · 发表于 2012-3-3 14:16

請問老師為什麼我下面這段 [A9].CopyFromRecordset conn.Execute(Sql) 會發生 AUTOMATION

如果直接用老師你的範本就沒問題，我使用的是OFFICE 2010，麻煩老師解答一下謝謝

Set conn = CreateObject("adodb.connection")
conn.Open "provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source=" & ThisWorkbook.FullName

' Sql = "select 入庫數量，出庫數量 from [資料庫$] where [資料庫$].產品類別='" & [D4] & "'"
' [D9].CopyFromRecordset conn.Execute(Sql) '篩選出入庫數量...

Sql = "select 日期 from [資料庫] where [資料庫].產品類別='" & [D4] & "'"
[A9].CopyFromRecordset conn.Execute(Sql)

conn.Close

xiatian1974 · 发表于 2012-3-3 14:49

本帖最后由 xiatian1974 于 2012-3-3 14:50 编辑

老师我下载后，重新输入，现在数据库库存表里有正常，可是库存明细账还是没有数量，只有单价和金额。这样加权平均的单价也就不对了。另外还有一个问题就是合计数大于十万，大写合计数就不对了。另外能否有个小写合计呢？

zjdh · 发表于 2012-3-3 15:37

shihwei0809 发表于 2012-3-3 14:16
請問老師為什麼我下面這段 [A9].CopyFromRecordset conn.Execute(Sql) 會發生 AUTOMATION

如果直接用老 ...

我不懂你说的“會發生 AUTOMATION”是什么状况。
请检查一下你的编码是否为文本编码，若是数字编码请用“出入库系统6-3”附件。

zjdh · 发表于 2012-3-3 15:55

xiatian1974 发表于 2012-3-3 14:49
老师我下载后，重新输入，现在数据库库存表里有正常，可是库存明细账还是没有数量，只有单价和金额。这样加 ...

出入库系统-xiatian.rar (257 KB, 下载次数: 44)

xiatian1974 · 发表于 2012-3-3 22:56

谢谢老师！！期待老师把库存明细账做成帐页式样的，每页固定行数，并且有承前页结转下页

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

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