Problemas al asignar Event Procedure a OnClick

   Buenos días:
Estoy tratando de añadir código a una etiqueta a través de código. Para ello uso lo siguiente:

	With Me.Controls("Etiqueta" & i)
                .Properties.Item("OnClick") = "[Event Procedure]"
                strcode = "Private Sub " & .name & "_Click()" & vbCr _
                  & "    WODetail.Visible = True" & vbCr _
                  & "End Sub"
                Set mdl = Forms("Gantt").Module
                  mdl.InsertText strcode
	End With

El código me lo inserta en el módulo correctamente, pero al evento "Al hacer click" no se le asigna el "Procedimiento de evento".

Lo curioso es que si sustituyo "OnClick" por "OnDblClick", sí se asigna el "Procedimiento de evento" a  "Al hacer doble click" (evidentemente no vinculado al código que le asigno ya que éste es para hacer sólo click).

Seguro que es alguna chorrada, pero no termino de verla.

Gracias de antemano. 

Autor	Mensaje Tema Buscar Opciones del Tema Responder Crear un nuevo tema Versión imprimible Traducir Tema
dokk Ver perfil usuario Enviar mensaje privado Ver los mensajes del usuario Añadir a la lista de amigos Habitual Unido: 15/Mayo/2020 Localización: Hendaye Estado: Sin conexión Puntos: 152	Tema: Problemas al asignar Event Procedure a OnClick Enviado: 24/Mayo/2023 a las 08:27
	Buenos días: Estoy tratando de añadir código a una etiqueta a través de código. Para ello uso lo siguiente: With Me.Controls("Etiqueta" & i) .Properties.Item("OnClick") = "[Event Procedure]" strcode = "Private Sub " & .name & "_Click()" & vbCr _ & " WODetail.Visible = True" & vbCr _ & "End Sub" Set mdl = Forms("Gantt").Module mdl.InsertText strcode End With El código me lo inserta en el módulo correctamente, pero al evento "Al hacer click" no se le asigna el "Procedimiento de evento". Lo curioso es que si sustituyo "OnClick" por "OnDblClick", sí se asigna el "Procedimiento de evento" a "Al hacer doble click" (evidentemente no vinculado al código que le asigno ya que éste es para hacer sólo click). Seguro que es alguna chorrada, pero no termino de verla. Gracias de antemano.
	Albert Hostein Aprendiendo cayendo

dokk Ver perfil usuario Enviar mensaje privado Ver los mensajes del usuario Añadir a la lista de amigos Habitual Unido: 15/Mayo/2020 Localización: Hendaye Estado: Sin conexión Puntos: 152	Enviado: 26/Mayo/2023 a las 14:53
	Al final lo he puesto a manija. Se puede cerrar.
	Albert Hostein Aprendiendo cayendo