在增加数据过程中，不断提示：由于将在索引、 主关键字、或关系中创建重复的值，请求对表的改变没有成功。 改变该字段中的或包含重复数据的字段中的数据，删除索引或重新定义索引以允许重复的值并再试一次，如下图：
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!ID = Me!ID
Rs!日期 = Me!日期
Rs!年份 = Me!年份
Rs!收入项目 = Me!收入项目
Rs!收入账户 = Me!收入账户
Rs!收入金额 = Me!收入金额
Rs!摘要 = Me!摘要
If IsNull(ID) Then
MsgBox "没输入主键"
Else
'更新记录
Rs.Update
MsgBox "新增成功"
End If
End Sub
针对此问题反复调试，并在网上多方查阅资料，原来一切都是ID主键作妖，取消其主键，则迎刃而解。