各文本框都已经绑定,而且绑定表中也已经有代码控制,电话号码不管是同列重复,还是同行重复,文本框会自动清空。
这样,只需要判断,号码文本框是否为空,就行了:
If e.Form.Controls("TextBox4").Text = "" OrElse e.Form.Controls("TextBox5").Text = "" OrElse e.Form.Controls("TextBox6").Text = "" Then MessageBox.Show("电话号码不能为空") ReturnElse Tables("kehu").Current.Save() e.Form.Close()End If
Click和Enter事件都要改好。