出错信息.txt

vb电子书籍

function FileError(errVal As Integer) As Integer
  Dim MsgType As integer           'MsgBox()中按钮类型
  dim Response As integer          ' 保存用户对MsgBox()的选择
  dim Msg As String                'MsgBox()中的提示
  MsgType = vbExclamation          'MsgBox()中的警告信息
  Select Case errVal               '根据 errVal的值给出不同的提示
  case errDeviceUnavailable        'Error #68
       Msg = "磁盘未格式化"
       MsgType = vbExclamation + 5
  case errDiskNotReady
       Msg = "驱动器未准备好"
  case errDeviceIO
       Msg = "磁盘满"
  case errBadFileName,errBadFileNameOrNumber
       Msg = "文件名非法"
  case errPathDoesNotExist
       Msg = "路径名不存在"
  case errBadFileMode
       Msg = "文件类型不正确，无法打开"
  case errFileAlreadOpen
       Msg = "文件已打开"
  case errInputPastEndOfFile
       Msg = "有一个不正确的文件结束标志或企图越界读文件"       
  case Else
       FileErrors = 3
       Exit Function
End Select
Response = MsgBox(Msg,MsgType,"出错处理")
Select Case Response
Case 1,4
    FileErrors = 0
Case 5
    FileErrors = 1
Case 2,3
    FileErrors = 2
Case Else
    FileErrors = 3
End Select
End Function  




dim db As Database,RS As Recordset