子窗体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