［源码］复制选定的记录（可多选），使用操作查询语句新增

todaynew

原帖由 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 编辑 ]