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作者: chuyuchun 时间: 2011-12-15 11:31
迟到的回答作者: chuyuchun 时间: 2011-12-15 13:15
[attach]47667[/attach]