listview问题

like5188

listview中，怎么能达到下面的效果
点击某个ITEM图标，打开对应的窗体

wanshan

Private Sub Lisv_ItemClick(ByVal Item As Object)
    Dim frmName As String
    frmName = Item.Text
    DoCmd.OpenForm frmName
End Sub

like5188

2# wanshan
太强大了，老大，嘿嘿，谢谢您。。。
对了，老大， 为什么勾上HotTracking属性设置高亮显示后，当鼠标移动到item图标上就自动打开窗体了？我需要点击才打开。。。

like5188

即是说既要高亮显示，又要点击才能打开。。。该怎么实现？

like5188

2# wanshan
老大，还有个问题，就是打开的有些是窗体，有些是查询，该怎么改？

wanshan

判断对象类型，可以用下面代码，不过不建议直接打开查询或表，另存为窗体，以数据表视图显示较好。
    Dim frmName As String
    frmName = Item.Text

    Dim objectType As Integer
    objectType = DLookup("Type", "MSysObjects", "Name='" & frmName  & "'")

    Select Case objectType
    Case 1
        docmd.opentable frmName '表
    Case 5
        docmd.openquery frmName '查询
    Case -32768
        docmd.openform frmName '窗体
    Case -32764
        docmd.openreport frmName '报表
    End Select

like5188

6# wanshan
恩，我有判断窗体是否存在的函数解决了这个问题，谢谢老大。但是那个高亮加点击的问题还是没找到解决办法。。。

ttaobi