我学ACCESS

[jsxsz]

准备设计一个简单的应用程序。
想法是
1、通过窗体1，录入人员信息；
2、通过窗体2，录入车辆信息；
3、通过窗体3，录入人员亲属信息；
4、通过窗体4，录入车辆违章信息
5、通过窗体5，录入与人员的谈话信息；
6、一系统的报表生成与打印（其中，谈话信息要示生成WORD文件）

操作过程与所遇到的难题。
建立一系列信息表，并建立相到关系。
设计窗体1，
窗体上包括若干控件，最重要的是一个标题为“下一步”的按钮。
难点：
1、如何在按下一步之后，将本条记录的ID编号，传递到窗体2的txtID.value中？
2、如何在打开窗体2之后，关闭窗体1？
在网上搜索了很多资料，都没能直接解决，
好不容易想出下面的方法，现在晒出来请大家指正：

窗体1的代码：
Option Compare Database
Private Sub cmd1_Click()
Dim mStr As String
mStr = Text0
DoCmd.OpenForm "窗体2", , , "编号 =" & mStr '打开窗体2,并传递窗体1中text0的值到窗体2 的数据筛选条件
End Sub

窗体2的代码：
Option Compare Database
Private Sub Form_Load()
Me.Text0 = Forms!窗体1.Text0 '在窗体2加载事件中，将窗体1中text0的值赋予窗体2中的text0 '还别小瞧，许多初学者都难以实现这一目的。
DoCmd.Close acForm, "窗体1", acSaveYes '在窗体2中，关闭窗体1，这也是很多初学者遇到的难题。
End Sub
'好了，今天就写到这里。下次再见。