[求助]文本框向一个表中加入记录摒弃重复项问题

wssf

各位老师：下面这段代码是从窗体文本框Text1中输入单位名称，自动登入“表1”[单位]一栏中。但是，如果输入重复值，则显示代码中a.Update错误。 如果要求有重复值不登入，也不需提示，怎样按这个要求更改这段代码？
Private Sub Text1_AfterUpdate()
Dim a As Recordset
Set a = CurrentDb.OpenRecordset("表1")
a.AddNew
a("单位") = Me.Text1
a.Update
End Sub
谢谢！

zhuyiwen

将表1的单位设为主键，然后在代码中捕获错误，即可。

wssf

谢谢zhuyiwen老师，已按您的指点搞定,谢谢！