将保存按钮的代码修改一下,大概如此:
if e.Form.Controls("TextBox1").Value Is Nothing Orelse e.Form.Controls("TextBox2").Value Is Nothing Orelse e.Form.Controls("TextBox3").Value Is Nothing Then
Messagebox.show("请输入完整数据")
return
Else
'原来保存按钮的代码
End if