数据库在删除记录的时候,必须打开数据库右击点击执行按钮,最新的结果才会显示出来。 一个书签
唯一的标识一个记录。书签的作用是标识记录,使其可以随意的跳转到标识的记录。
如果不用书签直接删除记录会出现这样的错误提示
比如说下面这段删除按钮下面的代码。
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
如果要删除的是最后一条记录这段代码保证了一次单击和多次单击删除按钮不会出现错误。附上一张美图。![](https://img-blog.csdn.net/20140721203039984?watermark/2/text/aHR0cDovL2Jsb2cuY3Nkbi5uZXQvaHpsOTk2Ng==/font/5a6L5L2T/fontsize/400/fill/I0JBQkFCMA==/dissolve/70/gravity/Center)