Posicionarse en fila de inserción de una tabla
Publicado: Mié Abr 01, 2020 7:26 pm
Buenas
Otra vez necesitando vuestra ayuda.
El problema que tengo es que cuando desde el menú principal pulso la opción de "NUEVO MATERIAL", este mediante una macro llama al formulario y se abre colocándose en el ultimo registro introducido. Esto provoca que no pueda introducir uno nuevo sin que machaque el que me muestra. La solución pasaría por incluir en la macro del botón "NUEVO MATERIAL" una línea que posicionase el cursor en el registro de inserción de la tabla que utiliza el formulario, mostrando al abrirse de esta forma los datos por defecto del registro. He buscado y creo que seria el método moveToInsertRow, pero he intentado de varias formas configurarlo en la macro y no doy con la tecla, (creo que aun no domino muy bien esto de los métodos funciones ….). La macro que tengo es
La tabla que utiliza el formulario se llama "MODELO", pero no atino a ver como implementarlo eso en la macro "sAbreF"
Espero vuestra ayuda un saludo y gracias
Otra vez necesitando vuestra ayuda.
El problema que tengo es que cuando desde el menú principal pulso la opción de "NUEVO MATERIAL", este mediante una macro llama al formulario y se abre colocándose en el ultimo registro introducido. Esto provoca que no pueda introducir uno nuevo sin que machaque el que me muestra. La solución pasaría por incluir en la macro del botón "NUEVO MATERIAL" una línea que posicionase el cursor en el registro de inserción de la tabla que utiliza el formulario, mostrando al abrirse de esta forma los datos por defecto del registro. He buscado y creo que seria el método moveToInsertRow, pero he intentado de varias formas configurarlo en la macro y no doy con la tecla, (creo que aun no domino muy bien esto de los métodos funciones ….). La macro que tengo es
Código: Seleccionar todo
Sub BotonNuevoMaterial
Call sAbreF ("F_MODELO")
End Sub
'Apertura de formularios por nombre
Sub sAbreF (NombreF As String)
Dim oControl As Object
'Conecta con la base de datos
oControl=ThisDatabaseDocument.CurrentController()
If Not oControl.IsConnected() Then oControl.Connect()
'Abre el formulario
oControl.LoadComponent(com.sun.star.sdb.application.DatabaseObject.FORM,NombreF,False)
End Sub
Espero vuestra ayuda un saludo y gracias
