批量设置窗体中的图像控件，以此来打开各自的详情窗体

可以实现,首先你需要写一个通用的自定义函数来完成每个图像单击时要实现功能,

然后再在窗体加载事件中遍历窗体中的图像控件,给每个控件的单击事件属性框中的内容指定和=自定义函数.

Private Sub Form_Load()
    Dim ctr As Control
    For Each ctr In Me.Controls
        If ctr.Section = acDetail And ctr.ControlType = 103 Then
        ctr.OnClick = "=自定义函数()"
        End If
    Next
End Sub
Private Function 自定义函数()
    MsgBox "批量设置图像控件单击事件示例"
End Function