向一个设有2个主码的表插入重复的数据出错

Question

我在一个tmp表中设置"考勤时间"和"所在部门"为共同主码,但是当我向表中重复插入数据时会报错,说重复键入,我写了个on error goto err:语句,开始可以的,但是后来就不行了,再插入重复值时会说"溢出"了,怎样才可以解决这个问题?

Answer 1

rs.open "select * from 表 where 考勤时间=#" & format(dtpicker1, "HH:nn") & "# and 所在部门='" & txtDepartment & "'"if rs.eof then
   rs.addnew
   rs!考勤时间 = format(dtpicker1, "HH:nn")
   rs!所在部门=txtDepartment
   ......
   rs.update
else
   msgbox "重复的数据"
end if