数据库问题！

Question

在窗体上放置一个文本框和一个命令按钮，用于向数据库中添加记录，其代码如下：
Private Sub Command1_Click()
If Text1.Text = Data1.Recordset.Fields("用户合同号").Value Then
MsgBox "用户合同号不能重复，请重新输入！", vbOKOnly, "错误"
Text1.Text = ""
Text1.SetFocus
Else
Data1.Recordset.AddNew
Data1.Recordset.Fields("用户合同号").Value = Text1.Text
Data1.UpdateRecord
MsgBox "保存成功！", vbOKOnly, "保存"
Text1.Text = ""
Text1.SetFocus
End If
End Sub
如果数据库中的记录为空的时候就会报错，还有就是如果数据库中有这个记录的时候了会报错，“用户合同号”为数据库主键！请高手指点一下代码应该怎样写？谢谢！

Answer 1

我也遇到过
用command 方法写就可以了！！！！