Abrir Formulario Access según ultimo registro creado

Os pido ayuda con un problema de Access que tengo

Veréis, tengo una función creada con INSERT INTO entre 2 tablas y formularios, uno seria el formulario principal que se llama "TAB_USUARIOS" y el otro es un histórico que se llama "TAB_USUARIOS_HISTORICO". En el formulario "USUARIOS" relacionado con la tabla "TAB_USUARIOS" tengo un botón creado con la función de ELIMINAR REGISTRO, en el en EVENTOS-AL HACER CLIC he creado el siguiente procedimiento:

Private Sub Imagen789_Click()
Dim respuesta As String
Dim cSql As String
respuesta = MsgBox("ELIMINARÁ EL REGISTRO ACTUAL,¿DESEA CONTINUAR?", vbYesNo, "CONFIRMAR")
If respuesta = 6 Then
DoCmd.RunSQL "INSERT INTO TAB_USUARIOS_HISTORICO (DNI,NombreyApellidos,Empleo,Antiguedad) VALUES ('" & DNI.Value & "', '" & NombreyApellidos.Value & "', '" & Empleo.Value & "', '" & Antiguedad.Value & "')"
MsgBox ("LA FICHA ELIMINADA PASARÁ AL REGISTRO HISTÓRICO"), vbInformation, "PASO DE DATOS A HISTÓRICO COMPLETADO"
DoCmd.RunCommand acCmdDeleteRecord
DoCmd.Close acForm, "USUARIOS", acSaveYes
DoCmd.OpenForm "USUARIOS_HISTORICO"
MsgBox ("REGISTRO ACTUAL ELIMINADO"), vbInformation, "REGISTRO ELIMINADO"
Else
MsgBox ("REGISTRO ACTUAL NO ELIMINADO"), vbInformation, "CANCELAR ELIMINACION"
End If
End Sub

Como veis lo que busco con el código es que cuando elimine el registro de la TAB_USUARIOS me mande ciertos campos coincidentes (DNI, NombreyApellidos,... Etc) a la TAB_USUARIOS_HISTORICO; que luego me borre el registro de la Tab_usuarios; que cierre el Formulario USUARIOS y que me abra el Formulario USUARIOS_HISTORICO

Hasta ahí el código funciona perfectamente y hace su función, pero necesito otra cosa que no soy capaz de enlazar, cuando hago la sentencia de ABRIR EL FORMULARIO HISTÓRICO, esto es:DoCmd. OpenForm "USUARIOS_HISTORICO", quiero que abra el formulario pero mostrando el registro recién eliminado de la TAB_USUARIOS, que vendría a ser el ultimo registro creado también dentro de la TAB_USUARIOS_HISTORICO

He intentado enlazarlo con una WHERE CONDITION pero no doy con la sentencia correcta que me haga bien esa función

¿Alguno podría decirme como ponerlo exactamente para que haga esa función y me muestre el formulario con los datos recién eliminados de la otra Tabla?

1 respuesta

Respuesta
1

Oscar: En el Evento Form_Load (Al Cargar) de ese formulario de Históricos, no en la llamada, en el que tu llamas USUARIOS_HISTORICO

Private Sub Form_Load()

DoCmd.GoToRecord , , acLast

End Sub

Y si quieres ir aotro, mira en la própia ayuda de Access.

DoCmd. GoToRecord (método)

Creo que te irá bien, o sea al último registro creado en la Tabla de Origen

Saludos >> Jacinto

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Abrir un registro al hacer doble click en una consulta

Tengo una base de datos de libros, en una consulta que he creado, al seleccionar un autor me aparecen todos los libros que tengo introducidos del mismo en la base de datos. No sé cómo hacer para que una vez me aparecen todos los libros, al hacer...
3 respuestas

Actualizar un campo de una tabla

Estoy intentando modificar el campo histórico de la tabla definiciones cuando en el formulario le doy a eliminar, no me da ningún error pero no me actualiza el campo histórico, me lo deja como esta. Lo estoy haciendo así: Dim db As Database Dim rs As...
1 respuesta

Al cerrar formulario access revisar si ciertos campos están cubiertos

Tengo un formulario donde ingreso los registros y cuando acabo hago click en el botón salir y como access guarda los registro por defecto solo le puse con codigo que cierre el formulario. Pero necesito que me compruebe que el campo Fecha y Acción...
1 respuesta

Eliminar registros duplicados mediante una función

Me gustaría crear una función para eliminar registros duplicados en cualquier formulario. Realmente cada registro es único porque en el campo ID es diferente el valor, pero entiendo por duplicados aquellos registros cuyo todos los campos, excepto ID...
2 respuestas

He creado un botón para borrar registros y no vaHe

Espero puedan ayudarme. Mi pregunta es la siguiente: He creado un formulario en access sin selectores de registro, y la cuestión es que me daje añadir registros sin ningún problema, pero si los quiero borrar me da el mensaje "los cambios solicitados...
1 respuesta

Access 2003, seleccionar registros desde un formulario

Tengo una tabla con varios campos, entre ellos el nombre y apellidos. La idea es desde un formulario con un campo de texto independiente, escribir parte de un nombre y con un botón hacer que se arranque una consulta en la que aparezcan los registros...
2 respuestas

¿Cómo hacer un buscador automático en access?

Tengo el siguiente código, el cual realiza la búsqueda luego de teclear alguna palabra o parte de ella y oprimir un botón. Private Sub Form_Load() DoCmd. GoToRecord,, acNewRec Me. TxtBuscar. SetFocus 'Esto lleva el foco al control TxtBuscar. End Sub...
2 respuestas

Eliminando registro actual en formulario access.

Tengo una imagen a la cuál le asigné: Private Sub Imagen1082_Click() DoCmd.RunCommand acCmdDeleteRecord End Sub El funciona, pero quiero que además no me salga un error que da cuando en ves de aceptar para eliminar cancelo la operación, y...
2 respuestas

Ver historial en un formulario

Tengo un formulario para mostrar las fórmulas que fueron generadas para un paciente,,, cuando dígito el numero de cedula de un paciente me aparecen los datos de la fórmula que fue generada. El problema es que solo me muestra la primera que esta en la...
1 respuesta

Crear función usando Trim en todos los controles del formulario

En ocasiones me pasa que me dejo espacios antes y después del texto en los controles del formulario, en cuadros de texto, combos, etc. Me gustaría poder eliminar esos espacios mediante "TRIM" creando una función en un módulo, que pueda llamar en el...
2 respuestas