怎样设置窗体打开时的错误提示？

bjcompass

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

郭鑫

这个问题我也有，窗体打开一直有错误提示

bjcompass

这个问题解决了，在窗体打开事件里写代码
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