Access動態(tài)創(chuàng)建窗體及動態(tài)創(chuàng)建控件

用過Access通用平臺的都知道。其主要功能就是根據(jù)記錄源自動創(chuàng)建窗體及相關(guān)的設(shè)置

正常情況下我們都是先通過向?qū)Щ蛘咴O(shè)計視圖創(chuàng)建好相關(guān)的窗體給用戶使用。但是也有時需要讓用戶動態(tài)創(chuàng)建一些內(nèi)容

這里創(chuàng)建一個以“訂單表”為記錄源，一個文本框控件和標(biāo)簽控件的窗體。

Sub NewControls()
    Dim frm As Form
    Dim ctlLabel As Control, ctlText As Control
    Dim intTextX As Integer, intTextY As Integer
    Dim intLabelX As Integer, intLabelY As Integer

    Set frm = CreateForm
    frm.RecordSource = "訂單表"
    intLabelX = 200
    intLabelY = 200
    intTextX = 1500
    intTextY = 200
    Set ctlText = CreateControl(frm.Name, acTextBox, , "", "", _
        intTextX, intTextY)
    Set ctlLabel = CreateControl(frm.Name, acLabel, , _
         ctlText.Name, "NewLabel", intLabelX, intLabelY)
    ' Restore form.
    DoCmd.Restore
End Sub

效果圖：