Office中国论坛/Access中国论坛

标题: 根据相同关键字和金额自动分类 [打印本页]

作者: Alashome 时间: 2015-7-9 15:45
标题: 根据相同关键字和金额自动分类
能否根据表中数据进行特定条件匹配。
第件一：提取名称字段中相同字符
第件二：根据正负相同金额归集。
希望排序生成：
日期名称金额
2013-7-1 小明记广东省大兴安发展有限公司药品款

110000

2013-7-2 2013070112345677药品款广东大兴安发展有限公司

-110000

2013-7-2 小明记浙江省广宁县天天木业有限公司药品款

49813

2013-7-3 2013070212345670中国人浙江省广宁县天天木业有限公

-49813

2013-7-2 小明记上海天星星丰物流有限公司药品款

85623

2013-7-3 2013070212345673药品款上海天星星丰物流有限公司

-85623

2013-7-2 小明记成都市大国化工药品款

3363

2013-7-3 2013070212345675大药品款四川省成都市大国化工有限公

-3363

2013-7-2 小明记山东省天天中国运输有限公司药品款

270500

2013-7-3 2013070212345676药品款山东省天天中国运输有限公司

-270500

作者: roych 时间: 2015-7-9 17:52
太麻烦了。大体思路有两种：
创建ADO自定义逐行写入。
或者：
写正则表达式，将名称修饰为“xx省xx公司”格式，再创建排序的查询。

作者: Alashome 时间: 2015-7-9 21:45
麦老师能否用第一种方法写一个事例，数据量不会很多，一般不超过200条，因为这是去除重复项后剩下的特殊的记录

作者: Alashome 时间: 2015-7-9 21:50
用正表达式，有限制性，我这只是特殊数据中的一个比较有共性的数据整理出来，想通过您的思路处理其他共性的问题

作者: Alashome 时间: 2015-7-9 22:00
这些数据我思考了很久，只发现了这些共同点，内心希望通过这几个相同的关键字处理这些数据，
其实如果能提取出相同的关键字，金额我可以通过提取的相同的关键字进行合计，通过判断不等于零的，筛选新的记录，达到需求，可如何提取相同的关键字出来呢？

作者: Alashome 时间: 2015-7-9 22:06
其实这是一个药品采购，一条是购买方付款记录，一个是销售方发票的记录，我想实现自动勾对，而不是人为一笔一笔手工勾对，已提高效率，谢谢！

作者: roych 时间: 2015-7-10 10:11
本帖最后由 roych 于 2015-7-10 10:51 编辑

Alashome 发表于 2015-7-9 21:50
用正表达式，有限制性，我这只是特殊数据中的一个比较有共性的数据整理出来，想通过您的思路处理其他共性的 ...

把这些含有关键字的公司放在一个表作为条件，然后用 ADO，使用like，再追加到新表中。个人建议最好还是规范表字段好一些。顺便说一下，我不姓麦，也不是Access软件网里鼎鼎大名的麦田。

Sub test()
Dim rst1 As DAO.Recordset
Dim rst2 As DAO.Recordset
Dim rst3 As DAO.Recordset
Set rst1 = CurrentDb.OpenRecordset("关键字")
Do Until rst1.EOF
Set rst2 = CurrentDb.OpenRecordset("select 日期,名称,金额 from [1] where 名称 like '*" & rst1(0) & "*'")
Set rst3 = CurrentDb.OpenRecordset("新表")
Do Until rst2.EOF
rst3.AddNew
rst3("日期") = rst2("日期")
rst3("名称") = rst2("名称")
rst3("金额") = rst2("金额")
rst3.Update
rst2.MoveNext
Loop
rst3.Close
rst2.Close
rst1.MoveNext
Loop
End Sub

复制代码

[attach]56808[/attach]

作者: Alashome 时间: 2015-7-10 10:21
能有示例吗？

作者: Alashome 时间: 2015-7-10 11:30
通过关键字，建立索引，进而实现查询，思路清晰，赞一个！

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)