请各位高手帮忙看看,这段代码哪里错了.

ybsnryga

一点保存就直接执行了"回单日期"和"回单人员",文本框无法执行检测.

Private Sub 保存_Click()
On Error GoTo Err_保存_Click

   If IsNull(Me.营销结果) = True Then
        MsgBox "请根据结果选择对应的信息", vbOKOnly, "系统提示！！！"
        营销结果.Enabled = True
        Exit Sub
        
        
ElseIf IsNull(Me![备注]) = True Then
    MsgBox "请在备注栏详细填写客户信息数据", vbOKOnly, "温馨提示！！！"
    备注.Enabled = True
    Else
    Me.回单日期 = Date
    Me.回单人员 = Forms![login]![UserName]
   
      Exit Sub
   
Exit_保存_Click:
    Exit Sub
Err_保存_Click:
    MsgBox Err.Description
    Resume Exit_保存_Click
End If
End Sub

ybsnryga

自已顶一下

chuang0321

看了一下，也作了测试，没有问题