Office中国论坛/Access中国论坛

标题: 怎样将子窗体查询结果保存到新表中?在线等待... [打印本页]

作者: snddzxb 时间: 2008-4-30 14:32
标题: 怎样将子窗体查询结果保存到新表中?在线等待...
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 时间: 2008-4-30 15:12
[:33] [:34]

作者: rym_yy 时间: 2008-4-30 17:00
[:50]

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

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)