Imprimir página | Cerrar ventana

Problemas al asignar Event Procedure a OnClick

Impreso de: Foro de Access y VBA
Categoría: Access y VBA
Nombre del foro: Access y VBA
Descripción del foro: Foro de programacion en Access (Con código y sin código)
URL: http://www.mvp-access.com/foro/forum_posts.asp?TID=86697
Fecha de impresión: 29/Marzo/2024 a las 17:02


Tema: Problemas al asignar Event Procedure a OnClick
Publicado por: dokk
Asunto: Problemas al asignar Event Procedure a OnClick
Fecha de publicación: 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



Respuestas:
Publicado por: dokk
Fecha de publicación: 26/Mayo/2023 a las 14:53
Al final lo he puesto a manija. Se puede cerrar.

-------------
Albert Hostein
Aprendiendo cayendo



Imprimir página | Cerrar ventana