实例请教FindRecord 问题！

SecurID

请高手指点！
窗体2包含子窗体，在文本框输入内容可找到子窗体中相应的数据：
Private Sub Text2_Change()
Dim strwhat As String
Me.Text2.Value = Me.Text2.Text
strwhat = Me.Text2.Value
If Not strwhat = "" Then
Me.子窗体.SetFocus
DoCmd.FindRecord strwhat, acAnywhere, , acDown, , acAll, False
Me.Text2.SetFocus
Me.Text2.SelStart = Len(strwhat)
End If
End Sub
窗体1不包含子窗体，如何实现同样的功能，红色的语句该如何改写？

roych

你这个是分割窗体吧，建议放在2007版交流里试试，2003版本不支持分割窗体。嗯，还有一点建议，就是上传附件之前，先压缩数据库（可不是用Winrar噢）。

SecurID

明白，谢谢！