两个子窗体记录根据记录号同步移动的一个方法

时　间:2007-10-21 10:02:17
作　者:Trynew   ID：70  城市：闵行
摘　要:两个子窗体记录根据记录号同步移动的一个方法
正　文:

子窗体1与子窗体2的记录以1:2的步长移动，
把下列代码分别添加到子窗体模块中：

Subform1:
Private Sub Form_Current()
On Error Resume Next
If Me.Parent.ActiveControl.Name = Me.Name Then
Me.Parent.subform2.Form.Recordset.Move Me.CurrentRecord * 2 - 1 - Me.Parent.subform2.Form.CurrentRecord
End If
End Sub

Subform2
Private Sub Form_Current()
On Error Resume Next
If Me.Parent.ActiveControl.Name = Me.Name Then
Me.Parent.Subform1.Form.Recordset.Move (Me.CurrentRecord + 1) \ 2 - Me.Parent.Subform1.Form.CurrentRecord
End If
End Sub

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