示例下载

1.先介绍一下进销存，其实在进销存每个作业模块里都有参数传递。

 

2.到这里你可能有疑问，OpenArgs 是什么？选中这个参数，按F1查看帮助吧。

3.这里顺便介绍一下编辑窗体加载事件代码，因为平台自动生成的窗体把新增窗体和编辑窗体 做在了一起，不过代码里有区分是新增还是编辑。

窗体间传递参数

示例1源码：

（1）frmOpen窗体，传递按钮单击事件：

（2）窗体1加载事件：

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

动画图：

示例2:多参数窗体间传递

窗体1：传递了三个用“|”隔开。

  DoCmd.openform "frm商品选择", , , , , , Me.Name & "|" & Me.boxNo & "|" & Me.供应商ID

frm商品选择窗体 加载事件：

      这里了解一下Split ()函数吧。查看F1帮助。

    Dim ArrOpen    As Variant
    ArrOpen = Split(Me.OpenArgs, "|")
    Me.openform = ArrOpen(0)
    Me.箱子编号 = ArrOpen(1)
    Me.供应商ID = ArrOpen(2)