Access开发培训
网站公告
·Access专家课堂QQ群号:151711184    ·Access快速开发平台下载地址及教程    ·欢迎加入Access专家课堂微信群!    ·如何快速搜索本站文章|示例|资料    
您的位置: 首页 > 技术文章 > Access数据库-模块/函数/VBA

【Access基础】OpenForm打开窗体方法详解

时 间:2020-06-11 08:01:25
作 者:name   ID:63090  城市:临汾
摘 要:对openform方法中的相关参数进行详解。
正 文:

    expression.OpenForm(FormName, View, FilterName, WhereCondition, DataMode, WindowMode, OpenArgs)

    括号内的都是openform方法的相关参数,有些参数是必需指定,有些参数可选。


    expression 必需 返回“应用于"”列表中的一个对象的表达式。在access中是指docmd对象

    FormName 必需 Variant (变量)型,既可以直接指定窗体的名称也可以是变量

        假设有一个窗体名称为”窗体A”

        Docmd.openform“窗体A”就是打开 “窗体A”

        面的是通过变量打开 “窗体A'

        Dim strFormName as string

        StrFormName=”窗体A”

        Docmd.openform StrFormName


    View 可选 是指窗体的视图模式,如果将该参数留空默认是acNormal,可用常量如下

        acDesign    指窗体以设计模式打开

        acFormDS    指窗体以数据表模式打开
        acFormPivotChart    指窗体以数据透视图模式打开
        acFormPivotTable    指窗体以数据透视表模式打开
        acNormal    默认。在“窗体”视图中打开窗体。
        acPreview    以预览模式打开窗体。
        假设有一个窗体名称为”窗体A”

        Docmd.openform “窗体A", acNormal    就是打开“窗体A”


    FilterName 可选Variant(变量)型,代表当前数据库中查询的有效名称。


    WhereCondition 可选Variant 型。字符串表达式,表示不包括词Where的有效查询条件

        假设有一个窗体名称为”窗体A”
        Docmd.openform “窗体A", acFormDS, ,”姓名='张三”    就是以数据表模式打开 “窗体A”并且只显示窗体中姓名是张三的记录

    DataMode 可选,窗体的数据输入模式。它只应用于在“窗体”视图或“数据表"视图中打开的窗体。如果将该参数留空默认就是acFormPropertySettings,可用的常量如下:
        acFormAdd用户可以添加新记录,但是不能编辑现有记录。
        acFormEdit用户可以编辑现有记录和添加新记录。
        acFormPropertySettings默认
        acFormReadOnly用户只能查看记录。
        假设有一个窗体名称为”窗体A”
        Docmd.openform “窗体A”,,,”姓名='张三”,acFormReadOnly    是指以只读方式打开“窗体A”,窗体不能添加修改,并且只显示窗体中姓名是张三的记录,

    WindowMode 可选, 打开窗体时所采用的窗口模式,可用常量如下

        acDialog    窗体的Modal 和PopUp 属性设为“是”。
        acHidden    窗体隐藏。
        acIcon    打开窗体并在Windows 工具栏中最小化。
        acWindowNormal    默认值窗体采用它的属性所设置的模式如果将该参数留空,将假定为默认常量(acWindowNormal)。

    OpenArgs 可选 Variant 型。字符串表达式,可用来给打开的窗体传递参数。
        假设有一个窗体名称为”窗体A”
        DoCmd.OpenForm "窗体A.",...,“大家好”    是指打开窗体A,并给窗体传递参数值”大家好”

        Private Sub Form Load()

            Dim strOpen as string

            strOpen = Me.OpenArgs

            MsgBox strOpen
        End Sub



Access软件网QQ交流群 (群号:483923997)       Access源码网店

常见问答:

技术分类:

相关资源:

专栏作家

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