销售出库管理表，EXCEL&ACCESS,想入门求高手赐教！！！

chenwenming

销售出库管理表，EXCEL&ACCESS,想入门求高手赐教！！！
EXCEL实现三个界面（SHEET标绿色）：
1、物资信息导入：相当于入库导入，同时导入销售订单信息，其实也就是同时更新二个数据表。
2、出库明细导入：实现有订单不超订单出库，没订单（零星）不超库存出库。
3、查询界面： 根据查询条件查询出数据。
数据表中各表主键请看表设计视图。 销售出库管理表.rar (36.7 KB, 下载次数: 91)

2015-2-28 22:00 上传

点击文件名下载附件

左耳fwlb

不明白要求，是按照附件帮你做出功能吗？

chenwenming

左耳fwlb 发表于 2015-3-2 09:38
不明白要求，是按照附件帮你做出功能吗？

是的，附件三个颜色是绿色的sheet是要实现的功能，其它sheet是设计数据库用时用的表

左耳fwlb

建议你重新做，本身表设计就不合理，可以到论坛看看其他人的示例。

jack5d

只幫你做了公司那頁,其他大同小異,邊學邊做吧,這東西還真不是一時半刻能完成的,
另外ACCESS那表若是當作資料表用,我建議你把資料分拆好再回頭做EXCEL那VBA,
有關如何分拆資料可百度[關聯資料庫]

1. Sub DataUpload()
   
2. Dim cn As New ADODB.Connection
   
3. Dim rs As New ADODB.Recordset
   
4. Dim i  As Long
   
5. DBS = Application.ActiveWorkbook.Path & "\Date.accdb"
   
6. cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & DBS
   
7. With ActiveSheet
   
8.     For i = 2 To .Range("A1048576").End(xlUp).Row
   
9.         rs.Open "select * from company where comy = '" & .Range("A" & i) & "'", cn
   
10.         If rs.EOF And rs.BOF Then
    
11.             cn.Execute "insert into Company (Comy) values ('" & .Range("A" & i) & "')"
    
12.         End If
    
13.         rs.Close
    
14.     Next
    
15. End With
    
16. Set rs = Nothing: Set cn = Nothing
    
17. End Sub

复制代码

chenwenming

jack5d 发表于 2015-3-3 17:18
只幫你做了公司那頁,其他大同小異,邊學邊做吧,這東西還真不是一時半刻能完成的,
另外ACCESS那表若是當作資 ...

谢谢你的指点！