如何在窗体输入时判断数据是否重复输入

gaojh　发表于：2014-09-20 10:17:07 　

复制

我建有一个加油表，字段有加油ID,加油时间，车号，加油数量，加油金额等，现在想实现在录入数据时自动判断是否重复录入数据，根据条件加油时间，车号，加油数量，加油金额4个全部相同时弹出提示窗口，

我单独使用如下代码时都可以判断，但不能根据4个条件一块判断。刚学习，请教如何实现上述功能？

If DCount("*", "加油表", "加油时间= #" & Me.加油时间 & "#") > 0 Then

If DCount("*", "加油表", "车号='" & Me.车号 & "'") > 0 Then

If DCount("*", "加油表", "加油数量=" & Me.加油数量) > 0 Then

If DCount("*", "加油表", "加油金额=" & Me.加油金额) > 0 Then

Top

gaojh 发表于：2014-09-20 10:19:04

点击下载此附件

我试了，用2个条件时就提示数据类型不匹配。另外，我要求使用窗体输入时判断，如出现重复录入，将焦点返回至加油时间。加油时间为日期型，车号为文本型，加油数量为数值型（有2位小数），加油金额为货币型。

Top

gaojh 发表于：2014-09-20 13:17:00

我自己已解决，用了个查询，然后在窗体更新事件中用dcount函数判断查询中相关字段是不是空来验证，完美解决。

Private Sub Form_BeforeUpdate(Cancel As Integer)

If DCount("*", "加油表查询", "加油时间" <> "" And "车号" <> "" And "加油数量" <> "" And "加油金额" <> "" and "标号" <> "" and "加油地点" <> "") Then

         MsgBox "你已有相同记录，请核对后重新输入", vbCritical, "警告"
         Me.加油时间.SetFocus
         Exit Sub

End If
End Sub

查询如下：

SELECT 加油表.加油时间, 加油表.车号, 加油表.加油金额, 加油表.加油数量, 加油表.标号, 加油表.加油地点
FROM 加油表
WHERE (((加油表.加油时间)=[Forms]![加油表]![加油时间]) AND ((加油表.车号)=[Forms]![加油表]![车号]) AND ((加油表.加油金额)=[Forms]![加油表]![加油金额]) AND ((加油表.加油数量)=[Forms]![加油表]![加油数量]) AND ((加油表.标号)=[Forms]![加油表]![油品标号]) AND ((加油表.加油地点)=[Forms]![加油表]![加油地点]));

Top

麥田发表于：2014-09-20 15:52:56

access开发平台--新增两个或两个以上相同字段数据时,提示不能重复录入的方法[Access软件网]
http://www.accessoft.com/article-show.asp?id=4206

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

Top

gaojh 发表于：2014-09-22 20:32:32

使用3楼的方法，在输入时如果有的文本框没有输入数据，就出错了。

Top

hjs 发表于：2014-09-24 21:47:13

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

End If

用 nz（）转换。

加油时间，车号，加油数量，加油金额4个全部相同时弹出提示窗口，

dcount("","",format（加油时间，“yyyymmdd”） & 车号 & 加油数量 & 金额 = nz() & )>0 then

Top

总记录：5篇页次：1/1 9 1 :

Access交流中心

如何在窗体输入时判断数据是否重复输入