Office中国论坛/Access中国论坛

标题: 【help】点击treeview节点打开相应的窗体 [打印本页]

作者: 三毛流浪记 时间: 2015-2-4 17:22
标题: 【help】点击treeview节点打开相应的窗体
小白三毛初学access，希望通过点击树控件节点就打开相应的窗体（比如我附件中的树控件有个“窗体3”、“窗体4”节点，当我点击节点时会打开相应的窗体，并将其显示在右侧子窗体中）。这几天在网上游了许久，见到的例子都是操作记录而不是操作窗体的。终于忍不住要请教各位老师了，nodeclick代码该怎么改。

作者: access学习交流 时间: 2015-2-4 17:42
论坛有这样的示例啊
http://www.office-cn.net/thread-117166-1-1.html

作者: 三毛流浪记 时间: 2015-2-4 19:34

access学习交流发表于 2015-2-4 17:42
论坛有这样的示例啊
http://www.office-cn.net/thread-117166-1-1.html

表达不好，见谅。你误解了，我想要的只是单纯的打开窗体并不管窗体中的记录问题，你给的例子我看过和其他例子一样，都是操作记录的。

作者: roych 时间: 2015-2-5 13:23
本帖最后由 roych 于 2015-2-5 14:14 编辑

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

作者: 三毛流浪记 时间: 2015-2-5 14:05

roych 发表于 2015-2-5 13:23
大概这样。顺便说下，要双击才可以打开窗体的

谢谢您！可是在我这里怎么还是打不开的

，各位下载附件的前辈、同学你们打的开吗？

作者: roych 时间: 2015-2-5 14:10
本帖最后由 roych 于 2015-2-5 14:11 编辑

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

作者: roych 时间: 2015-2-5 14:16

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

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

Private Sub TreeView1_DblClick()
Dim node1 As Node
Dim i As Long
On Error Resume Next
For i = 1 To Me.TreeView1.Nodes.Count
Set node1 = Me.TreeView1.Nodes(i)
If node1.Expanded Then
If node1.Child.Selected = True Then
DoCmd.OpenForm node1.Child
Exit For
End If
End If
Next
End Sub

复制代码

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

作者: 三毛流浪记 时间: 2015-2-5 14:31

roych 发表于 2015-2-5 14:16
附件已经更新了，增加了Access 2000版本。如果再打不开我也没辙了，贴代码给你吧（加上树控件双击这一段 ...

谢谢您了前辈！我用的13版，在我这双击确实没打开窗体（您附件里的两个版本都试了很多遍了），可能我装的13版access有问题，我慢慢磨吧，看看是不是哪些设置有问题。很麻烦你了。再次感谢！对了，我的问题还有一点：让打开的窗体固定显示在treeview右侧的子窗体中没实现，前辈有空就蛮看看，很忙就算了。
-------------------------------------------------------------------------------------------------------致谢！

作者: roych 时间: 2015-2-5 14:47
本帖最后由 roych 于 2015-2-5 14:51 编辑

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

那个不是打开子窗体，而是设置子窗体的数据源……

我就不上传附件了，反正你也打不开，把前面回复的代码中OpenForm那一句改为下面这句：
Me.Child.SourceObject = node1.Child

作者: 三毛流浪记 时间: 2015-2-5 16:47

roych 发表于 2015-2-5 14:47
那个不是打开子窗体，而是设置子窗体的数据源……我就不上传附件了，反正你也打不开，把前面回复的代 ...

折腾下午还是不行，前辈用的是10版的吧。我换个版本试试。

作者: 三毛流浪记 时间: 2015-2-5 22:49

roych 发表于 2015-2-5 14:47
那个不是打开子窗体，而是设置子窗体的数据源……我就不上传附件了，反正你也打不开，把前面回复的代 ...

前辈，我换了2010 双击节点还是打不开窗体啊

气人。安装了一晚上的access，我发现64位的总会缺点什么（比如我在2010 64位版本中找不到imagelist，可能眼误把）

作者: 三毛流浪记 时间: 2015-2-5 22:57
为什么就我的access打不开窗体啊？换了2010还是打不开窗体，有哪位前辈指点原因么，求指点！在此致谢！

作者: zpy2 时间: 2015-2-6 05:09
64位office吗? 是否不支持32控件?设计视图能打开吗?

作者: roych 时间: 2015-2-6 09:04
都说了，打不开就用你之前的附件，把我给的代码贴上去就好了。

作者: 三毛流浪记 时间: 2015-2-6 12:00

roych 发表于 2015-2-6 09:04
都说了，打不开就用你之前的附件，把我给的代码贴上去就好了。

还是一样的，双击节点还是打不开窗体。是win8.1的问题？--------access一奇案- -‘

作者: roych 时间: 2015-2-6 12:01

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

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

作者: 三毛流浪记 时间: 2015-2-6 12:25

roych 发表于 2015-2-6 12:01
你自己上传的附件也打不开了？没那么奇葩吧？那只好看你本地电脑的文件了

前辈，都一样打不开窗体。

太麻烦你一直跟帖了。谢谢！

作者: roych 时间: 2015-2-6 13:33

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

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

作者: 三毛流浪记 时间: 2015-2-6 14:24

roych 发表于 2015-2-6 13:33
不会是VBA7.1跟VBA7之间不兼容的问题吧？
试试先删掉以下路径中VBA7.1文件夹，将VBA7的文件夹复制一份， ...

一样

作者: roych 时间: 2015-2-6 15:07
别加冒号{:soso_e113:}

作者: 三毛流浪记 时间: 2015-2-6 15:46

roych 发表于 2015-2-6 15:07
别加冒号

一样--

作者: roych 时间: 2015-2-6 15:50
明白了。你没有treeview1控件。把树控件改名就好了。

作者: 三毛流浪记 时间: 2015-2-6 16:57

roych 发表于 2015-2-6 15:50
明白了。你没有treeview1控件。把树控件改名就好了。

改了多次名上面还是显示“通用”呢，用什么名字可以呢？

作者: zhidao 时间: 2015-2-6 17:14

三毛流浪记发表于 2015-2-6 16:57
改了多次名上面还是显示“通用”呢，用什么名字可以呢？

支持一下，可能是你的系统问题，刚才我用了一下版主的实例，很顺利。

作者: 三毛流浪记 时间: 2015-2-6 17:33

zhidao 发表于 2015-2-6 17:14
支持一下，可能是你的系统问题，刚才我用了一下版主的实例，很顺利。

谢谢你！晚上我用win7试试看。

作者: zhidao 时间: 2015-2-6 20:50

三毛流浪记发表于 2015-2-6 17:33
谢谢你！晚上我用win7试试看。

我用的就是w7

作者: WFH6898 时间: 2015-11-12 10:24
系统学习一次树控件知识（王宇虹老师的讲座）

作者: wentanjiao1982 时间: 2016-1-26 09:16
好贴，受教了

作者: shisir67 时间: 2018-8-13 23:51
学习，谢谢

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