|
原帖由 harsonliao 于 2002-12-17 03:50 发表
遂写了一个小东西给大家作个参考
[源码]复制选定的记录到另一个表中(可多选),使用操作查询语句新增
可能很多朋友喜欢用docmd.runSQL来运行操作查询语句
但这样会有讨厌的弹出提示,虽可用代码去掉,但需 ...
“For I = lRows To lRows”应为吧:“For I = 1 To lRows”?
既然不能跳着选择记录,不必用循环,一条sql解决可能更简洁一些吧?
Option Compare Database
Option Explicit
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Dim lRows As Long
Dim I As Long
If KeyCode = 116 Then
If MsgBox("您确定要复制 " & SelHeight & " 条数据吗?", vbExclamation + vbYesNo) = vbNo Then Exit Sub
lRows = SelHeight
DoCmd.Echo False
CurrentDb.Execute "INSERT INTO Tbl1 ( A, B, C ) SELECT Tbl2.A, Tbl2.B, Tbl2.C FROM Tbl2 WHERE Tbl2.ID>=" & Me.ID & "and Tbl2.ID<=" & Me.ID + lRows -1 & ";"
Forms!copyform.sFrm1.Form.Requery
DoCmd.Echo True
End If
End Sub
[ 本帖最后由 todaynew 于 2009-1-26 10:24 编辑 ] |
|