Office中国论坛/Access中国论坛

标题: 关于数据字段类型的问题?[已解决] [打印本页]

作者: wktt6833 时间: 2008-2-5 17:44
标题: 关于数据字段类型的问题?[已解决]
下面一段代码中“红字部分”,要求字段类型为数值型，如果为“字符型”时就不能运行，
能否将“=”改为“like”

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 = Me.SelHeight       ' 选定的行数
DoCmd.Echo False
For I = lRows To lRows
   CurrentDb.Execute "INSERT INTO Tbl2 ( A, B, C ) SELECT Tbl1.A, Tbl1.B, Tbl1.C FROM Tbl1 WHERE Tbl1.ID=" & Me.ID & ";"
   Me.Recordset.MoveNext
Next
Forms!copyform.sFrm2.Form.Requery
DoCmd.Echo True
  End If

End Sub

[ 本帖最后由 wktt6833 于 2008-2-5 21:31 编辑 ]

作者: wktt6833 时间: 2008-2-5 18:06
标题: 回复 2# 的帖子
CUXUN版主你好：
改动后可以使用，但一次只能复制一行。

作者: wktt6833 时间: 2008-2-5 18:16
选中的是多行，但只能复制一行（程序支持多行复制）

作者: wktt6833 时间: 2008-2-5 21:30
非常感谢，问题已解决。

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