DoCmd.GoToRecord, AcRecordNew
Para hacer más fluido el movimiento entre un formulario principal y su subformulario adapte el siguiente código
Private Sub Fecha_LostFocus()
If IsNull([Fecha]) Then
DoCmd. GoToControl "Nombres"
DoCmd. GoToRecord, AcRecordNew
End If
End Sub
Con esto me muevo muy bien y rápido, sin tener que recorrer todos los campos, sino capturo en fecha, me pasa a otro registro del formulario principal (el campo fecha es el primero del subformulario)es decir en el campo Nombres del formulario principal, y esta en blanco para iniciar la captura de un nuevo registro, peeeeeero: el problema surge cuando llego al último registro y no capturo, al cerrar el formulario me abre el editor de código y me marca de amarillo toda la instrucción que señalo en el titulo, lo mismo me ocurre si estoy por ejemplo en el segundo registro y con lo botones de desplazamiento pido ir hasta el último, si avanzo de uno en uno funciona bien siempre y cuando no llegue al último. ¿Qué estaré haciendo mal?
Private Sub Fecha_LostFocus()
If IsNull([Fecha]) Then
DoCmd. GoToControl "Nombres"
DoCmd. GoToRecord, AcRecordNew
End If
End Sub
Con esto me muevo muy bien y rápido, sin tener que recorrer todos los campos, sino capturo en fecha, me pasa a otro registro del formulario principal (el campo fecha es el primero del subformulario)es decir en el campo Nombres del formulario principal, y esta en blanco para iniciar la captura de un nuevo registro, peeeeeero: el problema surge cuando llego al último registro y no capturo, al cerrar el formulario me abre el editor de código y me marca de amarillo toda la instrucción que señalo en el titulo, lo mismo me ocurre si estoy por ejemplo en el segundo registro y con lo botones de desplazamiento pido ir hasta el último, si avanzo de uno en uno funciona bien siempre y cuando no llegue al último. ¿Qué estaré haciendo mal?
1 Respuesta
Respuesta de hen9