Office中国论坛/Access中国论坛

标题: [窗体] 求助FindRecord 问题！ [打印本页]

作者: SecurID 时间: 2011-2-19 22:23
标题: [窗体] 求助FindRecord 问题！
请高手指点！
窗体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是个分割窗体，不包含子窗体，如何实现同样的功能，红色的语句该如何改写？

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)