向主窗体添加数据时如可同时用代码向子窗体添加记录

lauan

求助！！！
　　在向主窗体＂窗体１＂添加新记录的同时，向子窗体＂窗体２＂添加２条新记录，并向＂窗体２＂添加的新记录的＂color＂字段分别赋值为＂green＂，＂blue＂.．
　　该如何编写事件的代码？
　　请各位大侠指教！急！
　　谢谢！

Henry D. Sy

Private Sub name_AfterUpdate()
Dim rs As ADODB.Recordset
Dim cnn As New ADODB.Connection
Dim strSql As String
Set rs = New ADODB.Recordset
Set cnn = CurrentProject.Connection
strSql = "select * from 表2"
rs.Open strSql, cnn, adOpenKeyset, adLockOptimistic

rs.AddNew
rs("color") = 1
rs.AddNew
rs("color") = 2
rs.Update
rs.Close
Set rs = Nothing
Set cnn = Nothing
End Sub

lauan

dddddd大侠：
     试过你的方法，但子窗体“窗体2”没有添加新记录！

一点通

看不明,请描述清楚一点

Henry D. Sy

原帖由 lauan 于 2007-8-21 10:47 发表
dddddd大侠：
     试过你的方法，但子窗体“窗体2”没有添加新记录！

忘了，一句代码
me.表2.requery

[ 本帖最后由 dddddd 于 2007-8-21 12:10 编辑 ]

lauan

请问
“me.表2.requery”该加入代码的哪一行。查过表2，有新记录，但主表与子表链接不上。

[ 本帖最后由 lauan 于 2007-8-21 14:39 编辑 ]

Henry D. Sy

Private Sub name_AfterUpdate()
Dim rs As ADODB.Recordset
Dim cnn As New ADODB.Connection
Dim strSql As String
Set rs = New ADODB.Recordset
Set cnn = CurrentProject.Connection
strSql = "select * from 表2"
rs.Open strSql, cnn, adOpenKeyset, adLockOptimistic

rs.AddNew
rs("color") = 1
rs.AddNew
rs("color") = 2
rs.Update
rs.Close
Set rs = Nothing
Set cnn = Nothing
me.表2.requery
End Sub

Henry D. Sy

另：你的主窗体和子窗体不要通过id连接，否则就看不到！

lauan

谢谢了。
我在你的代码中增加了对子表“ID”的赋值，这样子窗体就可以看到相关联的数据了。