点击下载此附件
代 码:
(1)frmOpen窗体,传递按钮单击事件:
Private Sub cmdOpen_Click()
'将要传递的参数放置在调用窗体的tag标记里
Me.Tag = Me!商品编码
DoCmd.OpenForm "窗体1"
End Sub
(2)窗体1加载事件:
'加载窗体1时,通过调用 forms("调用的窗体").tag 来获取参数值
Private Sub Form_Load()
' Me.Text8 = Form_frmOpen.Tag
' Me.Text8 = Forms!frmOpen.Form.Tag
Me.Text8 = Forms("frmOpen").Tag
End Sub