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

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