Which Control Selected on Form Using a Control Array

[rlamoreaux]

I built a 10 X 10 image control array on a form using vba. I'm able to index through this array and load images from differant records of a table. When loading the image I also set the controltiptext property to the record numberof the image, I want to use this to identify the record when the image is selected. Now I'm trying to click on 1 of these images and somehow get the record number so I can display the rest of the record of the image. Do I have to do 100 imageXX_Onclick sub routines or is there someway to tell what control is under the mouse when the onclick happens? all image control names are image00 to image99

 

[Remou]

It should be possible to use:

[tt]Screen.ActiveControl[/tt]

 

[TheAceMan1]

How are ya rlamoreaux . . .

[purple]No![/purple] . . . reason being you have to trigger some event to start your processing and [blue]there's no all inclusive event in access[/blue] . . . albeit it would be nice!

See Ya! . . . . . .

 

[Remou]

rlamoreaux
I had forgotten that Image controls do not receive focus, so cannot be used with KeyPreview and KeyPress for the form, which is a useful way of coding for more than one control. The code below will write code for each image control in a form called frmForm.

Sub AddCodeToForm()
Dim ctl As Control
Dim frm As Form
Dim mdl As Module
Dim lno As Integer

DoCmd.OpenForm "frmForm", acDesign
Set frm = Forms!frmForm
Set mdl = frm.Module

    For Each ctl In frm.Controls
        If ctl.ControlType = acImage Then
            strCode = vbCrLf & "Private Sub " & ctl.Name & "_Click()" & vbCrLf _
                & vbTab & "DoCmd.OpenForm ""frmDetail"",,,""ID="" & Me." & ctl.Name _
                & ".Tag" & vbCrLf & "End Sub"
                lno = mdl.CountOfLines + 1
                mdl.InsertLines lno, strCode
        End If
    Next
        
End Sub

 

[Remou]

It is also possible to set the event for each control to the name of a procedure, which may be better than setting the tag property.

For example:
On Click: =ClickMe(

.Tag)

You could replace

.Tag with the actual ID in the Open event:

Sub ClickMe(intID)
DoCmd.OpenForm "frmDetail", , , "ID=" & intID
End Sub

Private Sub Form_Open(Cancel As Integer)
'Record set stuff here
For Each ctl In Me.Controls
    If ctl.ControlType = acImage Then
        ctl.OnDblClick = "=ClickMe(" & rs!ID & ")"
        'more Recordset
    End If
Next
'more Recordset
End Sub

 

[rlamoreaux]

Many thanks to REMOU The above code snippet sure saved me alot of work. Creating 100 subroutines seems like the best way to go.