Office中国论坛/Access中国论坛

标题: listview问题 [打印本页]

作者: like5188 时间: 2009-12-9 16:12
标题: listview问题
本帖最后由 like5188 于 2009-12-9 16:18 编辑

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

作者: wanshan 时间: 2009-12-9 17:24
Private Sub Lisv_ItemClick(ByVal Item As Object)
Dim frmName As String
frmName = Item.Text
DoCmd.OpenForm frmName
End Sub

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

作者: like5188 时间: 2009-12-9 17:51
即是说既要高亮显示，又要点击才能打开。。。该怎么实现？

作者: like5188 时间: 2009-12-9 18:06
2# wanshan
老大，还有个问题，就是打开的有些是窗体，有些是查询，该怎么改？

作者: wanshan 时间: 2009-12-9 18:38
本帖最后由 wanshan 于 2009-12-9 18:43 编辑

判断对象类型，可以用下面代码，不过不建议直接打开查询或表，另存为窗体，以数据表视图显示较好。
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 时间: 2009-12-9 19:07
6# wanshan
恩，我有判断窗体是否存在的函数解决了这个问题，谢谢老大。但是那个高亮加点击的问题还是没找到解决办法。。。

作者: ttaobi 时间: 2009-12-16 16:33

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)