由于担心重要字段重复,遂寻破解之法,无奈人穷技疏,寄予茫茫网络有屠龙之技,但多方搜寻无果。不过有幸人穷但思路跳脱,顿生一计造访多个QQ群及论坛寻求妙方,虽年过不惑,但学问有先后,术业有专攻,达者为师,于是仿若小学生般毕恭毕敬,不耻下问,穷追不舍,遗憾人人都很忙,谁关心你那点破事,为此草草了事。

自扫门前雪,莫管他人瓦上霜,这一次醍醐灌顶。以往怎么不堪,也得继续,进一步清晰思路,以DCount函数为突破口,可惜涉及多个相同字段没有具体实例,仅提供部分代码参考,只能依样画葫芦,但画虎不成反为犬,更遗憾犬也没有着落,不过屡败屡试,功夫不负有心人,最终水落石出。

网上代码:

If dcount("*", "表名称", "字段1='" & Me.字段1 & "' and 字段2='" & Me.字段2 & "'") >0 ThenMsgBox "此数据已录入,请不要重复添加!"Exit SubEnd If

东施效颦:

If DCount("*", "收入明细", "日期=#" & Me.日期 & " #" And "收入项目='" & Me.收入项目 & "'" And "收入账户='" & Me.收入账户 & "'" And "收入金额=" & Me.收入金额) > 0 Then

MsgBox "此数据已录入,请不要重复添加!"

Exit Sub

End If

测试结果:

access怎么汇总重复数据(多个相同字段数据)(1)

反复调试以上代码,始终不得其法,甚至都蹦出买一个放大镜的念头,不过山穷水尽疑无路,柳暗花明又一村,恰逢其时一网友指出标点符号标注异常,真是一语惊醒梦中人,认真琢磨一番,最终云开雾散,苦心中常得悦心之趣,也许此时此刻,共鸣者又有几许?

水落石出:

If DCount("*", "收入明细", "日期=#" & Me.日期 & " # And 收入项目='" & Me.收入项目 & "' And 收入账户= '" & Me.收入账户 & "' And 收入金额=" & Me.收入金额) > 0 Then

MsgBox "此数据已录入,请不要重复添加!"

Exit Sub

End If

测试结果:

access怎么汇总重复数据(多个相同字段数据)(2)

学无止境,或许迷茫,抑或彷徨,总之求知路上困难重重,但仍要知难而进,不尝试怎么能随随便便成功,希大家一起共勉。

,