Yes it seems to work - the deeper I dig the more I realise that this may actually be unsuitable for a "finished article" - but having modified my code as below I now have a (potentially large number of) textboxes, each with a functioning OnClick event
Code:
Set frm = Forms(strForm)
Set mdl = frm.Module
.
.
.
Set ctl = CreateControl(strForm, acTextBox, acDetail, , , wLeft, wTop, wWidth, wHeight)
ctl.Name = "txt" & rsTemp![TL_Number]
If rsTemp![TL_Picture] Then
ctl.BackColor = cColGreen
End If
If Nz(rsTemp![TL_Image], "") <> "" Then
ctl.Tag = rsTemp![TL_Image]
End If
ctl.OnClick = "[Event Procedure]"
With mdl
Line = .CountOfLines
.InsertLines Line + 1, "Sub " & "txt" & rsTemp![TL_Number] & "_Click()"
.InsertLines Line + 2, "GABLButtonClick(" & rsTemp![TL_Number] & ")"
.InsertLines Line + 3, "End Sub"
End With