网友pascal331问怎么判断text1,text2二选一必填且只能填一个，请问这样的代码该怎么写，要弹出msgbox

实现功能的代码如下:

Private Sub Text7_GotFocus()
If Len(Me.Text9) > 0 Then MsgBox "已有联系人1数据,联系人2不能再填入内容了": Me.Text9.SetFocus
End Sub
Private Sub Text9_GotFocus()
If Len(Me.Text7) > 0 Then MsgBox "已有联系人2数据,联系人1不能再填入内容了容": Me.Text7.SetFocus
End Sub

附   件:

点击下载此附件

演   示: