【help】点击treeview节点打开相应的窗体

roych

大概这样。顺便说下，要双击才可以打开窗体的

roych

你这是在逗我玩儿吗？都说双击打开的，单击是不可以的。——因为在树控件里，单击还有选中节点的任务。
==，你是说打不开附件还是打不开窗体？

roych

三毛流浪记 发表于 2015-2-5 14:05
谢谢您！可是在我这里怎么还是打不开的，各位下载附件的前辈、同学你们打的开吗？

附件已经更新了，增加了Access 2000版本。如果再打不开我也没辙了，贴代码给你吧（加上树控件双击这一段）：

1. Private Sub TreeView1_DblClick()
   
2. Dim node1 As Node
   
3. Dim i As Long
   
4. On Error Resume Next
   
5. For i = 1 To Me.TreeView1.Nodes.Count
   
6.    Set node1 = Me.TreeView1.Nodes(i)
   
7.     If node1.Expanded Then
   
8.          If node1.Child.Selected = True Then
   
9.             DoCmd.OpenForm node1.Child
   
10.             Exit For
    
11.         End If
    
12.     End If
    
13. Next
    
14. End Sub
    

复制代码

这里只是简单地处理了下错误。

roych

三毛流浪记 发表于 2015-2-5 14:31
谢谢您了前辈！我用的13版，在我这双击确实没打开窗体（您附件里的两个版本都试了很多遍了），可能我装的 ...

那个不是打开子窗体，而是设置子窗体的数据源……我就不上传附件了，反正你也打不开，把前面回复的代码中OpenForm那一句改为下面这句：
Me.Child.SourceObject = node1.Child

roych

都说了，打不开就用你之前的附件，把我给的代码贴上去就好了。

roych

三毛流浪记 发表于 2015-2-6 12:00
还是一样的，双击节点还是打不开窗体。是win8.1的问题？--------access一奇案- -‘

你自己上传的附件也打不开了？没那么奇葩吧？那只好看你本地电脑的文件了

roych

三毛流浪记 发表于 2015-2-6 12:25
前辈，都一样打不开窗体。    太麻烦你一直跟帖了。谢谢！

不会是VBA7.1跟VBA7之间不兼容的问题吧？
试试先删掉以下路径中VBA7.1文件夹，将VBA7的文件夹复制一份，命名为VBA7.1：
C:\Program Files (x86)\Common Files\microsoft shared\VBA

roych

别加冒号{:soso_e113:}

roych

明白了。你没有treeview1控件。把树控件改名就好了。