学生系统错误集锦

迷南。 2021-09-23 05:42 315阅读 0赞

# **学生系统已经完成，期间遇到了很多错误。下面为大家一一介绍。** #

## （一）变量未定义 2$  ——定义dim ##

解决如何定义，如下几种格式均可。

Dim str2 As VbMsgBoxResult

Dim str2$  或者Dim Str2 As String

Dim Str2%  或者 Dim Str2 As Integer

## （二）实时错误94，无效使用Null值 ##

在代码提示行后面加上——& ""即可

![watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3Byb21zaW5n_size_16_color_FFFFFF_t_70][]

## （三）实时错误424，要求对象 ##

1、没找到窗体

2、确保工程中的类名称是有效的

3、控件名与代码不匹配

## （四）实时错误3265,未找到项目, ##

这个问题和424的内涵差不多,都是没有找到需要的窗体或者控件

## （五）实时错误“91”对象变量或with块变量未设置” ##

解决这个问题有点复杂，稍后会专门出[一篇博客][Link 1]，介绍这个问题

## （六）实时错误“3201” ##

### 我们先来了解一下EOF，BOF的用法：   BOF：指当前记录位置位于Recordset对象的第一个记录之前；　   EOF：指当前记录位置位于Recordset对象的最后一个记录之后。 ###

### 解决方法：  加一个判断语句，遇到就会自动跳过 ###

on  Error  GoTo  1
    
    mrc.MoveNext
    
    call viewData
    
         If Err = 3021 then
    
                If MsgBox ("已经没有数据，是否添加数据？",vbOKCancel, ”提示 ")  = vbOK then
    
                      frmAddresult.show
    
                end if
    
         end if
    
     end sub

### 当点击下一条没有数据的时候，就会弹出提示框问是否添加数据，这样就可以避免出现错误。 ###

# （七）敲代码的时候一定要专心，细心，认真。调试代码的时候更要这样。   贡艺必精苦，用心必公平。 #

[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3Byb21zaW5n_size_16_color_FFFFFF_t_70]: /images/20210923/5e737e1d06c049ad8f4348b39fd4cd24.png
[Link 1]: https://blog.csdn.net/promsing/article/details/102970919