'判断“公司简称”等文本框是否为空
If IsNull(Me![公司简称]) = True Then '公司简称不能为空
MsgBox "请输入“公司简称”!", vbOKOnly, "注意"
Me![公司简称].SetFocus
Exit Sub
ElseIf IsNull(Me![公司名称]) = True Then '公司简称不能为空
MsgBox "请输入“公司名称”!", vbOKOnly, "注意"
Me![公司名称].SetFocus
Exit Sub
ElseIf IsNull(Me![电话]) = True Then
MsgBox "请输入“公司电话”!", vbOKOnly, "注意"
Me![电话].SetFocus
Exit Sub
ElseIf IsNull(Me![地址]) = True Then
MsgBox "请输入“公司地址”!", vbOKOnly, "注意"
Me![地址].SetFocus
Exit Sub
ElseIf IsNull(Me![联系人]) = True Then
MsgBox "请输入“联系人”!", vbOKOnly, "注意"
Me![联系人].SetFocus
Exit Sub
ElseIf IsNull(Me![部门]) = True Then
MsgBox "请输入“部门”!", vbOKOnly, "注意"
Me![部门].SetFocus
Exit Sub
ElseIf IsNull(Me![职务]) = True Then
MsgBox "请输入“职务”!", vbOKOnly, "注意"
Me![职务].SetFocus
Exit Sub
ElseIf IsNull(Me![客户区域]) = True Then
MsgBox "请输入“客户区域”!", vbOKOnly, "注意"
Me![客户区域].SetFocus
Exit Sub
ElseIf IsNull(Me![客户类型]) = True Then
MsgBox "请输入“客户类型”!", vbOKOnly, "注意"
Me![客户类型].SetFocus
Exit Sub
ElseIf IsNull(Me![客户状态]) = True Then
MsgBox "请输入“客户状态”!", vbOKOnly, "注意"
Me![客户状态].SetFocus
Exit Sub
ElseIf IsNull(Me![客户行业]) = True Then
MsgBox "请输入“客户行业”!", vbOKOnly, "注意"
Me![客户行业].SetFocus
Exit Sub