设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

12下一页
返回列表 发新帖
查看: 2047|回复: 13
打印 上一主题 下一主题

[其它] [求助]窗口加载时撤销加载,返回上级窗口的问题

[复制链接]
跳转到指定楼层
1#
发表于 2006-6-8 01:40:00 | 只看该作者 回帖奖励 |正序浏览 |阅读模式
我在窗口加载时加了一个判断程序,根据不同的情况初始化窗口。当所有条件都不符合时就要Cancel掉这个窗口并且直接返回到上级窗口,(这个窗口可能是因为点击了打开改窗口的按钮而自己已经关闭了,也可能没有关闭)

在Form_load()的时候不能使用Docmd.close的……晕阿,着急中


[em06][em06]

源文件已经上传,请指点




[此贴子已经被作者于2006-6-8 9:08:08编辑过]

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅
14#
发表于 2006-10-22 22:23:00 | 只看该作者
谢谢!下载学习学习。
13#
 楼主| 发表于 2006-6-10 23:32:00 | 只看该作者

回复:(andymark)以下是引用fannky在2006-6-9 8:25:...

谢谢斑竹的耐心指导,不过您说得这样也有局限性。只限于单个的导航窗口于单层的字窗口之间的一对多控制,如果各个子窗口之间互访的话就比较麻烦了,在你的建议下我又做了一点修改。

这种思路再加上系统自定义菜单,应该是一个比较通用的开发组件。


这里我还有一个问题,当我定义用户为只读用户时,如果窗口里面有子窗体数据表时,我只希望用户能够察看而不能删除、修改。

但是我定义Locked=True时虽然不可以修改、添加但是可以删除整行!!

而定义enable=False时连数据表的滚动条都无效了,也无法正常察看,请问怎么解决这个问题?!!

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
12#
发表于 2006-6-9 23:01:00 | 只看该作者
以下是引用fannky在2006-6-9 8:25:00的发言:





这样的到是可以实现哦,那么这个函数执行起来就需要加参了(父窗口名)?

可不可以设计成不用加参的通用函数呢?

再次感谢斑竹的热心解答

   你的是控制权限的主窗体,没必要关闭,可以隐蔽的方式

                 

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
11#
 楼主| 发表于 2006-6-9 16:25:00 | 只看该作者
以下是引用andymark在2006-6-8 17:28:00的发言:


在执行DoCmd.Close acForm, frm.Name前判断父窗体是否打开,如果已关闭,刚打开父窗体,再关闭自已



这样的到是可以实现哦,那么这个函数执行起来就需要加参了(父窗口名)?

可不可以设计成不用加参的通用函数呢?

再次感谢斑竹的热心解答
10#
发表于 2006-6-9 01:28:00 | 只看该作者
在执行DoCmd.Close acForm, frm.Name前判断父窗体是否打开,如果已关闭,刚打开父窗体,再关闭自已

9#
 楼主| 发表于 2006-6-9 01:11:00 | 只看该作者
以下是引用andymark在2006-6-8 9:21:00的发言:


试试改成:

DoCmd.Close acForm, frm.Name



这样改后到是确实能够关掉目标窗口,但是如果他的父级窗口在打开时同时执行了Docmd.close关闭了自己,那么就不能返回上级窗口了,

我希望这些都能集成在模块中,直接在窗口打开时候加在这个函数就能实现这些功能,有什么办法没有?
8#
发表于 2006-6-8 17:21:00 | 只看该作者
试试改成:

DoCmd.Close acForm, frm.Name
7#
 楼主| 发表于 2006-6-8 17:10:00 | 只看该作者

回复:(andymark)你要处理什么事情,把代码贴上来

已经上传
6#
发表于 2006-6-8 07:16:00 | 只看该作者
实在不行的话,先隐式打开窗体,条件允许,显示窗体,条件不允许关闭窗体咯。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2025-1-10 22:54 , Processed in 0.098360 second(s), 35 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表