Office中国论坛/Access中国论坛

标题: 请各位高手帮忙看看,这段代码哪里错了. [打印本页]

作者: ybsnryga 时间: 2010-7-4 12:47
标题: 请各位高手帮忙看看,这段代码哪里错了.
本帖最后由 ybsnryga 于 2010-7-4 12:48 编辑

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

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 时间: 2010-7-5 00:57
自已顶一下

作者: chuang0321 时间: 2010-7-5 09:57
看了一下，也作了测试，没有问题

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)