让模块代码更简洁

时　间:2007-12-05 22:13:31
作　者:cuxun 何勇   ID：274  城市：肇庆
摘　要: 让模块代码更简洁，tag属性
正　文:

  '判断“公司简称”等文本框是否为空
        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
      

Access软件网官方交流QQ群 (群号:54525238) 　　　　　　Access源码网店