学生信息管理系统--书签的使用

数据库在删除记录的时候,必须打开数据库右击点击执行按钮,最新的结果才会显示出来。 一个书签

唯一的标识一个记录。书签的作用是标识记录,使其可以随意的跳转到标识的记录。

如果不用书签直接删除记录会出现这样的错误提示

学生信息管理系统--书签的使用_第1张图片
比如说下面这段删除按钮下面的代码。
Private Sub CmdDeleteButton_Click()
  
  myBookmark = mrc.Bookmark
  Dim a As Integer
  
  a = MsgBox("是否删除当前记录?", vbOKCancel, "删除当前记录")
  
  If a = vbOK Then
   
          mrc.MoveNext
          
            If mrc.EOF Then
          
                    mrc.MoveFirst
                    myBookmark = mrc.Bookmark
                    mrc.MoveLast
                    mrc.Delete
                    mrc.Bookmark = myBookmark
                    
                    '如果是最后一条记录,则弹出提示框!
                    If myBookmark = 0 Then
                    
                       MsgBox "您将要删除最后一条记录!", vbOKOnly, "提示"
                       Exit Sub
                       
                    End If
                    
                    Call ViewData1
                  
              Else
              
                  myBookmark = mrc.Bookmark
                  mrc.MovePrevious
                  mrc.Delete
                  mrc.Bookmark = myBookmark
                  
                  Call ViewData1
                
            End If
          
      Else
      
           mrc.Bookmark = myBookmark
           
           Call ViewData1
           
   End If
   
End Sub

如果要删除的是最后一条记录这段代码保证了一次单击和多次单击删除按钮不会出现错误。附上一张美图。学生信息管理系统--书签的使用_第2张图片

你可能感兴趣的:(书签,bookmark,学生信息管理系统,删除最后一条记录)