四时宝库

Access窗体间的数据是如何传递的？前面有发过子窗体的数据传递。今天讲解3种方法传递窗体里的数据：

如有窗体“传递窗体”和“接收窗体”两个窗体，通过“传递窗体”控件的值传给“接收窗体”的控件。

方法一：

打开窗体后，直接用打开的窗体的控件值等于当前窗体的控件值

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

方法二：

通过openform方法的最后一个参数openargs将值传递过去。

openform最后参数等于文本框的值，打开“接收窗体”的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

其中“传递窗体”的文本框值分别为：“Text0”，“Text2”，“Text4”

其中“接收窗体”的文本框值分别为：“Text0”，“Text6”，“Text8”

详细源码：http://www.office-cn.net/access-interface/399.html