窗体间传值的两个方法[转帖]

时　间:2007-10-27 09:01:34
作　者:   ID：16  城市：江阴
摘　要:窗体间传值的两个方法[转帖]
正　文:

'定义一个窗体级变量用于窗体间传值
Public yhm As String

'****************************
'名称：窗体间传递参数
'作者：zhengjialon(access-cn and access abc)
'时间：2004-01-29
'****************************

'这是比较常用的方法，一般在VB中使用此方法，可以定义多个变量传递多个不同类型的值
Private Sub 利用窗体级变量_Click()
On Error GoTo ErrLBL:

    yhm = Me.txt1
    DoCmd.OpenForm "窗体2"
    DoCmd.Close acForm, "窗体1"
    Forms!窗体2.txt2 = yhm

ExitLBL:
    Exit Sub
ErrLBL:
    If Err.Number = 94 Then MsgBox "不可为空值！"
    Me.txt1.SetFocus
    GoTo ExitLBL
End Sub

'这是ACCESS中的OpenArgs方法，在VB中无此方法，只能传递一个string类型的值
'有关详细信息请参见ACCESS帮助
Private Sub 命令6_Click()
On Error GoTo ErrLBL:

    DoCmd.OpenForm "窗体2", , , , , , Me.txt1 '最后一个是OpenArgs参数
    DoCmd.Close acForm, "窗体1"
    Forms!窗体2.txt2 = Forms!窗体2.OpenArgs

ExitLBL:
    Exit Sub
ErrLBL:
    If Err.Number = 2498 Then MsgBox "不可为空值！"
    Me.txt1.SetFocus
    GoTo ExitLBL
End Sub



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