請(qǐng)大神看看，錯(cuò)在哪里呢？

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("收入明細(xì)", dbOpenDynaset)
   
7.   '新增記錄
   
8.   rs.AddNew
   
9.   
   
10.     rs!日期 = Me!日期
    
11.     rs!收入項(xiàng)目 = Me!收入項(xiàng)目
    
12.     rs!收入賬戶 = Me!收入賬戶
    
13.     rs!收入金額 = Me!收入金額
    
14.     rs!摘要 = Me!摘要
    
15.    
    
16. If IsNull(日期) Then
    
17.         MsgBox "沒(méi)有輸入'日期'"
    
18. Exit Sub
    
19. End If
    
20. 
    
21. If IsNull(收入項(xiàng)目) Then
    
22.         MsgBox "沒(méi)有輸入'收入項(xiàng)目'"
    
23. Exit Sub
    
24. End If
    
25. 
    
26. If IsNull(收入賬戶) Then
    
27.         MsgBox "沒(méi)有輸入'收入賬戶'"
    
28. Exit Sub
    
29. End If
    
30. 
    
31. If IsNull(收入金額) Then
    
32.         MsgBox "沒(méi)有輸入'收入金額'"
    
33. Exit Sub
    
34. End If
    
35.      If DCount("*", "收入明細(xì)", "日期=#" & Me.日期 & " #" And "收入項(xiàng)目='" & Me.收入項(xiàng)目 & "'" And "收入賬戶='" & Me.收入賬戶 & "'" And "收入金額=" & Me.收入金額) > 0 Then
    
36.          MsgBox "此數(shù)據(jù)已錄入,請(qǐng)不要重復(fù)添加!"
    
37.          Exit Sub
    
38.      End If
    
39.          '更新記錄
    
40.      rs.Update
    
41.      Set rs = Nothing
    
42.     Me!日期 = Null
    
43.     Me!收入項(xiàng)目 = Null
    
44.     Me!收入賬戶 = Null
    
45.   Me!收入金額 = Null
    
46.       Me!摘要 = Null
    
47.     MsgBox "新增成功"
    
48. 
    
49. End Sub

復(fù)制代碼

beche100

If DCount("*", "收入明細(xì)", "日期=#" & Me.日期 & " #" And "收入項(xiàng)目='" & Me.收入項(xiàng)目 & "'" And "收入賬戶='" & Me.收入賬戶 & "'" And "收入金額=" & Me.收入金額) > 0 Then
         MsgBox "此數(shù)據(jù)已錄入,請(qǐng)不要重復(fù)添加!"
         Exit Sub

就是這一段代碼異常，請(qǐng)大佬看看哪里出問(wèn)題了。

admin

代碼寫錯(cuò)了，and后面的那組雙引號(hào)多了

beche100

admin 發(fā)表于 2022-10-25 18:08
代碼寫錯(cuò)了，and后面的那組雙引號(hào)多了

引號(hào)不能刪除，否則就如對(duì)話框提示，編譯錯(cuò)誤，缺少表達(dá)式。

beche100

果然是。