[RESUELTO] Obtener nombre de campo de texto al recibir foco

[ABDENAGO NAHMENS]

Buenos días a todos los usuarios del foro. Estoy iniciando en OpenOffice.
Necesito alguna macro que permita captar en una variable tipo string el nombre de un campo de texto (o cualquier control) cuando este reciba el foco.

Saludos.

[RMG]

Hola,

Suponiendo que te refieres a un control en un formulario de Base.

Código: Seleccionar todo

Sub valorcampo (Evento)

Dim variable As String
variable = Evento.Source.Model.Parent.getByName("nombre_control").Text

End Sub

Saludos

[ABDENAGO NAHMENS]

Gracias amigo RMG, he probado con el codigo que enviaste, pero lo que necesito es una macro que devuelva el nombre del control cuando este haya recibido el foco, el codigo que me envias necesita indicar previamente el nombre del control (variable = Evento.Source.Model.Parent.getByName("nombre_control").Text). se supone que no se conoce el nombre de dicho control y debo obtenerlo cuando este tenga el foco. Gracias por tu interés en ayudarme.ente el nombre del del control (variable = Evento.Source.Model.Parent.getByName("nombre_control").Text). se supone que no ce conoce el nombre y debo obtenerlo cuando este tenga el foco. Gacias por tu interes en ayudarme

[xiseme]

Aunque no hay confimación de que sea en Base, lo que sí es seguro es que es un tema para el subforo de Macros y API UNO. Se mueve a él.

[mauricio]

Aquí tienes mucha información para hacer lo que quieres:
https://wiki.openoffice.org/wiki/ES/Man ... TextBox.29
https://wiki.openoffice.org/wiki/ES/Man ... _.C3.A1rea

Saludos

[RMG]

Hola,

Como dice Mauricio, si te estas iniciando en AOO, debes intentar entender primero como funciona, para después a través del foro aclarar tus dudas.

Para que vayas haciendo marcha, cambia esta linea por la otra.

variable = Evento.Source.Model.Name

Saludos

[SLV-es]

Tienes que enviar el evento Coger foco de cada control hacia una macro, donde almacenes en una variable visible a nivel de módulo el nombre del control.

Aquí tienes un ejemplo con la solución, tal y como te han comentado los compañeros.

Saludos