在两个窗体间复制数据

时　间:2007-10-18 12:20:36
作　者:cuxun   ID：70  城市：闵行
摘　要:在两个窗体间复制数据
正　文:

在两个窗体间复制数据

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 = 0 To lRows - 1
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

Access软件网QQ交流群 (群号:54525238) 　　　　　　Access源码网店