Office中国论坛/Access中国论坛

标题: 怎样设置窗体打开时的错误提示？ [打印本页]

作者: bjcompass 时间: 2013-7-3 15:55
标题: 怎样设置窗体打开时的错误提示？
有一个窗体打开事件中要读取一个表名为“表1”的字段置，
css = DMax("字段1", "表1")
而这个表位于后台数据库上，当后台数据库没有打开时，前台系统找不到表，这个窗体就会出现错误提示，有时还会长时间停止。
请问如何在窗体打开事件中设置错误的自定义提示，并且在提示框按钮上关闭窗体？
谢谢？

作者: 郭鑫 时间: 2013-7-4 14:40
这个问题我也有，窗体打开一直有错误提示

作者: bjcompass 时间: 2013-7-4 19:23
这个问题解决了，在窗体打开事件里写代码
Private Sub Form_Open(Cancel As Integer)
On Error GoTo Form_Open_Error
.................

  On Error GoTo 0
Exit Sub
Form_Open_Error:
If Err.Number = 3044 Then
MsgBox "数据连接发生故障，顺序检查以下各项：" & vbCrLf & _
   "1、主机是否开机，如未开机请打开主机。" & vbCrLf & _
         "3、分机中是否正确设置了网络驱动器。", vbOKOnly, "系统提示！"
      Quit ‘退出程序
ElseIf Err.Number = 3078 Then
  MsgBox "1、分机中设置的链接表丢失。" & vbCrLf & _
            "3、分机中是否正确设置了网络驱动器。", vbOKOnly, "系统提示：没有找到链接表"
Quit
Else
MsgBox "Error " & Err.Number & " (" & Err.Description & ")"
End If

End Sub

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