请大神看看，错在哪里呢？

beche100

1. Private Sub C新增_Click()
   
2. Dim Db As DAO.Database
   
3. Dim rs As DAO.Recordset
   
4.   
   
5. Set Db = CurrentDb()
   
6.   Set rs = Db.OpenRecordset("收入明细", dbOpenDynaset)
   
7.   '新增记录
   
8.   rs.AddNew
   
9.   
   
10.     rs!日期 = Me!日期
    
11.     rs!收入项目 = Me!收入项目
    
12.     rs!收入账户 = Me!收入账户
    
13.     rs!收入金额 = Me!收入金额
    
14.     rs!摘要 = Me!摘要
    
15.    
    
16. If IsNull(日期) Then
    
17.         MsgBox "没有输入'日期'"
    
18. Exit Sub
    
19. End If
    
20. 
    
21. If IsNull(收入项目) Then
    
22.         MsgBox "没有输入'收入项目'"
    
23. Exit Sub
    
24. End If
    
25. 
    
26. If IsNull(收入账户) Then
    
27.         MsgBox "没有输入'收入账户'"
    
28. Exit Sub
    
29. End If
    
30. 
    
31. If IsNull(收入金额) Then
    
32.         MsgBox "没有输入'收入金额'"
    
33. Exit Sub
    
34. End If
    
35.      If DCount("*", "收入明细", "日期=#" & Me.日期 & " #" And "收入项目='" & Me.收入项目 & "'" And "收入账户='" & Me.收入账户 & "'" And "收入金额=" & Me.收入金额) > 0 Then
    
36.          MsgBox "此数据已录入,请不要重复添加!"
    
37.          Exit Sub
    
38.      End If
    
39.          '更新记录
    
40.      rs.Update
    
41.      Set rs = Nothing
    
42.     Me!日期 = Null
    
43.     Me!收入项目 = Null
    
44.     Me!收入账户 = Null
    
45.   Me!收入金额 = Null
    
46.       Me!摘要 = Null
    
47.     MsgBox "新增成功"
    
48. 
    
49. End Sub

复制代码

beche100

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

就是这一段代码异常，请大佬看看哪里出问题了。

admin

代码写错了，and后面的那组双引号多了

beche100

admin 发表于 2022-10-25 18:08
代码写错了，and后面的那组双引号多了

引号不能删除，否则就如对话框提示，编译错误，缺少表达式。

beche100

果然是。