代 码:
If IsNull(Me.文本框名称) or Len(Me.文本框名称) = 0 Then MsgBox "此信息不能为空,请输入信息再保存!", vbCritical, "提示:" Me.文本框名称.SetFocus Exit Sub End If