更改代码把子窗体记录一次保存到新表中的问题

wssf

各位老师们：菜鸟的一个窗体中有一个表格式子窗体，点击一次“保存数据”命令按钮后只能将子窗体的一条记录保存到“表1”中，怎样修改它的代码，使点击“保存数据”后子窗体所有记录都保存到“表1”中去？  谢谢！ 请看下面代码或附件！

Private Sub 保存数据_Click()
On Error GoTo Err_保存数据_Click
Dim rs As New ADODB.Recordset
rs.Open "表1", CurrentProject.Connection, adOpenDynamic, adLockOptimistic
If IsNull(DLookup("编号", "表1", "[编号]='" & 编号 & "'")) Then
rs.AddNew
rs.Fields("编号") = Forms![结果登入]![结果登入子窗体]![编号]
rs.Fields("项目") = Forms![结果登入]![结果登入子窗体]![项目]
rs.Fields("结果") = Forms![结果登入]![结果登入子窗体]![结果]
rs.Update
rs.Close
Set rs = Nothing
End If
Exit_保存数据_Click:
  Exit Sub
Err_保存数据_Click:
  Resume Exit_保存数据_Click
End Sub

linxiaokun

dim stSql as String
stSql = "INSERT INTO 新表 SELECT 子窗体数据源 FROM 子窗体数据源;"
CurrentDb.Execute stSql

linxiaokun

dim stSql as String
stSql = "INSERT INTO 表1 SELECT [...查询].* FROM [....查询];"
CurrentDb.Execute stSql
还有个问题，你表1里面没有“日期”的字段
子窗体里面有“日期”这个字段
要么就有，要么就都没有
你自己看着办

wssf

谢谢linxiaokun老师的指点。用三楼的代码搞好了。非常感谢！
还有一个问题：假如我全部保存到表，又发现某一条记录“结果”项有误（编号、项目已设主键不可改），改正后要把这一条再保存到表（即覆盖原记录），代码怎样写？（另使用一个命令按钮）请linxiaokun老师再指点。谢谢！

[ 本帖最后由 wssf 于 2008-5-3 19:38 编辑 ]

wssf

再顶上去啦！好人继续帮忙啦！

13555609005

学习吓