怎样将子窗体查询结果保存到新表中?在线等待...

snddzxb

1.下边这样只保存当前指定的记录,怎样才能将筛选出来的所有记录保存到新表中.
2.保存条件，注册、休学、退学、毕业同时为空值是不保存。
3.学号和学期与注册、休学、退学、毕业任意组合不能与注册表中的数据重复。如果重复了能够有提示。
Dim rs As New ADODB.Recordset
Dim cnn As New ADODB.Connection
Dim strSQl As String
Set cnn = CurrentProject.Connection
strSQl = "select * from 注册表"
rs.Open strSQl, cnn, adOpenForwardOnly, adLockOptimistic
With rs
    .AddNew
    .Fields("学号") = Me.[注册子窗体].[Form]![学号]
    .Fields("姓名") = Me.[注册子窗体].[Form]![姓名]
    .Fields("性别") = Me.[注册子窗体].[Form]![性别]
    .Fields("学期") = Me.[注册子窗体].[Form]![学期]
    .Fields("注册") = Me.[注册子窗体].[Form]![注册]
    .Fields("休学") = Me.[注册子窗体].[Form]![休学]
    .Fields("退学") = Me.[注册子窗体].[Form]![退学]
    .Fields("毕业") = Me.[注册子窗体].[Form]![毕业]
    .Fields("备注") = Me.[注册子窗体].[Form]![备注]
    .Update
End With
MsgBox "保存成功"
rs.Close
Set rs = Nothing
Set cnn = Nothing

[ 本帖最后由 snddzxb 于 2008-4-30 15:44 编辑 ]

liaug

[:33] [:34]

rym_yy

[:50]

huangxiuwen

1：使用追加查询来现实将筛选出来的所有记录保存到新表中，注意：在运行追加查询时，需要同时将筛选条件也赋予追加查询，这样所追加的记录就与筛选出来的记录一致了。
２：追加查询的条件除了筛选查询的条件之外，再加一个注册、休学、退学、毕业都不为空值的条件即可把注册、休学、退学、毕业同时为空值的记录排除掉。
３：在追加记录之前，先将筛选出来的所有记录与注册表中的记录进行对比。如果有相等的记录，则显示这些记录。并等待用户用行其他的处理。