谁能帮助我解决一下这个小问题-VB+access 的增加功能?

Question

VB+access   
数据库中的pack表带主键
页面是有一个"增加记录"按键.代码如下:
Private Sub Command5_Click()
' Text1.Text = ""
' Text2.Text = ""
Adodc1.Recordset.AddNew
Command1.Enabled = False
Command2.Enabled = False
Command3.Enabled = False
Command4.Enabled = False
Command5.Enabled = False
Command6.Enabled = False
Command7.Enabled = False
Command8.Enabled = True
Command9.Enabled = True
End Sub单击后 text1.text 和text2.text 被清空
DataGrid1 控件同时增加一个空行
如果在不输入任何数据的情况下,点保存会出现错误!(因为有主键,数据项不能为空)
"保存"代码如下:
Private Sub Command8_Click()
Adodc1.Recordset.Update
Form_Load
End Sub
我想通过设计得到如下结果:如果在不输入任何数据的情况下,点保存后,提示"数据不能为空",然后重新将text1.text设置为焦点!
以上不全我再补充!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Answer 1

private cmdSave_click()
  if text1.text = "" then
    msgbox"数据不能为空!",vbinformation
    text1.setfocus
  end if
end sub

Answer 2

对不起 打错~- -private cmdSave_click() 应是 private sub cmdSave_click()