Access培訓
網站公告
·Access快速平臺QQ群號:84825014    ·Access快速開發平臺下載地址及教程    ·歡迎添加微信交流賬號:AccessoftChu    ·如何快速搜索本站文章|示例|資料    
您的位置: 首頁 > 技術文章 > 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交流群 (群號:252407829)       access源碼網店

最新評論 查看更多評論(0)

發表評論您的評論將提升作者分享的動力!快來評論一下吧!

用戶名:
密 碼:
內 容:
 

常見問答

技術分類

相關資源

關于我們 | 服務條款 | 在線投稿 | 友情鏈接 | 網站統計 | 網站幫助