防止添加重复记录，提示类型不匹配，请大神指点

beche100

Private Sub C新增_Click()
Dim Db As DAO.Database
Dim rs As DAO.Recordset

Set Db = CurrentDb()
  Set rs = Db.OpenRecordset("收入明细", dbOpenDynaset)
  '新增记录
  rs.AddNew

    rs!日期 = Me!日期
    rs!收入项目 = Me!收入项目
    rs!收入账户 = Me!收入账户
    rs!收入金额 = Me!收入金额
    rs!摘要 = Me!摘要

If IsNull(日期) Then
        MsgBox "没有输入'日期'"
Exit Sub
End If

If IsNull(收入项目) Then
        MsgBox "没有输入'收入项目'"
Exit Sub
End If

If IsNull(收入账户) Then
        MsgBox "没有输入'收入账户'"
Exit Sub
End If

If IsNull(收入金额) Then
        MsgBox "没有输入'收入金额'"
Exit Sub
End If
     If DCount("*", "收入明细", "日期=#" & Me.日期 & " #" And "收入项目='" & Me.收入项目 & "'" And "收入账户='" & Me.收入账户 & "'" And "收入金额='" & Me.收入金额 & "'") > 0 Then
         MsgBox "此数据已录入,请不要重复添加!"
         Exit Sub
     End If
         '更新记录
     rs.Update
Set rs = Nothing
    Me!日期 = Null
    Me!收入项目 = Null
    Me!收入账户 = Null
  Me!收入金额 = Null
      Me!摘要 = Null
    MsgBox "新增成功"
End Sub

beche100

if DCount("*", "收入明细", "日期=#" & Me.日期 & " #" And "收入项目='" & Me.收入项目 & "'" And "收入账户='" & Me.收入账户 & "'" And "收入金额=" & Me.收入金额) > 0 Then
         MsgBox "此数据已录入,请不要重复添加!"
         Exit Sub
     End If
重新修改了一下，还是不行。

文本型表示法 '" & 变量 & "'
日期型表示法 #" & 变量 & "#
数值型(布尔型)表示法 " & 变量

ly

beche100

ly 发表于 2022-10-25 08:47

若是单个字段须写明，多个字段就用*表示。
比如：
If DCount("收入项目", "收入明细 ", "收入项目='" & Me.收入项目 & "'") > 0 Then
         MsgBox "此数据已录入,请不要重复添加!"
         Exit Sub
     End If
这段代码已调试，没有问题。

beche100

ly 发表于 2022-10-25 08:47

1. If DCount("*", "收入明细", "日期=#" & Me.日期 & " # And 收入项目='" & Me.收入项目 & "' And 收入账户= '" & Me.收入账户 & "' And 收入金额=" & Me.收入金额) > 0 Then
   
2.          MsgBox "此数据已录入,请不要重复添加!"
   
3.          Exit Sub
   
4.      End If

复制代码

上述已测试，没有问题。以前标点符号标注有误，，真是贻笑大方了