设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
查看: 2922|回复: 9
打印 上一主题 下一主题

[查询] [源码]复制选定的记录(可多选),使用操作查询语句新增

[复制链接]
1#
发表于 2009-1-26 09:53:35 | 显示全部楼层
原帖由 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 编辑 ]
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-11-1 07:14 , Processed in 0.084299 second(s), 23 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表