选项卡指定打开分页

df

请教:窗体1选项卡有5个分页,默认打开是1. 怎样在其它窗体用代码打开窗体1时显示选项卡分项4.[em06]

情比金坚

另一窗体的打开代码：

Private Sub 命令0_Click()

DoCmd.OpenForm "窗体1", , , , , , "a"

End Sub

窗体1的加载事件：

Private Sub Form_Load()

Dim str As String

str = Forms!窗体1.OpenArgs

If str = "a" Then

Me!页4.SetFocus

Else

Me!页1.SetFocus

End If

End Sub

[此贴子已经被作者于2005-1-22 20:50:54编辑过]

df

OK 谢谢情比金坚!