Access培训
网站公告
·Access快速平台QQ群号:277422564    ·Access快速开发平台下载地址及教程    ·欢迎添加微信交流账号:AccessoftChu    ·如何快速搜索本站文章|示例|资料    
您的位置: 首页 > 技术文章 > Access开发平台

Access快速开发平台--同一个窗体,怎么通过菜单多模式打开

时 间:2019-11-28 19:37:27
作 者:易勋   ID:35404  城市:上海
摘 要:在实际需求中,很多时候一个窗体,需要多种打开模式。通过A菜单加载全部数据,通过B菜单只加载待审核的数据,但是在平台中,以子窗体模式打开的窗体,是无法传递参数的。这样的情况下想实现多个菜单打开一个窗体,根据菜单执行不同的模式可以这样处理。
正 文:

      下面以frmProject窗体为例,1.打开时加载全部数据;2.打开时只显示待审核数据

要实现该功能,需要以下步骤:

1.在模块种新增两个函数:

Public ProjectOpenMode As Long '全局变量

Public Function OpenProjectForm()
    ProjectOpenMode = 0
    RunMenuCommand "OpenForm|frmProject|||||-1|"
End Function

Public Function OpenProjectWaitAuditForm()
    ProjectOpenMode = 1
    RunMenuCommand "OpenForm|frmProject|||||-1|"
End Function

2.在项目管理(显示全部数据)菜单编辑中,选择指定代码,然后在函数名称种输入:OpenProjectForm


3.在待审核项目管理的菜单编辑中,选择指定代码,然后在函数名称种输入:OpenProjectWaitAuditForm


4.在frmProject中的加载时间中,Me.Recalc 这行之前插入:

Select CASE ProjectOpenMode
CASE 0
	Me.sfrList.Form.RecordSource = "Select * FROM tblProject"
CASE 1
	Me.sfrList.Form.RecordSource = "Select * FROM tblProject Where Audit=False "
CASE ...'根据需要还可以在增加其他模式
End Select


这样设置下来,即可通过项目管理查看所有项目信息;通过待审核项目管理查看待审核项目信息。



Access快速开发平台QQ群 (群号:239158550)       access源码网店

最新评论 查看更多评论(0)

发表评论您的评论将提升作者分享的动力!快来评论一下吧!

用户名:
密 码:
内 容:
 

常见问答

技术分类

相关资源

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助