Segunda Guerra Mundial
Los códigos para estos botones son:
Private Sub btnanterior_Click()Adodc1.Recordset.MovePrevious -----------> Mueve el apuntador al registro anterior
If Adodc1.Recordset.BOF Then ---verifica si esta el apuntador esta al inicio de la TablaAdodc1.Recordset.MoveNext - de ser así, mueve el apuntador al siguiente registro
End If
End Sub
Private Sub btnprimero_Click()
Adodc1.Recordset.MoveFirst -----------> Mueve el apuntador al primer registroEnd Sub
Private Sub btnsiguiente_Click()
Adodc1.Recordset.MoveNext -----------> Mueve el apuntador al registro siguienter
If Adodc1.Recordset.EOF Then --verifica si esta elapuntador esta al final de la Tabla
Adodc1.Recordset.MovePrevious de ser así, mueve el apuntador registro anterior
End If
End Sub
Private Sub btnultimo_Click()
Adodc1.Recordset.MoveLast-Mueve el apuntador al último registro
End Sub
-------------------------------------------------
BORRAR REGISTROS
Para eliminar un registro, primero se debe de buscar a través de la claveprincipal, si esta el registro buscado se muestra toda la información que presenta y una vez que se pulsa el botón eliminar , se preguntará si está seguro por medio de un msgbox y los botonescorrespondientes. Si dice que sí, el código para eliminar es el siguiente:
Private Sub btneliminar_Click()
Adodc1.Recordset.Delete
Adodc1.Recordset.MoveNext para que pase el apuntador alsiguiente registro o puede
ser el primero ( Adodc1.Recordset.MoveFirst )
End Sub
Modificar
Para modificar el registro se busca primero por medio de la clave principal, si existe...
Regístrate para leer el documento completo.