office交流網(wǎng)--QQ交流群號(hào)及微信交流群

Access培訓(xùn)群:792054000         Excel免費(fèi)交流群群:686050929          Outlook交流群:221378704    

Word交流群:218156588             PPT交流群:324131555

微信交流群(請(qǐng)用微信掃碼)

        

Access窗體之間控件的傳值三種方式

2017-10-16 17:27:00
tmtony8
原創(chuàng)
15986

Access窗體間的數(shù)據(jù)是如何傳遞的?前麵有髮過(guò)子窗體的數(shù)據(jù)傳遞。今天講解3種方法傳遞窗體裡的數(shù)據(jù):

如有窗體“傳遞窗體”和“接收窗體”兩箇窗體,通過(guò)“傳遞窗體”控件的值傳給“接收窗體”的控件。




方法一:

打開(kāi)窗體後,直接用打開(kāi)的窗體的控件值等於當(dāng)前窗體的控件值

Forms("接收窗體").控件= Me.控件


方法二:


通過(guò)openform方法的最後一箇蔘數(shù)openargs將值傳遞過(guò)去。

openform最後蔘數(shù)等於文本框的值,打開(kāi)“接收窗體”的open事件:控件值= Me.OpenArgs


方法三:

用全局變量。在模塊定義一箇全局變量,這裡是“Public strName As String

再將“傳遞窗體”的控件值賦給strName .  然後在窗體2的加載事件中將strName 賦值給“接收窗體”的控件。




傳遞窗體代碼:

Private Sub Command6_Click()
    DoCmd.OpenForm "接收窗體", , , , , , Me.Text2
    Forms("接收窗體").Text0.Value = Me.Text0
    strName = Me.Text4
    
End Sub


接收窗體代碼:

Private Sub Form_Load()
    Me.Text8 = strName
End Sub

Private Sub Form_Open(Cancel As Integer)
    Me.Text6 = Me.OpenArgs
End Sub


模塊代碼

Public strName As String


其中“傳遞窗體”的文本框值分彆爲(wèi):“Text0”,“Text2”,“Text4”

其中“接收窗體”的文本框值分彆爲(wèi):“Text0”,“Text6”,“Text8

    分享
    文章分類
    聯(lián)繫我們
    聯(lián)繫人: 王先生
    Email: 18449932@qq.com
    QQ: 18449932
    微博: officecn01
    移動(dòng)訪問(wèn)