3021 es la aparición de un problema BOF o EOF, hay un real, o es el registro actual se ha eliminado, requiere un registro actual.
En primer lugar tenemos que averiguar cuál es el BOF y EOF
BOF se refiere a un registro antes de la última posición de grabación es el conjunto de registros de objeto actual
EOF es la posición actual de la grabación del último registro localizado después objeto de registros
BOF con valores de retorno EOF son:
BOF: true, indica que la posición actual del puntero en la fila delante de
Falso, lo que indica la posición actual del puntero en la primera fila, la primera fila o la parte trasera
EOF: True indica la posición actual del puntero después de la última fila de la
Falso que indica el puntero es una posición en la última fila, o en frente de la última fila.
1. Busque la base de datos de registro está vacía.
2. Buscar los datos, registros de borrado con comando DEL, a continuación, citó error se produce después de campos.
3. El comando se ha trasladado a la base de datos y luego empezar con el comando MovePrevious MoveFirst o con MovePrevious.
4 se ha trasladado a los comandos de base de datos se inicia después de su uso o el uso de comando MoveNext MoveLast MoveNext.
No está en la base de datos de los datos.
Private Sub Cmddelete_Click() '删除
str2$ = MsgBox("是否删除当前记录？", vbOKCancel, "删除当前记录")
If str2$ = vbOK Then '点击确定
mrc.Delete '删除记录
mrc.MoveNext '指针往下走
If mrc.EOF Then '判断是否删
If mrc.RecordCount = 0 Then '判断上边有没有记录
'如果没有的话卸载窗体
MsgBox "无记录!"
Unload Me
Else
mrc.MoveFirst '否则指向第一条记录
Call viewData
End If
End If
End If
End Sub
