Re: Attaccare Evento a controllo con VBA

On 9 Ott, 10:46, "Daniele M. aka mcdany" <mcd...@gmail.com> wrote:
> Ciao a tutti,
>     ho la necessità di modificare da codice una form, che dovrà
> (grossolamente) disegnare la segmentazione di un locale di immagazzinamento.
>     Ogni segmento sarà rappresentato graficamente da un controllo
> (probabilmente una label), che creerò e posizionerò sulla form, sulla base
> della mappatura corrente. Fin qui nessun problema (spero!).
>     Ora vorrei che questi controlli rispondessero all'evento click.
>     Non riesco a trovare informazioni a riguardo...
>     Grazie per l'attenzione,
> --
> Daniele M. aka mcdany

Mi rispondo da solo, magari potrà risultarmi utile se perderò la
memoria :)
SI deve utilizzare il metodo CreateEventProc della Collection Module
del form
Qualcosa come:

Dim strFormName as String
Dim ctl as Control
Dim lLineCode as Long

strFormName="Maschera1"
DoCmd.OpenForm strFormName, acDesign

Set ctl = CreateControl(strFormName, acLabel, acDetail, , ,
1000,1000,1000,1000)
ctl.Caption = ctl.Name
lLineCode = Forms(strFormName).Module.CreateEventProc("Click",
ctl.Name)
Forms(strFormName).Module.InsertLines lLineCode + 1, "Msgbox
""Hello!"""

DoCmd.OpenForm "Maschera1"
Saluti,
--
Daniele M. aka mcdany