此类错误的出现，是由于在对数据库进行操作时，记录集中的记录为空，或者只有一个记录。

相关代码如下：

Dim intMsgBox As Integer

        m_vntBookmark = m_rstStudentInfo.Bookmark

        intMsgBox = MsgBox("真的要删除当前记录吗？",vbOKCancel,"删除记录")

        '确认是否要删除当前记录 

 

        If intMsgBox = vbOK Then

            m_rstStudentInfo.MoveNext

            '根据要删除记录的位置不同，选择不同的删除方式

 

            If m_rstStudentInfo.EOF Then           '如果要删除的为记录集的最后一条记录

                m_rstStudentInfo.MoveFirst           '让指针移到了最后一条之后，需要返回到第一条

                m_vntBookmark = m_rstStudentInfo.Bookmark     '记录当前书签（位置）

                m_rstStudentInfo.MoveLast                                   '返回上一条，将之删除

                m_rstStudentInfo.Delete

                m_rstStudentInfo.Bookmark = m_vntBookmark      '返回刚才书签的记录位置

                Call viewData                                                         '显示记录

            Else                                                       '如果要删除的不是最后一条

                m_vntBookmark = m_rstStudentInfo.Bookmark          '记录当前指针位置

                m_rstStudentInfo.MovePrevIoUs                                  '返回上一条将之删除

                m_rstStudentInfo.Delete

                m_rstStudentInfo.Bookmark = m_vntBookmark          '指针返回刚才书签记录的位置

                Call viewData

            End If

代码相对操作流程如下：

在上述代码中，标记和删除的记录默认不为同一条。故潜在含义是：记录集中必须大于两条记录。所以当出现记录为空或是只有一条时程序报错。

解决方法如下：

If  err=3021  then

         If  objrs.bof and objrs.eof then

                    MsgBox"没有记录可供删除！"

          Else

                    Str1=msgBox（“最后一条记录，是否继续删除？”，vbokcancel，“提醒”）

                        If str1=vbok then

                               msgBox“最后一条记录已删除！”

                               Unload me

                       Else

                              Exit sub

                       End if

          End if


End if

 

上述代码中，关键在于理解"objrs.bof and objrs.eof"

BOF：beginning of file，指向的是第一条记录的前一条记录。默认值为true

EOF:end of file ，指向的是最后一条记录的后一条。默认为true

如：记录集中共包含1、2、3、4 四条记录，BOF 则表示的是-1，而EOF 则为5.

故当objrs.bof and objrs.eof 同时满足时，则表示指针指向-1,5两条记录。即表示此记录集为空，没有记录